Message-ID: <1362586376.74105.YahooMailNeo@web142605.mail.bf1.yahoo.com>
Date: 2013-03-06T16:12:56Z
From: arun
Subject: How to combine conditional argument and logical argument in R to create subset of data...
In-Reply-To: <1362585977.93169.YahooMailNeo@web142604.mail.bf1.yahoo.com>
Just to add:
Tem1[Tem1[,2]%in%setdiff(Tem1[,2],Tem2[,2]),]
A.K.
----- Original Message -----
From: arun <smartpink111 at yahoo.com>
To: HJ YAN <yhj204 at googlemail.com>
Cc: R help <r-help at r-project.org>
Sent: Wednesday, March 6, 2013 11:06 AM
Subject: Re: [R] How to combine conditional argument and logical argument in R to create subset of data...
Hi,
No problem.
V1<-rep(c(rep(111,5),rep(222,5),rep(333,5)),2)
?length(V1)
#[1] 30
?V2<- c(1:30) #should be the same length as V1
Tem1<- cbind(V1,V2)
Tem2<-Tem1[1:20,]
Tem1[!Tem1[,2]%in%Tem2[,2],]
?# ???? V1 V2
?#[1,] 222 21
?#[2,] 222 22
?#[3,] 222 23
?#[4,] 222 24
?#[5,] 222 25
?#[6,] 333 26
?#[7,] 333 27
?#[8,] 333 28
?#[9,] 333 29
#[10,] 333 30
#or
subset(Tem1,!V2%in% Tem2[,2])
#or
?Tem1[is.na(match(Tem1[,2],Tem2[,2])),]
?# ???? V1 V2
?#[1,] 222 21
?#[2,] 222 22
?#[3,] 222 23
?#[4,] 222 24
?#[5,] 222 25
?#[6,] 333 26
?#[7,] 333 27
?#[8,] 333 28
?#[9,] 333 29
#[10,] 333 30
A.K.
________________________________
From: HJ YAN <yhj204 at googlemail.com>
To: arun <smartpink111 at yahoo.com>
Sent: Wednesday, March 6, 2013 10:33 AM
Subject: Re: [R] How to combine conditional argument and logical argument in R to create subset of data...
Thank you SO MUCH Arun!!!?
That's brilliant-- I've learnt some very useful new R command now, e.g. 'do.call' and 'split'. And I see where my code went wrong now.?
?I do appreciate greatly for your prompt reply.
Also, I wonder if there exist a package can find difference between two data frames, e.g. one is a subset of the other? e.g.?
?V1<-rep(c(rep(111,5),rep(222,5),rep(333,5)),2)
?V2<-c(1:23)
Tem1<-cbind(V1,V2)
Tem2<-Tem1[1:20,]
How do I get outcome like?
[21,] 333 21
[22,] 333 22
[23,] 333 23
P.S. I used 'setdiff' before, but seems it only works for vectors but not for dataframe??
Sorry for so many questions today, as I'm coding for a work deadline tonight.
Many thanks!
Cheers
HJ
On Wed, Mar 6, 2013 at 1:55 PM, arun <smartpink111 at yahoo.com> wrote:
Hi,
>You can also try this:
>?Tem3<- list()
>?for(i in unique(Tem1[,1])) {
>?Tem3[[i]]<- subset(Tem1,Tem1[,1]==i)
>?Tem4<- do.call(rbind,Tem3)
>?}
>head(Tem4)
>#????? V1 V2
>#[1,] 111? 1
>#[2,] 111? 2
>#[3,] 111? 3
>#[4,] 111? 4
>#[5,] 111 13
>#[6,] 111 14
>
>
>#or
>Tem3<-c(NA,NA)
>?for(i in unique(Tem1[,1])) {
>?Tem2<- subset(Tem1, Tem1[,1]==i)
>?Tem3<- rbind(Tem3,Tem2)
>?Tem5<- Tem3[-1,]
>?}
>head(Tem5)
>#? V1 V2
># 111? 1
># 111? 2
># 111? 3
># 111? 4
># 111 13
># 111 14
>
>A.K.
>
>
>________________________________
>From: HJ YAN <yhj204 at googlemail.com>
>
>To: arun <smartpink111 at yahoo.com>
>Cc: r-help at r-project.org
>Sent: Wednesday, March 6, 2013 8:24 AM
>Subject: Re: [R] How to combine conditional argument and logical argument in R to create subset of data...
>
>
>
>Hi Arun
>
>
>Thank you so much for the help, that's really helpful!!
>
>Also I have a quick question about the code below where I can not see why it doesn't work...
>
>I know the I shou
>
>V1<-c(rep(111,4),rep(222,4),rep(333,4),rep(111,4),rep(222,4),rep(333,3))
>V2<-c(1:23)
>Tem1<-cbind(V1,V2)
>
>
>So Tem 1 looks like...
>> Tem1
>? ? ? ?V1 V2
>?[1,] 111 ?1
>?[2,] 111 ?2
>?[3,] 111 ?3
>?[4,] 111 ?4
>?[5,] 222 ?5
>?[6,] 222 ?6
>?[7,] 222 ?7
>?[8,] 222 ?8
>?[9,] 333 ?9
>[10,] 333 10
>[11,] 333 11
>[12,] 333 12
>[13,] 111 13
>[14,] 111 14
>[15,] 111 15
>[16,] 111 16
>[17,] 222 17
>[18,] 222 18
>[19,] 222 19
>[20,] 222 20
>[21,] 333 21
>[22,] 333 22
>[23,] 333 23
>
>I would like the outcome to be...
>
>? ? ? V1 V2
>
>? ? ?111 ?1
>? ? ?111 ?2
>? ? ?111 ?3
>? ? ?111 ?4
>? ? ?111 13
>? ? ?111 14
>? ? ?111 15
>? ? ?111 16
>? ? ?222 ?5
>? ? ?222 ?6
>? ? ?222 ?7
>? ? ?222 ?8
>? ? ?222 17
>? ? ?222 18
>? ? ?222 19
>? ? ?222 20
>? ? ?333 ?9
>? ? ?333 10
>? ? ?333 11
>? ? ?333 12
>? ? ?333 21
>? ? ?333 22
>? ? ?333 23
>
>
>So I tried code as below?
>------------------------------------------
>Tem3<-c(NA,NA)
>for(i in length(unique(Tem1[,1]))){
>Tem2<-subset(Tem1,Tem1[,1]==unique(Tem1[,1])[i])
>Tem3<-rbind(Tem3,Tem2)
>Tem3
>}
>Tem4<-Tem3[-1,]
>---------------------------------------
>
>And only get this...
>
>
>?V1 V2
>?333 ?9
>?333 10
>?333 11
>?333 12
>?333 21
>?333 22
>?333 23
>
>
>I tried to run the code step by step, e.g. letting i=1, then i=2, then i= 3, and updating my Tem3, I did get what I wanted, but wondered why in the loop above it did not work...??
>
>
>Many thanks in advance!
>
>HJ
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>On Wed, Mar 6, 2013 at 4:36 AM, arun <smartpink111 at yahoo.com> wrote:
>
>Hi,
>>
>>?b[b[,4]>15 & (b[,1]>4|is.na(b[,1])) & (b[,2]>4|is.na(b[,2])),]
>>?# ?? [,1] [,2] [,3] [,4] [,5]
>>#[1,]??? 6?? NA?? NA?? 16?? 20
>>#[2,]?? NA??? 5?? NA?? 17?? 21
>>A.K.
>>
>>
>>
>>----- Original Message -----
>>From: HJ YAN <yhj204 at googlemail.com>
>>To: r-help at r-project.org
>>Cc:
>>Sent: Tuesday, March 5, 2013 9:33 PM
>>Subject: [R] How to combine conditional argument and logical argument in R to create subset of data...
>>
>>Dear R user
>>
>>I have data created using code below
>>
>>b<-matrix(2:21,nrow=4)
>>b[,1:3]=NA
>>b[4,2]=5
>>b[3,1]=6
>>
>>Now the data is
>>
>>> b
>>? ? ? ? ?[,1]? [,2]? ?[,3]? [,4]? [,5]
>>[1,]? ?NA? ?NA? ?NA? ?14? ?18
>>[2,]? ?NA? ?NA? ?NA? ?15? ?19
>>[3,]? ? ? 6? ?NA? ?NA? ?16? ?20
>>[4,]? ?NA? ? 5? ? ?NA? ? 17? ?21
>>
>>
>>I want to keep data in column 4 greater than 15 and the value in column 1 &
>>2 either greater than 4 or is 'NA'. So I would like to have
>>my outcome as below...
>>
>>[3,]? ?6? ?NA NA 16 20
>>[4,] NA 5 NA 17 21
>>
>>I thought something like the code below gonna to work but it only returns
>>the last row,e.g "NA 5 NA 17 21". ...
>>
>>bb<-b[which( (b[,2]>4 | b[,2]==NA) & (b[,1]>4 | b[,1]==NA) & b[,4]>15) ,])
>>
>>
>>Please could anyone help?
>>
>>Many thanks in advance
>>
>>HJ
>>
>>??? [[alternative HTML version deleted]]
>>
>>______________________________________________
>>R-help at r-project.org mailing list
>>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.
>>
>>? ???
>
______________________________________________
R-help at r-project.org mailing list
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.