Tworzenie indeksu górnego w mtext

Question

Mam następujący dataframe

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

Korzystanie par tworzę dwa wykresy na jednej działce:

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

Ponieważ użyłem par, nie mogę określić xlab i ylab w Dlatego też używam mtext.
Chciałbym napisać indeks górny w moim ylab, jednak nie wiem, jak to zrobić,
podczas korzystania z mtext.

Próbowałem następujące

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

ale nie wydaje się uzyskać 2+ jako indeks górny nad Cu.

Każda pomoc jest mile widziane!

Answer 1

Musisz zbudować swoje wyrażenie w rozmowie expression. Zobacz przykłady na stronie Mathematical Annotation in R.

W twoim przypadku znalazłem

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

dał rozsądny wynik

Answer 2

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