如何在R Markdown PDF输出的脚注中插入PNG图标？

问题根源 #

直接用Markdown图片语法（![alt](path)）在add_footnote中无效，因为PDF输出依赖LaTeX渲染，kableExtra会将脚注内容转为LaTeX代码，而Markdown图片语法无法被LaTeX识别。

解决步骤 #

1. 使用LaTeX的\includegraphics命令 #

在脚注文本中直接嵌入LaTeX的图片调用命令，同时设置适配脚注字号的图标尺寸。注意R字符串中LaTeX的反斜杠需要用双反斜杠\\转义，或用R原生字符串（r"(...)"）避免转义。

2. 确保图片路径正确 #

图片需放在R Markdown文件同级的Images目录下（与你的代码结构一致），或使用绝对路径；若使用R项目，路径自动基于项目根目录，无需额外配置。

3. 可选：提前声明LaTeX包（若遇报错） #

R Markdown默认加载graphicx包（\includegraphics依赖），若出现加载失败报错，可在YAML头部添加：

header-includes:
  - \usepackage{graphicx}

修改后的完整代码 #

# 加载所需包
library(kableExtra)
library(dplyr)

# 创建示例数据
data <- data.frame(
  Category = c("Toyota", "Honda", "Ford", "Nissan"),
  Count = c(50, 60, 45, 55),
  Minimum = c(100, 110, 95, 105),
  Maximum = c(200, 210, 195, 205)
)

# 定义带LaTeX图标的脚注文本，设置height适配脚注字号
footnote_text <- c(
  "Decreasing < -5% \\includegraphics[height=0.8em]{Images/arrow_down.png}",
  "Slightly Decreasing -5 to -1% \\includegraphics[height=0.8em]{Images/arrow_right_down.png}",
  "Stagnant -1 to +1% \\includegraphics[height=0.8em]{Images/arrow_right.png}",
  "Slightly Increasing +1 to +5% \\includegraphics[height=0.8em]{Images/arrow_right_up.png}",
  "Increasing > +5% \\includegraphics[height=0.8em]{Images/arrow_up.png}"
)

# 创建表格并添加脚注
table <- kbl(data, booktabs = TRUE, col.names = c("Category", "Count", "Min", "Max")) %>%
  kable_styling(latex_options = c("striped"), font_size = 10, position = "center") %>%
  add_header_above(c(" " = 1, "(n)" = 1, "in Dollars" = 2)) %>%
  add_header_above(c(" " = 1, "Count" = 1, "Values" = 2)) %>%
  add_footnote(footnote_text, notation="none", escape = FALSE)  # 关键：关闭转义，让LaTeX代码生效

# 显示表格
table

关键说明 #

• escape = FALSE：必须在add_footnote中设置此参数，否则kableExtra会将LaTeX代码转义为普通文本，无法渲染图片。
• height=0.8em：设置图标高度为0.8个字符高度，完美适配脚注10号字体，可根据需求调整数值。
• 路径校验：若LaTeX报错"File not found"，需检查图片文件是否存在于指定路径，确认路径拼写无误。

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