在圖例中添加希臘字母和變量 plot R

Question

我想打印 plot 中的變量 z。我添加了

sprintf(%1.1f,z 1 )

等與粘貼（和 paste0）和表達式的各種組合，但它們都不起作用。

在下面的虛擬代碼中，我硬編碼了我想看到的值。

x <- c(1,2,3)
y <- c(1,2,3)
plot(x,y)
z <- c(0.1,0.2,0.3)
labels = c( expression( paste( sigma," = ","0.1" )),
            expression( paste( sigma," = ","0.2" )),
            expression( paste( sigma," = ","0.3" ))
           )
legend("topright", inset=.05, title="title",
   labels, lwd=2, lty=c(1,1,1), col=colors)

Answer 1

創建字符串並解析它。

labels <- parse(text = sprintf("sigma == %f", z))

單詞可以用 ~ 符號分隔或使用引號組合成單個文字。 * 可用於並列。

labels <- parse(text = sprintf("Case ~ (%d) ~ sigma == %f", 1:3, z))

labels <- parse(text = sprintf("Case ~ (%d) * ':' ~ sigma == %f", 1:3, z))

labels <- parse(text = sprintf("'Case (%d)' ~ sigma == %f", 1:3, z))

labels <- parse(text = sprintf("'Case (%d):' ~ sigma == %f", 1:3, z))

嘗試demo("plotmath")了解更多信息。