最后添加右上角legend后框框怎么这么大？

源自：3-3 R语言基本绘图系统之实践

fit <- lm(Temp~ Wind, airquality)
abline(fit, lwd=2)
legend("topright", pch=1,
col=c("red","blue","black"),
legend=c("sep","May","other"))

输出后右上角的框框为什么和老师讲的不一样，如图，怎么样调大小呢？谢谢！

提问者：Dinosaur_ah0 2019-11-01 17:18