如何在R绘图标题中用expression()显示LaTeX风格表达式

问题原因 #

你用paste()组合普通文本和expression()对象时，paste()会将expression强制转换为字符串，导致数学表达式无法被绘图系统解析渲染，所以beta[0]只能显示为纯文本。

解决方案 #

方法1：直接在expression()中组合文本与数学表达式 #

通过~（添加空格）或*（无空格）连接普通文本和数学表达式，直接传递给main参数：

# 带空格的标题
plot(NULL, xlim = c(1, 10), ylim = c(1, 10), 
     main = expression("Bias Curves" ~ (beta[0])))

# 无空格的标题
plot(NULL, xlim = c(1, 10), ylim = c(1, 10), 
     main = expression("Bias Curves"*(beta[0])))

方法2：使用bquote()动态插入变量 #

适合批量生成子图标题的场景，bquote()允许用.(变量名)语法插入预先定义的R对象：

coeff_labels <- c(expression(beta[0]), expression(beta[1]))
plot_titles <- c("Bias Curves", "Variance Curves")

# 绘制偏差曲线子图
plot(NULL, xlim = c(1, 10), ylim = c(1, 10), 
     main = bquote(.(plot_titles[1]) ~ (.(coeff_labels[1]))))

# 绘制方差曲线子图
plot(NULL, xlim = c(1, 10), ylim = c(1, 10), 
     main = bquote(.(plot_titles[2]) ~ (.(coeff_labels[2]))))

方法3：ggplot2替代方案（推荐批量绘图场景） #

如果使用ggplot2，可以结合ggtitle()和原生表达式，或借助latex2exp包直接使用LaTeX语法：

原生ggplot2 + expression

library(ggplot2)

ggplot() + 
  xlim(1, 10) + ylim(1, 10) +
  ggtitle(expression("Bias Curves" ~ (beta[0])))

使用latex2exp包（支持完整LaTeX语法）

library(ggplot2)
library(latex2exp)

ggplot() + 
  xlim(1, 10) + ylim(1, 10) +
  ggtitle(TeX("Bias Curves ($\\beta_0$)"))

内容的提问来源于stack exchange，提问作者Saïd Maanan