如何找到分组均值并将其保存在R中的数据框对象中?