Re: [R] remove repeated string in list

Many Thanks JS karim On Thu, Mar 5, 2015 at 4:08 AM, JS Huang wrote: > Hi, > > Here is one for preserving the first strings. as.numeric in the previous > posting is not necessary. > > > temp > $set1 > [1] "a" "b" "d" "x" > > $set2 > [1] "b" "c" "q" "m" > > $set3 > [1] "b" "f" "e" "k" "q" "h"

Re: [R] remove repeated string in list

Hi, Here is one for removing repeated strings. > temp $set1 [1] "a" "b" "d" "x" $set2 [1] "b" "c" "q" "m" $set3 [1] "b" "f" "e" "k" "q" "h" > sapply(1:3,function(x){temp[[x]][as.numeric(table(unlist(temp))[temp[[x]]])==1]}) [[1]] [1] "a" "d" "x" [[2]] [1] "c" "m" [[3]] [1] "f" "e" "k" "h"

Re: [R] remove repeated string in list

Hi, Here is one for preserving the first strings. as.numeric in the previous posting is not necessary. > temp $set1 [1] "a" "b" "d" "x" $set2 [1] "b" "c" "q" "m" $set3 [1] "b" "f" "e" "k" "q" "h" > sapply(1:length(temp),function(x){c <- list(); for (j in 1:x){c <- > c(c,temp[[j]])}; temp[[x

Re: [R] remove repeated string in list

Hi, To avoid hardcoded 1:3, here is some revision. > temp $set1 [1] "a" "b" "d" "x" $set2 [1] "b" "c" "q" "m" $set3 [1] "b" "f" "e" "k" "q" "h" > sapply(1:*length(temp)*,function(x){temp[[x]][as.numeric(table(unlist(temp))[temp[[x]]])==1]}) [[1]] [1] "a" "d" "x" [[2]] [1] "c" "m" [[3]] [1]