r - 有条件地聚合数据框

Question

我的数据框包含变量 x 和 y 的纵向测量值，在不同的时间点 time，在几个主题 编号。但是 x 和 y 有一些缺失值。

我想要的是聚合数据框，以便为每个 id 我得到第一个定义的 x 和 y 值。 x 和 y 将在不同的时间点，但这并不重要。

testdf<-data.frame(id=c(rep("A",4),rep("B",4),rep("C",4) ), x=c(NA, NA, 1,2, 3, NA, NA, 1, 2, NA,NA, 5), y=rev(c(NA, NA, 1,2, 3, NA, NA, 1, 2, NA,NA, 5)), time=c(1,2,3,4,0.1,0.5,10,20,3,2,1,0.5))

这样 testdf 就会减少到

 id x y
1  A 1 5
2  B 3 1
3  C 5 1

更新: 允许数据框具有大量变量的解决方案是否可能(无需显式定义的解决方案或函数) x 和 y 变量，以防数据框有大量变量？

Answer 1

这是一个基本的 R 方法——与@kohske 的答案几乎相同的概念，但使用 by 和 lapply。

不过，首先，您需要按“id”和“时间”对您的 data.frame 进行排序(这也适用于@kohske 的回答)。

testdf2 <- testdf[order(testdf$id, testdf$time), ]

do.call(rbind, by(testdf2[2:3], 
                  testdf2$id, 
                  FUN = function(aa) 
                    lapply(aa, function(bb) na.omit(bb)[1])))
#   x y
# A 1 5
# B 3 1
# C 5 1

在 by 的第一部分中，指定要“聚合”的列。