在图表中放置趋势线和r平方值

Question

我制作了两个不同尺度的折线图，我想在每个折线图中绘制两条趋势线，并在图形中显示r平方值。 R平方值的温度和年份，降水量和年份。我在降水轴上显示图例也遇到了问题。请帮我解决。

 library(lattice)
data=read.table("temp_pcp.csv",header=TRUE, sep=",")
frame=data.frame(data[1:3])
year <- data[1]
Temperature <- data[3]
Precipitation <- data[2]
gm<-data.frame(year,Temperature)
mg<-data.frame(year,Precipitation)
plot(gm, axes=FALSE, ylim=c(0,20), xlab="", ylab="", 
   type="l",col="black", main="Climograph")
axis(2, ylim=c(0,20),col="black",las=1)
mtext("Temperature in Degree Celcius ",side=2,line=2.5)
box()
grid()
par(new=TRUE)
plot(mg, xlab="", ylab="", ylim=c(0,60), 
    axes=FALSE, type="l", col="red")
mtext("Precipitation in mm",side=4,col="black",line=4) 
axis(4, ylim=c(0,60), col="black",col.axis="black",las=1)
axis(1,pretty(range(year),10))
mtext("Year",side=1,col="black",line=2.5)
legend("topleft",legend=c("Tempreature","Precipitation"),
  text.col=c("black","red"),col=c("black","red"))

我创建的折线图如下;