在ggplot中将表达式用作标签时出错

Question

我试过搜索，但这让我很烦恼，因为在我看来应该是一个简单的编码线。但是，我在尝试时仍然遇到错误...

首先，这段代码工作正常

  scale_linetype_manual("",
                    values=c("pAl"=4,"pAlOH"=3, "pAl7OH17"=6, "pAl13OH34"=2,"pAlOH4"=1,"pAl2OH2"=5),
                    labels = c(expression("Al"^"3+"),
                               expression("Al(OH)"^"2+"),
                               expression("Al7(OH)"[17]^"4+"),
                               expression("Al13(OH)"[34]^"5+"),
                               expression("Al(OH)"[4]^"-"),
                               expression("Al2(OH)"[2]^"4+")))+

但是，我确实希望Al之后的一些数字也可以下载，但是在尝试

时

  expression("Al"[2]"(OH)"^"2+") or expression("Al" ~ [2] ~ "(OH)" ~ ^ ~ "2+")

或者我能提出的任何变体，我都会收到错误。

同样，这可能是一个简单的解决方案。很抱歉我缺乏使用R的经验：）

Answer 1

library(grid)

e <- c("Al[2]~(OH)^'2+'", 
       "Al[7]~(OH)[17]^'4+'")
grid.newpage()
grid.text(parse(text=e), y=c(0.4,0.6))