Tengo el siguiente df y quiero agruparlo por modelo y color
d1=data.frame(Modelo = sample(c("ModeloA","ModeloB","ModeloC","ModeloD"), 20, replace=TRUE),
Color = sample(c("ColorA","ColorB","ColorC"), 20, replace=TRUE),
Distancia = sample(100:300, 20, replace=TRUE),
Id=1:20)
d1 %>%
group_by(Modelo,Color) %>%
summarise(n= n())
Ahora supongamos que tengo una función y en cierto momento el usuario tiene que indicar las columnas a agrupar:
agrupar <- function(col){
d1 %>%
group_by(col) %>%
summarise(n= n())
}
agrupar(c("Modelo","Color"))
Pero group_by no reconoce col.