重命名多个dplyr摘要_每个调用

我正在以多种方式聚合多个变量，并且不得不以一种非常笨拙的方式重新命名。如果我可以重命名所有列，那么我的分组列（在本例中为date）每次都会被重命名，并且最后不会合并，这会更简单

df <- group_by(df, date)

sums <- df%>%
  summarise_each(funs(sum), v1, v2, v3)
names(sums)[2:length(sums)] <- paste0(names(sums)[2:length(sums)], "_sum")

means <- df%>%
  summarise_each(funs(mean))
names(means)[2:length(means)] <- paste0(names(means)[2:length(means)], "_mean")

maxs <- df%>%
  summarise_each(funs(max), v45, v46, v47)
names(maxs)[2:length(maxs)] <- paste0(names(maxs)[2:length(maxs)], "_max")

text.stats <- Reduce(function(...) merge(..., by = 'date', all=TRUE), list(sums, means,  maxs))

---

df您可以在开发版本dplyr\u 0.4.3.9001的
summary\u each
中添加一个名称：
summary\u each（funs（mean=mean））
太棒了，谢谢您的提示！您可以在开发版本dplyr_0.4.3.9001的
summary_each
中添加一个名称：
summary_each（funs（mean=mean））
太棒了，谢谢您的提示！