r - 在表达式中包含变量、逗号和希腊符号

Question

我想创建一个绘图标题“Case1，\xi_{DES}”，其中\xi是希腊字母，DES必须是下标，“Case1”实际上存储在变量中。正在关注

expression + variable value + normal text in plot maintitle

我试过了

Case="Case1"
x=1:3
y=rnorm(3)
plot(x,y, cex=1.5, cex.lab=1.5, 
pch=16, xlab="degree", ylab=expression(italic(paste("|",hat(F),"|"))),
main=bquote(.(Case) ~ , eta[DES]), col="tomato",log="y")

但这行不通。以下有点有效:

plot(x,y, cex=1.5, cex.lab=1.5, 
pch=16, xlab="degree", ylab=expression(italic(paste("|",hat(F),"|"))),
main=bquote(.(Case) ~  eta[DES]), col="tomato",log="y")

但我必须去掉逗号。这是为什么？有没有办法在 R 中获得我想要的标题？

Answer 1

如果您不知道(不容易找到)，文档位于 help("plotmath") 中:

par(mar = c(5, 5.5, 4, 2) + 0.1)
plot(x,y, cex=1.5, cex.lab=1.5, 
     pch=16, xlab="degree", ylab=expression(italic(group("|",hat(F),"|"))),
     main=bquote(.(Case)*","~xi[{DES}]), col="tomato",log="y")