如何添加图例

Question

我尝试将图例添加到我的绘图中，但它没有出现... 请帮助我！

x<-c(0,5,10,15,20)
y<-c(0,8,15,19,20)
a<-data.frame(cbind(x,y))

plot(y~x)
m2<-lm(y~x +I(x^2),data=(a))
m1<-lm(y~x,data=a)
m3<-lm(y~x +I(x^2)+I(x^3),data=(a))
lines(a$x,predict(m2),col="blue",lwd=3) #linear
lines(smooth.spline(x,predict(m1)),col="yellow",lwd=5) #"polyx^2"
lines(smooth.spline(x,predict(m3)),col="red",lwd=3) #"polyx^3

legend(46,15,legend=c("m1: linear", "m2:poly x^2", "m3: poly x^3"),col=c("yellow","blue","red"),lty =c(1,1,3),lwd=3,bty="n",cex = 0.9)

Answer 1

您为图例指定的坐标（46, 15位于绘图区域的外部

将这些数字更改为该区域内的某个数字，或使用类似"topleft"的常量