2013-07-19 26 views
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,我不能指定在xlabylabplot,
因此我使用mtext
我想在我的ylab上寫一個上標,但是,我不知道該怎麼辦,
使用mtext的時候。

我曾嘗試以下

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

,但似乎無法得到2+作爲銅上方標。

任何幫助都比歡迎!

回答

3

您必須在expression調用中構建您的表達式。請參閱Mathematical Annotation in R上的示例。

在你的情況,我發現

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

給一個合理的結果

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