create a column based on repetition in another column

Question

I have a table with several columns and in one of them I need to create a loop that flows down the column and if the same number is present twice another column is created (adding a "p" for example) and in which are present only once in the same column created earlier is added for example "-". Anyone?

the column have Barcodes TCGA-3M-AB47-01A-22R-A414-31 I need the AB47

for(code in tabela$Barcode){
     t=sapply(strsplit(as.character(code), "-"), function(x) x[[2]]) #to extract the AB47

Please share a small example with sample input and desired output. — Gregor Thomas, Dec 17 '15 at 17:49
input: column x - A;A;C;B;C;D;E;F output: column y - P;P;P;-;P;-;-;- — kiliark, Dec 17 '15 at 22:33
`y = c("-", "P")[(duplicated(x) | duplicated(x, fromLast = T)) + 1]`, using as input `x = c("A", "A", "C", "B", "C", "D", "E", "F")` (make things copy/paste-able to make people happy!) — Gregor Thomas, Dec 17 '15 at 22:43

score 0 · Answer 1 · edited May 23 '17 at 11:52

This is essentially equivalent to the common find all duplicates question. (Which is, ironically, very widely duplicated.)

For a vector x like x = c("A", "A", "C", "B", "C", "D", "E", "F"), the most common answer is to use the duplicated function twice, once with fromLast = T to flag all duplicates. This will give a boolean vector indicating whether each value is duplicated. Adding 1 to the boolean converts it from TRUE/FALSE to 2/1, which we can use as a subsetting index of your desired markings:

y = c("-", "P")[(duplicated(x) | duplicated(x, fromLast = T)) + 1]

create a column based on repetition in another column

1 Answers1