[R] Search for common character strings within a column

arun smartpink111 at yahoo.com
Fri Apr 12 22:37:19 CEST 2013

May be this helps:
Not sure how you wanted to select those two letters.  

dat1<- read.table(text="
 A B B C D A C,Yes
 B C A C B D A C,Yes
C D A A C D,No
lapply(str_split(str_trim(dat1$Seq)," ")[dat1$Output=="Yes"],function(x) {x1<-t(combn(x,2)); apply(x1,1,paste0,collapse="")})
# [1] "AB" "AB" "AC" "AD" "AA" "AC" "BB" "BC" "BD" "BA" "BC" "BC" "BD" "BA" "BC"
#[16] "CD" "CA" "CC" "DA" "DC" "AC"

# [1] "BC" "BA" "BC" "BB" "BD" "BA" "BC" "CA" "CC" "CB" "CD" "CA" "CC" "AC" "AB"
#[16] "AD" "AA" "AC" "CB" "CD" "CA" "CC" "BD" "BA" "BC" "DA" "DC" "AC"

res<- sapply(str_split(str_trim(dat1$Seq)," ")[dat1$Output=="Yes"],function(x) {x1<-t(combn(x,2)); x2<-table(apply(x1,1,paste0,collapse="")); x2[which.max(x2)]})
# 4  4
 dat1$MaxCombn[dat1$Output=="Yes"]<- names(res)
#               Seq Output MaxCombn
#1    A B B C D A C    Yes       BC
#2  B C A C B D A C    Yes       BC
#3      C D A A C D     No     <NA>

>I have a dataset (data) that consists of two columns: Seq and output. 
Each entry in Seq is a combination of As,Bs,Cs and Ds and ranges from 5 – >30 characters in length. Each sequence is associated with an output of 
either yes or no such that: 
 >     Seq		          Output 
>(1) A B B C D A C 	        Yes 
>(2) B C A C B D A C	Yes 
>(3) C D A A C D 		No 
>etc, etc. 
>I want to find which 2 letter (A B, A C, A D, etc) strings are 
most associated with each output. Essentially I want to find which 2 
letter combinations >occur most frequently in the column Seq, when the 
output is Yes. I’m new to R and can’t figure out a solution to this 
>Any help greatly appreciated! 

More information about the R-help mailing list