Mam tę ramkę danych

<code>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
</code>

Ta funkcja wybiera z niej losowy wiersz:

<code>randomRows = function(df,n){
  return(df[sample(nrow(df),n),])
}
</code>

to znaczy

<code>randomRows(df,1)
</code>

Ale chcę losowo wybrać jeden wiersz na „imię” (lub na „id”, które jest takie samo) i połączyć ten cały wiersz w nową tabelę, więc w tym przypadku trzy wiersze. To musi przechodzić przez pętlę danych 2000+ wierszy. Pokaż mi jak to zrobić!