R Markdown中使用ggplot添加图表底部长说明并导出PDF的问题咨询

可行实现方案 #

方案1：基于R Markdown原生fig.cap实现（推荐，符合R Markdown设计理念） #

你之前使用fig.cap无效果大概率是没开启PDF输出的图表标题功能，也没设置标题对齐规则，按以下步骤配置即可：

1. 先在R Markdown文件顶部的YAML头添加如下配置，无需额外修改独立LaTeX文件：

output: 
  pdf_document:
    fig_caption: true # 开启图表标题支持
header-includes:
  - \usepackage[justification=raggedright,singlelinecheck=false]{caption}

参数说明：justification=raggedright设置所有图表标题左对齐，singlelinecheck=false避免短标题自动居中。

2. 绘图代码块正常使用fig.cap参数即可，长文本会自动按页面宽度换行，同时支持交叉引用：

`r ''````{r fig-mtcars, fig.cap="\\label{fig:mtcars}这里可以放任意长度的图表说明文本，系统会自动按照PDF页面宽度完成换行，不需要手动插入任何换行符，正文引用该图时直接使用\\ref{fig:mtcars}即可"}
library(ggplot2)
ggplot(mtcars, aes(x = wt, y = mpg)) +
  geom_point()
```

方案2：ggplot原生caption实现（无需修改YAML配置） #

如果不需要LaTeX层级的图表编号和交叉引用，仅需要在图片底部加左对齐长说明，可以用字符串折行函数配合ggplot主题配置实现：

library(ggplot2)
library(stringr)

# 定义长说明文本
long_caption <- "这里是任意长度的图表底部说明文本，通过str_wrap函数自动折行，调整width参数可以控制每行的字符长度，适配不同的图片宽度"
# 按指定宽度折行，width可根据需求调整
wrapped_caption <- str_wrap(long_caption, width = 60)

ggplot(mtcars, aes(x = wt, y = mpg)) +
  geom_point() +
  labs(caption = wrapped_caption) +
  theme(
    plot.caption = element_text(hjust = 0) # hjust=0设置说明文本左对齐
  )

方案差异说明 #

• 方案1生成的是LaTeX标准图表标题，会自动纳入文档图表编号序列，支持交叉引用，适合学术论文、正式报告场景
• 方案2生成的说明是图片的一部分，不会被LaTeX识别为图表标题，也不会自动编号，适合不需要编号的补充说明场景

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