在表达式中包含变量,逗号和希腊符号

我想创建一个情节标题"Case1,\ xi_ {DES}",其中\ xi是希腊字母,DES必须是下标,"Case1"实际存储在变量中.以下

表达式+变量值+绘图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中获得我想要的头衔？

如果你不知道(这不容易找到),文档在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")