6

我有以下数据框

Data1 <- data.frame(pH = c(8,8.5,6,7.1,9), EC50 = c(20,11,5,25,50))
Data2 <- data.frame(pH = c(7,7.2,6.5,8.2,8.5), EC50 = c(13,15,18,25,19))

使用par我在一个图上创建两个图表：

par(mfrow=c(2,1), oma=c(3,3,1,1), mar=c(2,2,3,1), cex.axis=1.3)
plot(x=Data1[,'pH'], y=Data1[,'EC50'])
plot(x=Data2[,'pH'], y=Data2[,'EC50'])

因为我用过par，我不能指定xlaband ylabin plot，
所以我用mtext。
我想在我的 . 中写一个上标ylab，但是，
在使用mtext.

我试过以下

mtext(expression("Cu^{2+} at EC50"), side=2, line = 4, padj=1, at=30, cex=1.2)

但似乎无法2+在 Cu 上方获得作为上标。

任何帮助都非常受欢迎！

4

2 回答 2

4 
mtext(expression(paste("Cu"^"2+","at EC50",sep="")))
于 2013-07-19T10:22:50.000 回答
3

你必须在expression通话中建立你的表达。请参阅R 中的数学注释中的示例。

在你的情况下，我发现

mtext(expression(paste( plain("Cu") ^ plain("2+"), plain(" at EC50") )), side=2, line = 4, padj=1, at=30, cex=1.2)

给出了合理的结果

于 2013-07-19T10:25:50.733 回答