我完全懂你想要的效果——不用默认的图例，直接把标签贴在对应的折线上，这样看起来更直观对吧？其实用R的基础绘图工具就能轻松实现，核心就是用text()函数定位到每条曲线上的合适位置，把标签放上去就行。

下面是修改后的完整代码，直接运行就能看到效果：

x = c(1:10)
y = x^2 
z = x^3 
w = 2*x + 7 

# 绘制第一条折线，提前设置y轴范围确保所有曲线完整显示
plot(x,y,type="l", col="red", ylim=c(0, 1000)) 
lines(x,z, type="l", col="blue") # 显式指定x轴，避免索引匹配的潜在问题
lines(x,w, type="l", col="green")

# 给每条折线添加标签，选在曲线末端右侧，颜色与曲线对应
text(10, 10^2, "y = x²", col="red", pos=4, cex=0.9)
text(10, 10^3, "z = x³", col="blue", pos=4, cex=0.9)
text(10, 2*10+7, "w = 2x + 7", col="green", pos=4, cex=0.9)

关键细节说明： #

• 我调整了plot()里的ylim参数，确保z=x³这条线的最高点能完整显示，避免标签超出画布。
• 之前的lines(z, type="l")有个小隐患：没指定x轴时，R会默认用z的索引作为x值，虽然这次刚好匹配，但显式写lines(x,z, type="l")更规范。
• text()的pos=4表示把标签放在坐标点的右侧，不会遮挡折线；你也可以根据需求换pos=2（左对齐）、pos=1（下对齐）、pos=3（上对齐）。
• cex=0.9是调整标签字体大小，可根据图的尺寸自行修改。

如果想把标签放在折线中间位置（比如x=5处），只需要修改坐标即可：

text(5, 5^2, "y = x²", col="red", pos=3, cex=0.9) # 放在点的上方
text(5, 5^3, "z = x³", col="blue", pos=3, cex=0.9)
text(5, 2*5+7, "w = 2x + 7", col="green", pos=1, cex=0.9) # 放在点的下方

这样就能完美实现你想要的“无图例、直接标注曲线”的效果啦！

内容的提问来源于stack exchange，提问作者Gragbow