如何在绘图点标签的文本中包含下标

Question

嗨,我是R的新手,所以如果这是一个非常基本的问题,我道歉.我正在尝试将文本添加到x轴上的点11处的绘图中,并且将在y轴上指向将以t0= -4.02800作为下标读取的点.在哪里t0 <- -4.0280 这样做我试过:

text(11,900,paste("t[0]=",t0),cex=0.8) 
# which gives 
't[0]= -4.0280'

text(11,900,expression(paste("t[0]=",t0)),cex=0.8) 
# which gives 
't[0]=t0'

# the closest I've gotten is:    
text(11,900,expression(paste(t[0]==t0)),cex=0.8)

这将使用下标但返回t0而不是我的值-4.0280.

谁能告诉我哪里出了问题？

干杯.

Answer 1

您可以替换expression使用substitute.没有必要paste.参数list(t0 = t0)告诉substitute用字符串替换字符串t0的值t0:

plot(1,1)

t0 <- 1.3

text(1, 0.8, substitute(t[0]==t0, list(t0 = t0)), cex = 0.8)

Answer 2

比substitutewith略短bquote：

plot(1,1)
t0 <- -4.0280
text(1, 0.8, bquote("t"[0] ~ "=" ~ .(t0)))

如果你想paste在那里使用：

text(1, 0.8, (bquote("t"[0]~.(paste0('=',t0)))))

这种Q之前就出现过：

在 R 中的轴标题中同时使用下标和变量值

连接图标题中的字符串和表达式