[R] How to combine conditional argument and logical argument in R to create subset of data...

arun smartpink111 at yahoo.com
Wed Mar 6 17:12:56 CET 2013



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.




More information about the R-help mailing list