ein Exponent in mtext Erstellen

Question

ich die folgenden Datenrahmen

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)) 

Verwendung haben par ich auf einem Grundstück zwei Diagramme erstellen:

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']) 

Weil ich par verwendet, ich nicht die xlab und ylab angeben können in plot,
daher verwende ich mtext.
Ich würde gerne ein hochgestelltes in meinem ylab schreiben, aber ich weiß nicht, wie es geht,
bei der Verwendung von mtext.

Ich habe versucht, die folgenden

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

aber kann nicht scheinen, um die 2+ als Exponent über dem Cu zu erhalten.

Jede Hilfe ist mehr als willkommen!

Answer 1

Sie müssen Ihren Ausdruck innerhalb der expression Aufruf erstellen. Siehe die Beispiele unter Mathematical Annotation in R.

In Ihrem Fall fand ich

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

ein vernünftiges Ergebnis gab

Answer 2

mtext(expression(paste("Cu"^"2+","at EC50",sep="")))