dplyr：组均值居中（变异+汇总）

Question

使用 dplyr 进行分组的有效/首选方法是什么，即获取组 ( mutate) 的每个元素并对其执行操作以及summarize该组的汇总统计 ( )。以下是人们如何以mtcars使用基数 R为中心进行分组：

do.call(rbind, lapply(split(mtcars, mtcars$cyl), function(x){ 
    x[["cent"]] <- x$mpg - mean(x$mpg)
    x
}))

Answer 1

你可以试试

library(dplyr)
mtcars %>%
      add_rownames()%>% #if the rownames are needed as a column
      group_by(cyl) %>% 
      mutate(cent= mpg-mean(mpg))