如何在R中生成含ggplot2 pch样式符号的解释性表格？

我之前做报告的时候也碰到过这个问题，试了几种方法都挺好用的，分享给你：

大部分常用的pch符号都有对应的Unicode字符，比如圆形（●，U+25CF）、三角形（▲，U+25B2），配合kableExtra的cell_spec函数就能给这些字符设置对应颜色，完美匹配ggplot2里的样式。

示例代码：

library(knitr)
library(kableExtra)

# 构造表格数据
symbol_table <- data.frame(
  Symbol = c("●", "●", "▲"),
  Color = c("黄色", "红色", "红色"),
  Description = c("对照组样本数据", "处理组A有效数据", "处理组B异常值")
)

# 给Symbol列设置对应颜色
symbol_table$Symbol <- cell_spec(
  symbol_table$Symbol,
  color = c("#FDD835", "#E53935", "#E53935") # 对应ggplot2里的黄色、红色十六进制码
)

# 生成表格，注意escape=FALSE必须设置，不然Unicode会被转义
kable(symbol_table, escape = FALSE, caption = "图表符号说明") %>%
  kable_styling(bootstrap_options = "striped")

如果你的图表用了一些特殊的pch编号（比如pch=8的星号、pch=21的填充圆形），没有对应的Unicode字符，就可以用grid包生成小的图形对象，再转换成HTML嵌入表格里，能100%匹配ggplot2的符号样式。

示例代码：

library(knitr)
library(kableExtra)
library(grid)
library(htmltools)

# 写一个函数，把pch编号+颜色转换成HTML格式的小图标
pch_to_html <- function(pch_id, color, size = 12) {
  # 创建图形对象
  symbol_grob <- pointsGrob(
    x = 0.5, y = 0.5,
    pch = pch_id,
    gp = gpar(col = color, cex = size / 12) # cex对应字体大小比例
  )
  # 转换成HTML标签
  html_tag <- as.tags(symbol_grob)
  paste(as.character(html_tag), collapse = "")
}

# 构造表格数据，对应ggplot2里的pch=19（实心圆）、pch=19、pch=17（实心三角）
symbol_table <- data.frame(
  Symbol = c(
    pch_to_html(19, "#FDD835"),
    pch_to_html(19, "#E53935"),
    pch_to_html(17, "#E53935")
  ),
  Description = c("对照组样本数据", "处理组A有效数据", "处理组B异常值")
)

# 生成表格
kable(symbol_table, escape = FALSE, caption = "图表符号说明") %>%
  kable_styling()

如果你的报告最终要导出成PDF（用LaTeX编译），可以直接用LaTeX的命令来生成带颜色的符号，不需要额外的图形处理：

示例代码：

library(knitr)
library(kableExtra)

# 构造表格数据，用LaTeX命令设置颜色和符号
symbol_table <- data.frame(
  Symbol = c(
    "\\textcolor{gold}{\\textbullet}",
    "\\textcolor{red}{\\textbullet}",
    "\\textcolor{red}{\\triangle}"
  ),
  Description = c("对照组样本数据", "处理组A有效数据", "处理组B异常值")
)

# 生成LaTeX表格，注意format="latex"
kable(symbol_table, escape = FALSE, caption = "图表符号说明", format = "latex") %>%
  kable_styling(latex_options = "hold_position")

注意：需要在你的R Markdown文档的YAML头部添加header-includes: \usepackage{xcolor}来加载LaTeX的颜色包。

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