如何在R中生成带书名标签的图书提及次数统计表？

我来帮你搞定这个问题！你遇到的核心问题是table()生成的统计结果在HTML输出里只显示数字，没对应上书名，其实只要调整输出方式或者转换数据格式就能轻松解决。

先排查问题根源 #

首先确认你的library$Title变量类型是否正确，运行下面的代码检查：

class(library$Title)

如果结果是character或者factor，那table()本身应该能生成带书名标签的统计结果，只是在R Markdown的HTML输出里默认渲染方式没把行名（书名）显示出来。如果是其他类型（比如数值型），先把它转换成字符型：

library$Title <- as.character(library$Title)

解决方案1：转换为数据框输出 #

把table()的结果转换成数据框，就能像你参考的clinical.trial示例那样，明确显示书名和对应次数：

# 生成统计表
my_table <- table(library$Title)
# 转换为数据框并设置清晰的列名
book_counts <- as.data.frame(my_table)
colnames(book_counts) <- c("Book Title", "Mention Count")
# 输出表格
book_counts

编织后HTML里会显示两列：一列是具体书名，一列是对应的提及次数，完全匹配你的需求。

解决方案2：用knitr::kable()美化输出 #

如果想要更美观的表格样式，推荐用knitr包的kable()函数，它会自动适配HTML格式，生成整洁的带标题表格：

library(knitr)
# 生成并转换表格
my_table <- table(library$Title)
book_counts <- as.data.frame(my_table)
colnames(book_counts) <- c("Book Title", "Mention Count")
# 生成美化后的表格
kable(book_counts, caption = "各类图书提及次数统计")

为什么之前的代码只显示数字？ #

你参考的table(clinical.trial$center)能显示标签，是因为clinical.trial$center是因子类型，且控制台输出默认展示了因子水平；而你的情况是在R Markdown的HTML渲染中，默认的table对象输出没有把行名（书名）展示出来，转换成数据框后就解决了这个渲染问题。

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