将dplyr的计数应用于大量列以创建代码簿

Question

我有一个数据帧ov 100+变量，我想创建一个码本来查看每个变量的频率（理想情况下输出为excel）。现在，我正在使用以下代码：

freq_fun <- function(var){
  var <- enquo(var)
  frequencies <- raw %>% group_by(group, !!var) %>% tally()
  return(frequencies)
}

我在回复中添加了希望按列名称循环至少会向我显示输出但是这不成功。

此时，我的计划是执行以下操作：

for(i in colnames(rawxl[,9:107])){
  assign(paste0(i,"freq"), freq_queue(!!i))
}

将每个数据帧输出到csv，然后复制并粘贴到一个excel doc中。出于显而易见的原因，这是不可取的，但我无法看到明确的方法。有什么更好的方法呢？