Hi All .., I have a table called "x444" and I would like to create a new column contains the matched items in each row between column w & r . I used match()function as below but this does not return the results I want because of 2 issues. The 1st one is that this gives the row number of shared items while I want to see the item itself (e.g. in the table below, I want to see cyp2 instead of the row number 2). The 2nd issue is that I need to know matched items considering every item in the row instead of the entire row. For example, the item cyp3 is a matched item in the first row between columns w & r. The same applies for c6 in row 3. These don't appear in the results below.>x444w r 1 cyp3,cyp7 cyp2, cyp1,cyp3 2 cyp2 cyp2 3 c1,c3,c6 c6,c8,c5> r = c(match(x444$w,X444$r)) > r[1] NA 2 NA The desired output should be like this :- w r matched items 1 cyp3,cyp7 cyp2, cyp1,cyp3 cyp3 2 cyp2 cyp2 cyp2 3 c1,c3,c6 c6,c8,c5 c6 The second issue is that when I write a table produced in R as follows : write.table(MyTable,file="MyTable.txt", sep = "\t", quote = F, row.names = F) and the read this txt. file in excel, some items from column B appears in Column A and some empty rows also appear?. Could you please guide me about the mistakes I have done and suggest some solutions? Regards [[alternative HTML version deleted]]
Hi abo,
I think you want to split your strings and do your matching like this:
x444<-read.table(text="w r
cyp3,cyp7 cyp2,cyp1,cyp3
cyp2 cyp2
c1,c3,c6 c6,c8,c5",
header=TRUE,stringsAsFactors=FALSE)
findMatches<-function(x,sep=",") {
matchval<-NA
x1bits<-unlist(strsplit(x[1],sep))
x2bits<-unlist(strsplit(x[2],sep))
matches<-x1bits %in% x2bits
if(any(matches)) matchval<-x1bits[which(matches)]
return(matchval)
}
x444$matched_items<-apply(x444,1,findMatches)
Note that this will only work with character values, _not_ factors.
Jim
On Fri, May 12, 2017 at 9:16 AM, abo dalash <abo_dlsh at hotmail.com>
wrote:> Hi All ..,
>
>
> I have a table called "x444" and I would like to create a new
column contains the matched items in each row between column w & r . I used
match()function as below but this does not return the results I want because of
2 issues. The 1st one is that this gives the row number of shared items while I
want to see the item itself (e.g. in the table below, I want to see cyp2 instead
of the row number 2). The 2nd issue is that I need to know matched items
considering every item in the row instead of the entire row. For example, the
item cyp3 is a matched item in the first row between columns w & r. The same
applies for c6 in row 3. These don't appear in the results below.
>
>
>
>>x444
> w r
> 1 cyp3,cyp7 cyp2, cyp1,cyp3
> 2 cyp2 cyp2
> 3 c1,c3,c6 c6,c8,c5
>
>
>> r = c(match(x444$w,X444$r))
>> r
> [1] NA 2 NA
>
>
>
> The desired output should be like this :-
>
> w r matched items
> 1 cyp3,cyp7 cyp2, cyp1,cyp3 cyp3
> 2 cyp2 cyp2 cyp2
> 3 c1,c3,c6 c6,c8,c5 c6
>
>
> The second issue is that when I write a table produced in R as follows :
>
> write.table(MyTable,file="MyTable.txt", sep = "\t",
quote = F, row.names = F)
>
> and the read this txt. file in excel, some items from column B appears in
Column A and some empty rows also appear?.
>
> Could you please guide me about the mistakes I have done and suggest
> some solutions?
>
> Regards
>
> [[alternative HTML version deleted]]
>
> ______________________________________________
> R-help at r-project.org mailing list -- To UNSUBSCRIBE and more, see
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
Dear Jim..,
Many thanks for your answer.
As I'm a new R user, could you please provide a short explanation
about what each line of the following does ?
findMatches<-function(x,sep=",") {
matchval<-NA
x1bits<-unlist(strsplit(x[1],sep))
x2bits<-unlist(strsplit(x[2],sep))
matches<-x1bits %in% x2bits
if(any(matches)) matchval<-x1bits[which(matches)]
return(matchval)
}
x444$matched_items<-apply(x444,1,findMatches)
I would like to understand so I can apply the same for any further analysis
I may need in the future.
Regards
________________________________
From: Jim Lemon <drjimlemon at gmail.com>
Sent: 12 May 2017 04:14 AM
To: abo dalash
Cc: r-help at R-project.org
Subject: Re: [R] Matched Items in rows + issue with writing a table
Hi abo,
I think you want to split your strings and do your matching like this:
x444<-read.table(text="w r
cyp3,cyp7 cyp2,cyp1,cyp3
cyp2 cyp2
c1,c3,c6 c6,c8,c5",
header=TRUE,stringsAsFactors=FALSE)
findMatches<-function(x,sep=",") {
matchval<-NA
x1bits<-unlist(strsplit(x[1],sep))
x2bits<-unlist(strsplit(x[2],sep))
matches<-x1bits %in% x2bits
if(any(matches)) matchval<-x1bits[which(matches)]
return(matchval)
}
x444$matched_items<-apply(x444,1,findMatches)
Note that this will only work with character values, _not_ factors.
Jim
On Fri, May 12, 2017 at 9:16 AM, abo dalash <abo_dlsh at hotmail.com>
wrote:> Hi All ..,
>
>
> I have a table called "x444" and I would like to create a new
column contains the matched items in each row between column w & r . I used
match()function as below but this does not return the results I want because of
2 issues. The 1st one is that this gives the row number of shared items while I
want to see the item itself (e.g. in the table below, I want to see cyp2 instead
of the row number 2). The 2nd issue is that I need to know matched items
considering every item in the row instead of the entire row. For example, the
item cyp3 is a matched item in the first row between columns w & r. The same
applies for c6 in row 3. These don't appear in the results below.
>
>
>
>>x444
> w r
> 1 cyp3,cyp7 cyp2, cyp1,cyp3
> 2 cyp2 cyp2
> 3 c1,c3,c6 c6,c8,c5
>
>
>> r = c(match(x444$w,X444$r))
>> r
> [1] NA 2 NA
>
>
>
> The desired output should be like this :-
>
> w r matched items
> 1 cyp3,cyp7 cyp2, cyp1,cyp3 cyp3
> 2 cyp2 cyp2 cyp2
> 3 c1,c3,c6 c6,c8,c5 c6
>
>
> The second issue is that when I write a table produced in R as follows :
>
> write.table(MyTable,file="MyTable.txt", sep = "\t",
quote = F, row.names = F)
>
> and the read this txt. file in excel, some items from column B appears in
Column A and some empty rows also appear?.
>
> Could you please guide me about the mistakes I have done and suggest
> some solutions?
>
> Regards
>
> [[alternative HTML version deleted]]
>
> ______________________________________________
> R-help at r-project.org mailing list -- To UNSUBSCRIBE and more, see
> https://stat.ethz.ch/mailman/listinfo/r-help
thz.ch/mailman/listinfo/r-help>
stat.ethz.ch
The main R mailing list, for announcements about the development of R and the
availability of new code, questions and answers about problems and solutions
using R ...
> PLEASE do read the posting guide
http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
[[alternative HTML version deleted]]