R语言如何给回归图中的回归线加注解

Question

我的代码

x<-c(0,0.01,0.02,0.03,0.04,0.05,0.06,0.07,0.08,0.09,0.10,0.11,0.12,0.13,0.14,0.15,0.16,0.17,0.18,0.19)
y1<-c(23.91,30.66,37.25,43.23,50.13,56.88,62.70,69.76,76.66,82.33,88.46,94.75,101.99,107.17,113.91,119.43,126.18,132.77,139.67,145.19)
y2<-c(22.38,28.21,34.80,41.23,47.38,53.51,59.95,66.08,72.21,78.51,84.94,91.23,96.90,102.88,109.32,115.60,121.43,127.72,132.93,137.99)
y3<-c(19.31,25.45,31.43,37.56,43.23,49.21,55.65,61.78,67.46,73.74,80.03,86.16,91.68,97.66,103.33,109.16,115.75,121.27,126.64,132.16)
y4<-c(16.25,21.92,27.90,33.42,39.40,45.22,51.36,56.72,62.55,68.38,74.20,80.18,85.70,91.53,97.51,102.72,108.70,114.22,120.66,125.72)
y5<-c(14.41,19.93,25.75,31.12,36.64,42.16,47.68,53.35,58.87,64.24,70.22,75.35,81.10,86.47,91.68,97.82,102.73,108.09,113.15,119.13)
y6<-c(13.34,18.40,23.61,28.98,34.04,39.25,44.46,49.37,54.74,59.95,64.85,70.53,75.43,80.65,85.55,90.92,95.98,101.19,105.94,111.00)
y7<-c(11.04,15.95,20.70,25.45,30.05,34.96,39.56,44.16,49.06,53.66,58.88,63.47,68.23,72.83,77.43,81.57,85.86,90.46,95.06,99.81)
plot(x,y1, main="P/MPa", ylab="MPa", xlab="P")
points(x,y2)
points(x,y3)
points(x,y4)
points(x,y5)
points(x,y6)
points(x,y7)
abline(lm(y1~x))
abline(lm(y2~x))
abline(lm(y3~x))
abline(lm(y4~x))
abline(lm(y5~x))
abline(lm(y6~x))
abline(lm(y7~x))

这是我导出的图

但是我要达到的图是这样子的：

请问如何才能实现？

Answer 1

普通画图的话，可以使用text加上文字,至于那根虚线还是挺难实现的

x<-c(0,0.01,0.02,0.03,0.04,0.05,0.06,0.07,0.08,0.09,0.10,0.11,0.12,0.13,0.14,0.15,0.16,0.17,0.18,0.19)
y1<-c(23.91,30.66,37.25,43.23,50.13,56.88,62.70,69.76,76.66,82.33,88.46,94.75,101.99,107.17,113.91,119.43,126.18,132.77,139.67,145.19)
plot(x,y1, main="P/MPa", ylab="MPa", xlab="P",xlim = c(0,max(x)*1.2))
abline(lm(y1~x))
text(max(x)*1.1,max(y1),'-10°C')