如何在flextable中隐藏百分比列，仅显示计数？

要让生成的表格只展示计数，关键是移除tabyl默认生成的百分比列，以下两种方法都能实现：

方法1：在数据处理阶段筛选列 #

在tabyl之后直接保留分类变量和计数列，剔除百分比列，再转换为flextable：

new_data <- df %>% 
  group_by(var1, var2) %>% 
  tabyl(var2) %>% 
  select(var2, n) %>%  # 仅保留分类项和计数
  arrange(desc(n)) %>% 
  flextable() %>% 
  print()

（注：原代码里的select(var1, var2)可以省略，因为分组后已经聚焦这两个变量了）

方法2：在flextable中删除百分比列 #

如果已经生成包含百分比的表格，用flextable自带的删除列函数移除percent列：

new_data <- df %>% 
  group_by(var1, var2) %>% 
  tabyl(var2) %>% 
  arrange(desc(n)) %>% 
  flextable() %>% 
  delete_cols("percent") %>%  # 删除百分比列
  print()

内容的提问来源于stack exchange，提问作者Jackie