如何解决如何在动物园对象时间序列中绘制条纹以突出显示时段?
library(zoo)
dat<-data.frame(
prec<-rnorm(650,mean=300),temp<-rnorm(650,mean = 22),pet<-rnorm(650,mean = 79),bal<-rnorm(650,mean = 225))
colnames(dat)<-c("prec","temp","pet","bal")
dat<-ts(dat,start = c(1965,1),frequency = 12)
plot.zoo(dat)
rect(xleft=1975,xright = 1982,ybottom=0,ytop=800,col= '#FFFF0022',border = "transparent")
rect(xleft=1990,xright = 2000,col= '#00BFFF22',border = "transparent")
rect(xleft=2010,xright = 2015,ytop=500,col= '#FF000022',border = "transparent")
但是我只会在正确的x轴This is my result so far
之外获得或超出范围解决方法
使用面板功能。此外,使用xblocks
可以进一步简化此过程:
plot.zoo(dat,panel = function(x,y,...) {
lines(x,...)
year <- as.integer(x)
xblocks(x,year %in% 1975:1982,col = '#FFFF0022')
xblocks(x,year %in% 1990:2000,col = '#00BFFF22')
xblocks(x,year %in% 2010:2015,col = '#FF000022')
})
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。