dplyr:group\u by&mutate变量不能调用mean/sd函数

你想要baseR函数 with() .

mtcars %>% 
  group_by(cyl) %>% 
  mutate(group_pct = hp / sum(hp)) %>%
  with(paste0('Words: ', mean(group_pct)))

[1] "Words: 0.09375"

你最初尝试的问题是 group_pct 没有在全局环境中定义,因此当它在查找中找不到它时,会收到错误消息。

with paste0() 在通过管道传递的数据帧的环境中进行函数调用。所以它发现 并返回预期结果。

根据OP的澄清:

mtcars %>% 
  group_by(cyl) %>% 
  mutate(group_pct = hp / sum(hp)) %>%
  pull(group_pct) %>%
  mean() %>%
  paste0("Words: ", .)

[1] "Words: 0.09375"

问题在于你是如何进入 mean 功能。查看错误消息:

Warning message:
In mean.default(., group_pct)

group_pct 列,但实际上发生的是 意思是 正在接收整个管道数据帧 . 表示管道的输出)和对象 集团公司 可能存在也可能不存在。

看看这个答案: https://stackoverflow.com/a/38475455/8366499

如果要将管道数据框在均值函数中,需要使用花括号 {} 所以对mean的调用被看作是表达式,而不是函数调用。然后,您可以将 根据需要设置对象:

mtcars %>% 
    group_by(cyl) %>% 
    mutate(group_pct = hp / sum(hp)) %>% 
    {mean(.$group_pct)} %>%
    paste0('Words: ', .)

[1] "Words: 0.09375"

library(tidyverse)
library(purrr)

mtcars %>% 
  mutate(group_pct = hp / sum(hp)) %>% 
  summarise_all(mean) %>%
  select(group_pct) %>%
  map(function(x) paste0(" Word ", x))

结果是:

"Word 0.03125"