在R中生成变量频率表并导出至LaTeX的方法问询

嘿，这个需求太常见了！我来给你两个实用的解决方案，既能生成规范的频率表（还能轻松重命名行），又能导出干净的LaTeX代码，完全避开那些你不需要的统计量。

方案一：手动整理频率表 + kableExtra/xtable导出 #

这个方法自由度最高，你可以完全控制表格的样子，包括重命名分类值、调整列名这些细节。

首先，假设你的数据框叫df，我们以Male变量（0=女性，1=男性）为例：

1. 先加载dplyr来整理数据：

library(dplyr)

# 生成频数+比例表，同时重命名分类值
male_freq <- df %>%
  count(Male) %>%
  mutate(
    proportion = n / sum(n),
    # 把0/1替换成易懂的标签
    Male = case_when(
      Male == 0 ~ "Female",
      Male == 1 ~ "Male",
      TRUE ~ as.character(Male) # 防止有其他意外取值
    )
  ) %>%
  # 重命名列，让表格更规范
  rename(
    `Gender` = Male,
    `Count` = n,
    `Proportion` = proportion
  )

2. 用kableExtra导出LaTeX（这个包做出来的LaTeX表格非常美观，支持booktabs等格式）：

library(kableExtra)

kable(male_freq, format = "latex", booktabs = TRUE, caption = "Frequency Table for Gender") %>%
  kable_styling(latex_options = c("striped", "hold_position"))

如果你习惯用xtable，也可以这么写：

library(xtable)

print(xtable(male_freq, caption = "Frequency Table for Gender"), 
      include.rownames = FALSE, # 去掉默认行号
      booktabs = TRUE)

方案二：调整stargazer参数，只输出你要的内容 #

你说stargazer会带多余的统计量，其实是因为默认用了描述性统计模式——只要切换成直接输出表格的模式，就能去掉那些最大值、标准差啦！

还是以Male变量为例：

library(stargazer)

# 先把原始表格转成规范的数据框，并重命名
male_table <- as.data.frame(table(df$Male)) %>%
  mutate(Proportion = Freq / sum(Freq)) %>%
  rename(
    Gender = Var1,
    Count = Freq
  ) %>%
  mutate(Gender = ifelse(Gender == 0, "Female", "Male"))

# 用stargazer导出，关键是设置`summary=FALSE`
stargazer(male_table, 
          type = "latex", 
          summary = FALSE, # 关闭描述性统计
          caption = "Frequency Table for Gender",
          rownames = FALSE, # 去掉行号
          column.labels = c("Gender", "Count", "Proportion"))

这样生成的LaTeX代码就只有你要的频数和比例，完全没有多余内容！

批量处理多个变量 #

如果你有一堆分类变量要处理，可以写个循环批量生成表格：

library(dplyr)
library(kableExtra)

# 列出你要处理的所有分类变量
cat_vars <- c("Male", "Education", "Married") # 替换成你的变量名

for(var in cat_vars){
  # 生成每个变量的频率表
  freq_table <- df %>%
    count(.data[[var]]) %>%
    mutate(
      proportion = n / sum(n),
      # 这里可以根据变量的取值自定义标签，比如0=No，1=Yes
      category = case_when(
        .data[[var]] == 0 ~ "No",
        .data[[var]] == 1 ~ "Yes",
        TRUE ~ as.character(.data[[var]])
      )
    ) %>%
    select(category, n, proportion) %>%
    rename(
      `Category` = category,
      `Count` = n,
      `Proportion` = proportion
    )
  
  # 导出LaTeX代码，每个表格单独输出
  cat(kable(freq_table, format = "latex", booktabs = TRUE, caption = paste("Frequency Table for", var)) %>%
        kable_styling(latex_options = "striped"), "\n\n")
}

选哪个方案看你习惯：如果想要完全自定义表格样式，选方案一；如果已经熟悉stargazer，方案二调整参数就能搞定。

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