Расчет каждого столбца, среднего по dplyr

library(dplyr)
mtcars %>% 
group_by(cyl, gear) %>%
summarise(across(everything(), mean))
Rümeysa Aksu