R中的聚合平均值

【问题标题】：Aggregate mean in RR中的聚合平均值
【发布时间】：2021-08-12 23:40:56
【问题描述】：

我正在尝试查看 按眼睛颜色分组的身高平均值 的字符，在他们的名字中有一个数字。我用聚合尝试过，但我无法找出解决方案

sw %>%
  filter(grepl('[0-9]',name))%>%
     aggregate(height~eye_color,mean)%>%
        setNames(c("Eye color","Mean"))

【问题讨论】：

Pipe 和 filter() 表示您正在使用 dplyr。为什么不使用 group_by() 和 summarise()？
是的，我也试过了，但还是不知道怎么做
如果您想要完整的答案，请提供可重现的示例。但简而言之 group_by(Eyecolor) %>% summarise(new_name = mean(height)) 注意 Eyecolor 必须没有空格
好吧，我知道了。谢谢！

【解决方案1】：

如果我们想使用base R (R 4.1.0)

sw |>
    subset(grepl('[0-9]', name)) |>
    {\(dat) aggregate(cbind(Mean = height) ~ eye_color, data = dat, mean)}()

-输出

#  eye_color Mean
#1       red  131
#2 red, blue   96
#3    yellow  167

data(starwars)
sw <- starwars

【讨论】：

【解决方案2】：

dplyr 解决方案：

library(dplyr)

starwars %>%
  filter(grepl('[0-9]',name)) %>% 
  group_by(eye_color) %>% 
  summarise(mean = mean(height))

输出：

  eye_color  mean
* <chr>     <dbl>
1 black        NA
2 red         131
3 red, blue    96
4 yellow      167

【讨论】：