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

Question

嗨，我是R新手，所以如果这是一个非常基本的问题，我很抱歉。 我试图将文字添加到x轴上的点11和y轴上的点900上的图形中，该图将以0作为下标来读取t0= -4.0280。凡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

您可以用substitute替换expression。没有必要为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

略多于substitute短是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的弹起之前：

Using subscript and variable values at the same time in Axis titles in R

Concatenate strings and expressions in a plot's title