急！R语言画图 字母右上角加平方怎么加啊 多谢了

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

各位，第二张图是我画的，代码如下，我想知道  1. 怎么在legend里面标出T的平方 2. legend里面的BcEL中的c是作为B的小标出现的，怎么设置下标. 3. 怎么在lengend里面把空心的小圆小圈加上去，它对应data。
说白了就是怎么做出如图所示的legend。 多谢各位了！

。
plot(x2~x1,data=data,type="l",lty="88",ylim=c(130,405),xlim=c(140,270),lwd=2,col = "blue",xlab="Weight",
ylab="Blood cholesterol")

lines(x2~x1,data=dat,type="p")

lines(x4~x3,data=data,type="l",ylab= "ARL",lty=4,lwd=2)

lines(x6~x5,data=data,type="l",ylab= "ARL",lty=1,col = "red",lwd=2)

legend("topright",expression("Hotteling's expression(T^2)","EL",BcAEL),lty=c(5,4,1),col = c(4,1,2),lwd=2)

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：R语言 右上角 Expression express Legend 字母

1. legend("topright",expression(paste("Hotteling\'s",T^2),"EL",paste(B["c"],"AEL")),lty=c(5,4,1),col = c(4,1,2),lwd=2)

复制代码

yywan0913 发表于 2014-3-13 19:48

谢谢您，再麻烦您一下，空心小圆圈 及对应的data怎么放进去，再次感谢！

慧（会）幸福 发表于 2014-3-13 19:54
谢谢您，再麻烦您一下，空心小圆圈 及对应的data怎么放进去，再次感谢！

这个pch与lty互不干扰的用，还没用过耶。

1. legend("topright",expression("Data",paste("Hotteling\'s",T^2),"EL",paste(B["c"],"AEL")),lty=c(1,5,4,1),col = c(0,4,1,2),lwd=2)

复制代码

暂时只能这样，然后再加个points(200,400,pch=21)

看下其他人有没有好的想法？召唤下那几个大婶（神）

yywan0913 发表于 2014-3-13 20:33
这个pch与lty互不干扰的用，还没用过耶。暂时只能这样，然后再加个points(200,400,pch=21)

看下其他人 ...

非常感谢！非常感谢！

Use NA in "lty" and "lwd" if no line is needed and NA for "pch" if no point is needed:

1. legend("topright",expression("Data",paste("Hotteling\'s",T^2),"EL",paste(B["c"],"AEL")),lty=c(NA,5,4,1),col = c(1,4,1,2),lwd=c(NA, 2, 2, 2), pch = c(1, NA, NA, NA))

复制代码

zhangyangsmith 发表于 2014-3-14 19:30
Use NA in "lty" and "lwd" if no line is needed and NA for "pch" if no point is needed:

高！