如何在GGPLOT2中设置包含固定内容与变量的副标题？

当然可以实现这个需求！其实在ggplot2里制作这种包含动态变量的副标题非常简单，核心思路就是把固定文本和动态变量拼接成完整的字符串，再传给labs()函数的subtitle参数就行。下面给你两种常用的实现方式：

方法一：使用base R的paste()函数 #

这是最基础的方式，不需要额外安装包，用paste()把固定文本和变量拼接起来：

library(ggplot2)

# 定义动态数值变量
trend_value <- 54

# 绘制示例图表
ggplot(mtcars, aes(x = wt, y = mpg)) +
  geom_point(color = "#2c3e50") +
  labs(
    title = "汽车重量 vs 燃油效率",
    subtitle = paste("Trend:", trend_value, "%"),
    x = "重量（千磅）",
    y = "油耗（英里/加仑）"
  )

方法二：使用glue包（更直观的语法） #

如果你觉得paste()的拼接方式不够清晰，可以用glue包——它支持模板化的字符串写法，直接把变量放在{}里就能自动替换，代码可读性更强：

library(ggplot2)
library(glue)

# 动态数值可以是从数据计算来的，比如这里模拟一个统计值
trend_value <- round(cor(mtcars$wt, mtcars$mpg) * 100)

ggplot(mtcars, aes(x = wt, y = mpg)) +
  geom_point(color = "#e74c3c") +
  geom_smooth(method = "lm", se = FALSE, color = "#2980b9") +
  labs(
    title = "汽车重量与油耗的线性趋势",
    subtitle = glue("Trend: {trend_value} %"),
    x = "重量（千磅）",
    y = "油耗（英里/加仑）"
  )

额外提示 #

不管用哪种方法，动态变量都可以是任意计算结果——比如从数据框里提取的统计值、函数返回值，甚至是实时生成的数值，只要把它赋值给对应的变量名，副标题就会自动更新成对应的内容。

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