在R中突出显示图形上的特定范围

如果我想突出显示基于x值的图形区域，比如1994-1998年，我该怎么做

任何想法都将不胜感激

---

谢谢。

您可以将该范围内的点涂成另一种颜色

library(season)
plot(CVD$yrmon, CVD$cvd, type = 'o',pch = 19,ylab = 'Number of CVD deaths per month',xlab = 'Time')

plot（CVD$yrmon，CVD$CVD，type='o'，pch=19，ylab='每月CVD死亡人数'，xlab='时间'）
积分（cvd~yrmon，type=“o”，pch=19，col=“red”，
data=CVD[CVD$yrmon>=1994&CVD$yrmon您可以将该范围内的点涂上另一种颜色

library(season)
plot(CVD$yrmon, CVD$cvd, type = 'o',pch = 19,ylab = 'Number of CVD deaths per month',xlab = 'Time')

plot（CVD$yrmon，CVD$CVD，type='o'，pch=19，ylab='每月CVD死亡人数'，xlab='时间'）
积分（cvd~yrmon，type=“o”，pch=19，col=“red”，
data=CVD[CVD$yrmon>=1994&CVD$yrmon您可以将该范围内的点涂上另一种颜色

library(season)
plot(CVD$yrmon, CVD$cvd, type = 'o',pch = 19,ylab = 'Number of CVD deaths per month',xlab = 'Time')

plot（CVD$yrmon，CVD$CVD，type='o'，pch=19，ylab='每月CVD死亡人数'，xlab='时间'）
积分（cvd~yrmon，type=“o”，pch=19，col=“red”，
data=CVD[CVD$yrmon>=1994&CVD$yrmon您可以将该范围内的点涂上另一种颜色

library(season)
plot(CVD$yrmon, CVD$cvd, type = 'o',pch = 19,ylab = 'Number of CVD deaths per month',xlab = 'Time')

plot（CVD$yrmon，CVD$CVD，type='o'，pch=19，ylab='每月CVD死亡人数'，xlab='时间'）
积分（cvd~yrmon，type=“o”，pch=19，col=“red”，
data=CVD[CVD$yrmon>=1994&CVD$yrmon或者您可以在感兴趣的区域上放置一个矩形：

plot(CVD$yrmon, CVD$cvd, type = 'o',pch = 19,ylab = 'Number of CVD deaths per month',xlab = 'Time')
points(cvd ~ yrmon, type="o", pch=19, col="red", 
       data=CVD[CVD$yrmon >= 1994 & CVD$yrmon <= 1998,])

或者您可以在感兴趣的区域上放置一个矩形：

plot(CVD$yrmon, CVD$cvd, type = 'o',pch = 19,ylab = 'Number of CVD deaths per month',xlab = 'Time')
points(cvd ~ yrmon, type="o", pch=19, col="red", 
       data=CVD[CVD$yrmon >= 1994 & CVD$yrmon <= 1998,])

或者您可以在感兴趣的区域上放置一个矩形：

plot(CVD$yrmon, CVD$cvd, type = 'o',pch = 19,ylab = 'Number of CVD deaths per month',xlab = 'Time')
points(cvd ~ yrmon, type="o", pch=19, col="red", 
       data=CVD[CVD$yrmon >= 1994 & CVD$yrmon <= 1998,])

或者您可以在感兴趣的区域上放置一个矩形：

plot(CVD$yrmon, CVD$cvd, type = 'o',pch = 19,ylab = 'Number of CVD deaths per month',xlab = 'Time')
points(cvd ~ yrmon, type="o", pch=19, col="red", 
       data=CVD[CVD$yrmon >= 1994 & CVD$yrmon <= 1998,])

我试过了，但所有的分数都变为红色。也许我打错了什么？我试过了，但所有的分数都变为红色。也许我打错了什么？也许我打错了，但所有的分数都变为红色。也许我打错了什么？你可能希望
rect
变为红色r整个y范围。
rect（xleft=1994，xright=1998，ybottom=par（“usr”）[3]，ytop=par（“usr”）[4]，密度=10，col=“blue”）
。您可能希望
rect
覆盖整个y范围。
rect（xleft=1994，xright=1998，ybottom=par（“usr”）[3]，ytop=par（“usr”）[4]，密度=10，col=“blue”）
。您可能希望
rect
覆盖整个y范围。
rect（xleft=1994，xright=1998，ybottom=par（“usr”）[3]，ytop=par（“usr”）[4]，density=10，col=“blue”）
。您可能希望
rect
覆盖整个y范围。
rect（xleft=1994，xright=1998，ybottom=par（“usr”）[3]，ytop=par（“usr”）[4]，density=10，col=“蓝色”）
。