如何在ggplot2无数据框绘图中添加LaTeX格式点标签？

我用R基础绘图的plot函数可以给每个点添加LaTeX格式的标签，代码如下：

library(ggplot2)
library(latex2exp)

i = 20
j = 200
x1 = seq(i, j, 40)
y1 = exp(-0.02*x1)
point.names = c(TeX('$t_{j-2}$'), TeX('$t_{j-1}$'), TeX('$t_j$'), TeX('$t_{j+1}$'), TeX('$t_{j+2}$'))

plot(x1, y1, cex=1.5, col='blue', pch = 21, bg = "blue", xlim=c(0, 220))
lines(x1, y1, lwd=1, col='blue')
text(x1, y1, labels=point.names, cex=1.5, pos=4)

但因为需要在同一张图里画3条这类曲线，我选择用ggplot2。现在能画出曲线和点，但没法给点加LaTeX格式的标签——尝试加label=point.names和+geom_text(hjust=0, vjust=0)时出错，用普通文本标签也有警告且看不到标签。请问怎么在这种无数据框的ggplot2绘图里添加LaTeX格式的点标签？

ggplot2的设计逻辑更偏向基于数据框的绘图，但即使不提前构造数据框，也可以通过直接给geom_text传递对应参数来实现需求，关键是要让标签和x、y坐标一一对应，并且正确调用latex2exp的解析：

完整代码示例 #

library(ggplot2)
library(latex2exp)

i = 20
j = 200
x1 = seq(i, j, 40)
y1 = exp(-0.02*x1)
# 先存储原始LaTeX字符串，在geom_text中统一解析
point.names = c('$t_{j-2}$', '$t_{j-1}$', '$t_j$', '$t_{j+1}$', '$t_{j+2}$')

ggplot() +
  # 绘制曲线
  geom_line(aes(x = x1, y = y1), color = "blue", linewidth = 1) +
  # 绘制点
  geom_point(aes(x = x1, y = y1), color = "blue", fill = "blue", pch = 21, size = 3) +
  # 添加LaTeX标签：在aes内用TeX()解析字符串，绑定对应坐标
  geom_text(aes(x = x1, y = y1, label = TeX(point.names)), 
            hjust = 0, vjust = 0, size = 5) +
  # 设置x轴范围，对应基础绘图的xlim
  xlim(0, 220)

关键注意事项 #

• 不要提前用TeX()解析标签字符串后再传入，而是把原始LaTeX字符串放在geom_text的aes()里用TeX()解析，这样ggplot2能正确识别标签映射关系。
• 必须在geom_text的aes()中同时指定x、y和label，确保每个坐标点对应正确的标签。
• 如果要添加多条曲线，重复geom_line、geom_point和geom_text模块，替换对应的x、y和标签数据即可，示例如下：

  # 添加第二条曲线示例
  x2 = seq(i, j, 30)
  y2 = exp(-0.03*x2)
  point.names2 = c('$s_{j-2}$', '$s_{j-1}$', '$s_j$', '$s_{j+1}$', '$s_{j+2}$', '$s_{j+3}$', '$s_{j+4}$')
  
  ggplot() +
    # 第一条曲线相关图层
    geom_line(aes(x = x1, y = y1), color = "blue", linewidth = 1) +
    geom_point(aes(x = x1, y = y1), color = "blue", fill = "blue", pch = 21, size = 3) +
    geom_text(aes(x = x1, y = y1, label = TeX(point.names)), hjust = 0, vjust = 0, size = 5) +
    # 第二条曲线相关图层
    geom_line(aes(x = x2, y = y2), color = "red", linewidth = 1) +
    geom_point(aes(x = x2, y = y2), color = "red", fill = "red", pch = 21, size = 3) +
    geom_text(aes(x = x2, y = y2, label = TeX(point.names2)), hjust = 0, vjust = 0, size = 5) +
    xlim(0, 220)
  

出错原因说明 #

• 若提前用TeX()解析标签向量再传入，ggplot2无法正确处理这种特殊对象的映射，导致标签无法显示或报错。
• 未在geom_text的aes()中完整绑定x、y、label的对应关系，ggplot2无法匹配坐标点与标签。

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