Creazione di un apice in testom

Question

Ho il seguente 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)) 

Utilizzando par creo due grafici su una trama:

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

Perché ho usato par, non posso specificare la xlab e ylab in plot,
pertanto utilizzo mtext.
Mi piacerebbe scrivere un apice nel mio ylab, tuttavia, non so come farlo,
quando si utilizza mtext.

Ho provato quanto segue

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

ma non riesco a ottenere il 2+ come apice di sopra del Cu.

Qualsiasi aiuto è più che benvenuto!

Answer 1

È necessario creare la propria espressione all'interno della chiamata expression. Guarda gli esempi allo Mathematical Annotation in R.

Nel tuo caso ho trovato

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

ha dato un risultato ragionevole

Answer 2

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