怎样得到数据框的补集

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

a,b是两个数据框，b是a中的一些行组成的，怎样得到a-b 。b里的数据的行列名与a中保持一致。请大家帮帮忙！

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏2 回帖

关键词：数据框

像这样

1. d<-rnorm(100)
   
2. as.data.frame(d)
   
3. d1<-sample(d,30)
   
4. d2<-d[d%in%d1==FALSE]#d去除d1后剩余的子集

复制代码

萧风123 发表于 2016-3-20 21:03
像这样

试了，好像不行啊
如下：my.dataset <- data.frame(site=c('A','B','A','A','B'),
season=c('Winter','Summer','Summer','Spring','Fall'),
pH = c(7.4,6.3,8.6,7.2,8.9))
my.dataset1 <- data.frame(site=c('A','A','B'),
  season=c('Winter','Spring','Fall'),
pH = c(7.4,7.2,8.9))
> d2<-my.dataset[my.dataset%in%my.dataset1==FALSE]
> d2
  site season  pH
1    A Winter 7.4
2    B Summer 6.3
3    A Summer 8.6
4    A Spring 7.2
5    B   Fall 8.9

1. a<-data.frame(a1=c(1:10),a2=c(1:10))
   
2. b<-data.frame(b1=(1:5),b2=c(1:5))
   
3. c<-subset(a,(a$a1)!=(b$b1))
   
4. c

复制代码

萧风123 发表于 2016-3-20 21:14

没怎么看懂，a1与b1您设的是一样的，能否用我上面贴的数据集试一下？非常谢谢！

小鱼最棒 发表于 2016-3-20 21:22
没怎么看懂，a1与b1您设的是一样的，能否用我上面贴的数据集试一下？非常谢谢！

最好的方式是给两个数据集设统一的ID字段

行列名保持一致的话，a[setdiff(rownames(a),rownames(b)),]
但你给的例子中行名不一致

万人往LVR 发表于 2016-3-20 21:29
行列名保持一致的话，a[setdiff(rownames(a),rownames(b)),]
但你给的例子中行名不一致[/back ...

你的方法是正确的，谢谢！我给的例子确实不一致，不好意思。

1. library(sqldf)
   
2. my.dataset <- data.frame(site=c('A','B','A','A','B'),
   
3.                          season=c('Winter','Summer','Summer','Spring','Fall'),
   
4.                          pH = c(7.4,6.3,8.6,7.2,8.9))
   
5. my.dataset1 <- data.frame(site=c('A','A','B'),
   
6.                           season=c('Winter','Spring','Fall'),
   
7.                           pH = c(7.4,7.2,8.9))
   
8. sqldf('SELECT * FROM [my.dataset] EXCEPT SELECT * FROM [my.dataset1]')

复制代码

萧风123 发表于 2016-3-21 14:16

谢谢！