将简单图例添加到R中的绘图

我想创造一个非常简单的情节。 我正在使用：

---

a看一看
？图例
，试试这个：

legend('topright', names(a)[-1] , 
   lty=1, col=c('red', 'blue', 'green',' brown'), bty='n', cex=.75)

-1请参阅
？图例
并运行示例…此问题所指的数据集已不再可用！还有一个问题：当我调整图像大小时，有没有办法确保图例保持可读性？x轴和y轴可以灵活调整大小，但图例可能会变形，在这种情况下，使用
cex
参数是关键。
legend('topright', names(a)[-1] , 
   lty=1, col=c('red', 'blue', 'green',' brown'), bty='n', cex=.75)