dplyr汇总，然后在同一管道中汇总

这个问题以前曾出现过，有一些解决方案，但对于这个具体案例，我找不到任何解决方案。e、 g

my_diamonds <- diamonds %>% 
  mutate(blah_var1 = rnorm(n()),
         blah_var2 = rnorm(n()),
         blah_var3 = rnorm(n()),
         blah_var4 = rnorm(n()),
         blah_var5 = rnorm(n()))

my_diamonds %>% 
  group_by(cut) %>% 
  summarise(MaxClarity = max(clarity),
            MinTable = min(table), .groups = 'drop') %>% 
  summarise_at(vars(contains('blah')), mean)

这将返回一个TIBLE，但仅针对blah变量，缺少MaxClarity和MinTable

---

有没有办法在同一dplyr链中组合Summary和Summary_at？

Summary的一个问题是，在第一次调用Summary之后，我们只会得到分组中的列，即“cut”和总结列，即“MaxClarity”和“MinTable”。此外，在第一个

总结

步骤之后，分组将使用

groups='drop'

library(dplyr) # version >= 1.0
my_diamonds %>% 
  group_by(cut) %>% 
  summarise(MaxClarity = max(clarity),
            MinTable = min(table),
            across(contains('blah'), mean, na.rm = TRUE), .groups = 'drop')

---

大坝，对不起，给我一秒美丽的，从来都不知道对面。非常感谢。

library(dplyr) # version >= 1.0
my_diamonds %>% 
  group_by(cut) %>% 
  summarise(MaxClarity = max(clarity),
            MinTable = min(table),
            across(contains('blah'), mean, na.rm = TRUE), .groups = 'drop')