我有一个数据框架,可以用下面的例子来近似:
z <- c(0,1,2,3,4,5,7,6,5,4,3,2,3,2)
y <- c(2,2,2,2,3,3,3,4,4,4,4,5,5,5)
a <- c(1,1,1,2,2,2,2,6,6,6,6,7,7,7)
x <- data.frame(z,y,a)
我想要做的是在一个新的数据帧中提取每个组的第三行,每一行按y列和a列分组。我只能想出一些代码来拖动每个组的最后一行。
df1<-ddply(df1, .(y,a), transform, nrow=nrow(z))
df1n<-array(0,c(0,3)