根据空列将数据框列聚合到列表中

Question

我正在尝试将数据框的特定列聚合到列表中并连接行。谢谢你的帮助。例如：

df <-data.frame(id=c(12,NA,NA,15,NA),name=c("John",NA,NA,"Jane",NA),grades=c(88,65,94,73,77))
> df
  id name grades
1 12 John     88
2 NA <NA>     65
3 NA <NA>     94
4 15 Jane     73
5 NA <NA>     77

我需要将结果数据框看起来像这样：

df1 <- data.frame(id=c(12,15),name=c("John","Jane"))
df1$grades <- list(c(88,65,94),c(73,77))
> df1
  id name     grades
1 12 John 88, 65, 94
2 15 Jane     73, 77