1

我有两个数据框，这是第一个：

df <- data.frame(p=letters[1:3],y1=c(2,4,3))
df
  p y1
1 a 2
2 b 4
3 c 3

第二个：

df2 <- data.frame(p=rep(letters[1:3],c(3,2,4)),y2=c(3,1,1,4,3,4,3,3,1),d=rep(1,length=9))
df2
  p y2 d
1 a 3 1
2 a 1 1
3 a 1 1
4 b 4 1
5 b 3 1
6 c 4 1
7 c 3 1
8 c 3 1
9 c 1 1

我想要做的是让那些行 in ，对于(a,b,c 等) wheredf2的每个值（在这种情况下都是行），大于in分组。pd=1y2y1pdf

因为这个解释可能没有意义，需要踢的两行：line 1 indf2，因为 for a，y2=3大于y1=2in df，第 6 行，因为 for cin df2，y值为 4，但 in 的c值为df3 .

由于我正在使用 data.tables，因此“data.table-solution”会很好，可能类似于：

setkey(df2,d)
df2[1,y>??,by="p"]
4

3 回答 3

6

您应该merge在子集之前使用。

使用data.table：

library(data.table)
merge(data.table(df1,key='p'),
      data.table(df2,key='p'))[d==1 & y2 > y1]
   p y1 y2 d
1: a  2  3 1
2: c  3  4 1

使用base merge：

subset(merge(df1,df2), d==1 & y2 > y1)
  p y1 y2 d
1 a  2  3 1
6 c  3  4 1

编辑

对于data.table解决方案，这里最好使用连接 Y[X] ，使用 X 的键查找 Y 的行。（LEFT OUTER JOIN）

DF2 <- data.table(df2,key='p')
DF1 <- data.table(df1,key='p')
DF2[DF1][d==1 & y2 > y1]

   p y2 d y1
1: a  3 1  2
2: c  4 1  3
于 2013-08-14T12:54:04.273 回答
1

类似于 rmk 但使用 plyr：

library(plyr)
dfa <- data.frame(p=letters[1:3],y1=c(2,4,3))
dfa

dfb <- data.frame(p=rep(letters[1:3],c(3,2,4)),y2=c(3,1,1,4,3,4,3,3,1),d=rep(1,length=9))
dfb

dfb <- join(dfa, dfb, by = "p", type = "left", match = "all")
dfb

dfb$z <- ifelse(dfb$y2>dfb$y1, 1, 0)
dfb[dfb$z==1, ]
于 2013-08-14T12:59:34.950 回答
0

尝试：

df3 <- merge(df,df2,by=1)
> df3
  p y1 y2 d
1 a  2  3 1
2 a  2  1 1
3 a  2  1 1
4 b  4  4 1
5 b  4  3 1
6 c  3  4 1
7 c  3  3 1
8 c  3  3 1
9 c  3  1 1


> df3[df3$y2>df3$y1 & df3$d==1,]
  p y1 y2 d
1 a  2  3 1
6 c  3  4 1
于 2013-08-14T12:51:50.537 回答