r - マルチ テキストで上付き文字を作成する

Question

次のデータフレームがあります

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て、1 つのプロットに 2 つのグラフを作成します。

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指定できませんので、 を使用します。 に上付き文字を書きたいのですが、 を使用する場合、その方法がわかりません。xlabylabplot
mtext
ylab
mtext

私は次のことを試しました

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

2+Cuの上に上付き文字としてを取得できないようです。

どんな助けでも大歓迎です！

Answer 1

呼び出し内で式を作成する必要がありexpressionます。R の数学的注釈の例を参照してください。

あなたの場合、私は見つけました

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

妥当な結果をもたらした