使用“plot”覆盖另一个散点图的散点图

Question

我想使用“plot”函数制作散点图。我有四列数据。数据看起来像这样。

Year Tmin P10 P90
1991    18  16.716653   22.00001
1991    21.8    16.69999    21.70001
1991    21.3    16.509979   21.626664
1991    21  16.509979   21.363337
1992    22.6    16.69999    21.70001
1992    21.5    16.509979   21.626664
1992    22  16.509979   21.363337
1992    22.2    16.173316   21.463337
1992    21.5    15.909979   21.70001
1992    22  16.09999    21.90001
1992    22  15.836653   22.263337

我使用以下代码：

    dat<-read.csv("D135_tmin.csv",header=TRUE)
    plot(dat$Tmin,xaxt='n',col="red",bg="black",pch=21)
    a<-c(seq(1,3653,365))
    axis(side=1,at=a,labels=T)
    for(b in c(365,731,1096)){
    abline(v=b,lty=3,col=3)
    }

我想在此基础上绘制另一个散点图。但是这次，当Tmin大于P90时，只有Tmin的值。 另外，有没有一种方法可以在x轴上显示1991和1992（两个值）？

非常感谢您的帮助