Ошибка в группировке переменной при попытке создать функцию для получения частоты с использованием dplyr в R

Question

У меня есть набор данных, который выглядит следующим образом

df1 <- data.frame (
age = rep(c("40-44", "45-49", "50-54", "55-59", "60-64"),4),
dep = rep(c("Dep1", "Dep2", "Dep3", "Dep4", "Dep5"),4),
ethnic_1 = c(rep("M",4),rep("NM",7),rep("P", 3), rep("A", 6)),
ethnic_2 = c(rep("M",8),rep("NM",6),rep("P",2),rep("A", 4)),
gender = c(rep("M",10), rep("F",10))
)

Что я хочу сделать, так это получить сравнение двух этнических классификаций в этих информационных фреймах, создав и выполнив следующую функцию

Comp_fun <- function(data, var1, ...) {

group_var <- quos(...)

var_quo <- enquo(var1)

df <- data %>% 
 group_by(!!! group_var) %>%
 summarise (n = n()) %>%
 spread(key = !!! var_quo, value = count)

return(df)
}

eth_comp <- Comp_fun(df1, ethnic_1, ethnic_1, ethnic_2)

Когда я запускаю этот код, я получаю следующее сообщение об ошибке Error: Invalid column specification

В качестве вывода из этого я хочу получить таблицу 4 x 4, показывающую количество этнических 1 по горизонтали и число этнических 2 по вертикали, а также числа, где они совпадают, а где нет. т.

Мне кажется, я неправильно использую quo enquo. Может кто-нибудь сказать мне, где я иду не так?

Answer 1

Нет переменной 'count'. Это должно быть 'n'. Также, var_quo - это quosure, а не quosures. Таким образом, его можно оценить с помощью !!

Comp_fun <- function(data, var1, ...) {

  group_var <- quos(...)

  var_quo <- enquo(var1)

  data %>% 
    group_by(!!! group_var) %>%
    summarise (n = n()) %>%
    spread(key = !! var_quo, value = n)


}

eth_comp <- Comp_fun(df1, ethnic_1, ethnic_1, ethnic_2)
eth_comp
# A tibble: 4 x 5
#  ethnic_2     A     M    NM     P
#  <fct>    <int> <int> <int> <int>
#1 A            4    NA    NA    NA
#2 M           NA     4     4    NA
#3 NM          NA    NA     3     3
#4 P            2    NA    NA    NA