图例中含有数字上标，r平方，这个怎么办呢？expression咋不行呢？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

我试过了大家说过的expression, 可是还是不对，可能是我某个地方弄错了，比如说paste函数，我不太了解。
有五条线，这里我就不贴代码了，简单画个图，麻烦大家帮我把图例好好看看，谢谢了！！

x1<-paste("nw-ng",expression(r^2),"=0.44","p=0.073")
x2<-paste("w-ng",expression(r^2),"=0.63","p=0.018")
x3<-paste("nw-g",expression(r^2),"=0.37","p=0.082")
x4<-paste("w-g",expression(r^2),"=0.79","p<0.001")
x5<-paste("all",expression(r^2),"=0.48","p<0.001")

plot(c(1,2))
legend("topleft", legend=c(x1,x2,x3,x4,x5), lty=c(2,2,2,2,1),pch=1,col=c(1,2,3,4,1),bty="n")

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：Expression express Xpress Press R平方 expression legend

1. x1<-expression(paste("nw-ng ",r^2,"=0.44 ","p=0.073"))

复制代码

人为的 “nw-ng   "  这种方式隔开， 而没有通过 sep=" ". sep貌似 只在最后字符有用

jmpamao 发表于 2014-5-26 18:07
人为的 “nw-ng   "  这种方式隔开， 而没有通过 sep=" ". sep貌似 只在最后字符有用

好厉害！我的问题出在expression 和paste 的应用上。可能我还是不太理解这两个函数。我在做做功课，非常感谢！！