R中legend的怎么标明实线、虚线

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

下面的代码可以画出一张图，包含四个子图，如上图
怎么在这张图的最下方标明实线、虚线等
par(mfrow = c(2, 2))
r1<-read.table("F:/RLCUSUM1/1.txt", head=TRUE)
plot(log(x1)~delta,data=r1,type="l",ylab= "log(ARL)",lty=1,main="m=0",
xlab=expression(delta))
lines(log(x2)~delta,data=r1,type="l",ylab= "log(ARL)",lty=2,
xlab=expression(delta))
lines(log(x3)~delta,data=r1,type="l",ylab= "log(ARL)",lty=3,
xlab=expression(delta),lwd=1.8)
lines(log(x4)~delta,data=r1,type="l",ylab= "log(ARL)",lty=4,
xlab=expression(delta),lwd=1.8)


r2<-read.table("F:/RLCUSUM1/2.txt", head=TRUE)
plot(log(x1)~delta,data=r2,type="l",ylab= "log(ARL)",lty=1,main="m=1",
xlab=expression(delta),ylim=c(0.5,5.5))
lines(log(x2)~delta,data=r2,type="l",ylab= "log(ARL)",lty=2,
xlab=expression(delta))
lines(log(x3)~delta,data=r2,type="l",ylab= "log(ARL)",lty=3,
xlab=expression(delta),lwd=1.8)
lines(log(x4)~delta,data=r2,type="l",ylab= "log(ARL)",lty=4,
xlab=expression(delta),lwd=1.8)

r3<-read.table("F:/RLCUSUM1/3.txt", head=TRUE)
plot(log(x1)~delta,data=r3,type="l",ylab= "log(ARL)",lty=1,main="m=2",
xlab=expression(delta),ylim=c(0.5,5.5))
lines(log(x2)~delta,data=r3,type="l",ylab= "log(ARL)",lty=2,
xlab=expression(delta))
lines(log(x3)~delta,data=r3,type="l",ylab= "log(ARL)",lty=3,
xlab=expression(delta),lwd=1.8)
lines(log(x4)~delta,data=r3,type="l",ylab= "log(ARL)",lty=4,
xlab=expression(delta),lwd=1.8)


r4<-read.table("F:/RLCUSUM1/4.txt", head=TRUE)
plot(log(x1)~delta,data=r4,type="l",ylab= "log(ARL)",lty=1,main="m=4",
xlab=expression(delta),ylim=c(0.5,5.5))
lines(log(x2)~delta,data=r4,type="l",ylab= "log(ARL)",lty=2,
xlab=expression(delta))
lines(log(x3)~delta,data=r4,type="l",ylab= "log(ARL)",lty=3,
xlab=expression(delta),lwd=1.8)
lines(log(x4)~delta,data=r4,type="l",ylab= "log(ARL)",lty=4,
xlab=expression(delta),lwd=1.8)

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Legend egen Leg End fro legend

try legend(x="bottom",legend = c("x1","x2","x3","x4"),lty=c(1,2,3,4),hor = T)