library(tidyverse)
Используя простой пример из набора данных mtcars, я могу группировать по цилиндрам и получать базовые подсчеты с помощью этого ...
mtcars%>%group_by(cyl)%>%summarise(Count=n())
И я могу группировать как по цилиндрам, так и по я ...
mtcars%>%group_by(cyl,am)%>%summarise(Count=n())
Затем я могу создать функцию, которая позволит мне вводить несколько группирующих переменных.
Fun<-function(dat,...){
dat%>%
group_by_at(vars(...))%>%
summarise(Count=n())
}
Однако вместо того, чтобы вводить несколько группирующих переменных, я хотел бы вывести список из двух сводок, один для счетчиков с цил в качестве группирующей переменной, а другой для цил и am в качестве группирующих переменных.
Я чувствую, что должно сработать что-то похожее на следующее, но я не могу этого понять. Я надеюсь на решение rlang или purrr. Помощь будет оценена.
Groups<-list("cyl",c("cyl","am"))
mtcars%>%group_by(!!Groups)%>%summarise(Count=n())