r - r の列のレベルごとに n 行を返す

Question

私はデータフレームを持っています

df1 = data.frame(Site=c(rep("A",5),rep("B",7)),Species=sample(1:100, size=12))

各サイトの最初の 3 行のみが返されるように、データフレームをフィルタリングします。すなわち。データフレームを返す

df2=data.frame(Site=c(rep("A",3),rep("B",3)),Species=c(3,84,45,38,39,22))

何か案は？ありがとう

Answer 1

多分このようなもの：

do.call("rbind", lapply(split(df1, df1$Site), function(x) x[1:3,]))

Answer 2

を使用して、最初の 3 行を簡単に選択できますddply。

library(plyr)
ddply(df1, "Site", function(df) df[1:min(nrow(df), 3),])

を使用min(nrow(df), 3)すると、サイトが 2 回しか表示されない場合、3 つの行を選択しようとはしません。