Мы можем использовать имя столбца без кавычек внутри функции tidyverse
library(dplyr)
PlayerSalariesProject %>%
group_by(WAR) %>%
mutate(n = n()) %>%
group_by(GradingScale, n) %>%
summarise(meanWAR = mean(WAR))
Поскольку summarise
возвращает только суммированные столбцы вместе с переменными группировки, мы можем использовать mutate
, а затем сделать еще один group_by