答案 0 :(得分:1)
library(dplyr)
cardata <- data.frame(country = c("poland", "germany", "austria",
"poland","poland", "austria",
"germany","germany"),
car = c("Fiat", "Fiat", "BMW", "Fiat", "BMW",
"Toyota", "Toyota", "Toyota"),
Age = c(5, 4, 2, 6, 6, 2, 1, 8),
Km = c(12e4, 10e4, 22e3, 14e4, 15e4, 52e3, 21e3, 22e4))
cardata %>%
group_by(country, car) %>%
summarise(AvgAge = mean(Age),
AvgKm = mean(Km))