在R中交织两个data.frames

时间:2013-02-09 04:11:18

标签: r merge dataframe rbind do.call

我想在R中交织两个data.frame。例如:

a = data.frame(x=1:5, y=5:1)
b = data.frame(x=2:6, y=4:0)

我希望结果如下:

> x y
  1 5
  2 4
  2 4
  3 3
  3 3
  ...  

通过cbind x[1]获得y[1]x[2]获得y[2]等获得

最干净的方法是什么?现在我的解决方案涉及吐出到列表和合并。这非常难看:

lst = lapply(1:length(x), function(i) cbind(x[i,], y[i,]))
res = do.call(rbind, lst)

4 个答案:

答案 0 :(得分:12)

当然,“gdata”包中有interleave函数:

library(gdata)
interleave(a, b)
#    x y
# 1  1 5
# 6  2 4
# 2  2 4
# 7  3 3
# 3  3 3
# 8  4 2
# 4  4 2
# 9  5 1
# 5  5 1
# 10 6 0

答案 1 :(得分:5)

您可以通过为xy提供索引,rbind并按索引排序来执行此操作。

a = data.frame(x=1:5, y=5:1)
b = data.frame(x=2:6, y=4:0)
df <- rbind(data.frame(a, index = 1:nrow(a)), data.frame(b, index = 1:nrow(b)))
df <- df[order(df$index), c("x", "y")]

答案 2 :(得分:4)

这就是我的方法:

dat <- do.call(rbind.data.frame, list(a, b))
dat[order(dat$x), ]

do.call在第一步中是不必要的,但使解决方案更具扩展性。

答案 3 :(得分:3)

也许这是作弊,但 ggplot2 中的(非导出)函数interleave是我以前为自己使用而被盗的东西:

as.data.frame(mapply(FUN=ggplot2:::interleave,a,b))