R中的随机行选择

Question

我有这个数据框

id <- c(1,1,1,2,2,3)
name <- c("A","A","A","B","B","C")
value <- c(7:12)
df<- data.frame(id=id, name=name, value=value)
df

此函数从中随机选择一行:

randomRows = function(df,n){
  return(df[sample(nrow(df),n),])
}

IE。

randomRows(df,1)

但我想为每个“名称”(或每个“id”)随机选择一行，并将整行连接到一个新表中，因此在本例中为三行。这必须循环遍历 2000 多行数据帧。请教我怎么做？!

Answer 1

我认为您可以使用 plyr 来做到这一点。包裹:

library("plyr")
ddply(df,.(name),randomRows,1)

这给你例如:

  id name value
1  1    A     8
2  2    B    11
3  3    C    12

这是你想要的？