R中的聚合平均值

Posted 2023-03-24

【中文标题】R中的聚合平均值

【英文标题】：Aggregate mean in R

【发布时间】：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

【讨论】：

第一个答案（我见过）使用 R-4.1 的 |> 和 anon-func \(dat) ..，很好。

如果有疑问，starwars 在dplyr 包中

【参考方案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