如何用r语言绘制有阴影部分的时序图？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

有一组关于全球经济发展的时序图，可以画出时序折线图
现在想画出像下面这样的图，在折线图中加入阴影，图中的阴影部分是国际定义的经济衰退期
想知道怎么才能在折线图中画出这种效果呢？
在网上搜寻了一圈没看到类似的问答，也不确定要搜索什么关键词才能找到相关的代码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏2 回帖

关键词：R语言 时序图 如何用 经济发展 全球经济

大概的例子：

1. d <- ts(runif(80, 1, 10), start = 2000, frequency = 4)
   
2. plot(NULL,
   
3.      xlim = c(2000, 2020), ylim = c(0, 10),
   
4.      main = "WTI/CEPI", xlab = "", ylab = "")
   
5. 
   
6. polygon(x = c(2006, 2006, 2007, 2007),
   
7.         y = c(-0.5, 15, 15, -0.5),
   
8.         col = "lightgrey")
   
9. polygon(x = c(2012, 2012, 2014, 2014),
   
10.         y = c(-0.5, 15, 15, -0.5),
    
11.         col = "lightgrey")
    
12. lines(d, col = "red", lwd = 2)

复制代码

llb_321 发表于 2022-11-11 18:35
大概的例子：

真的非常非常非常感谢你！！！

忘了细节，那个阴影，加个参数把边线去掉：
polygon(x = c(2000, 2000, 2004, 2004), y = c(-0.5, 15, 15, -0.5),
        col = "lightgrey", border="lightgrey")

llb_321 发表于 2022-11-12 08:40
忘了细节，那个阴影，加个参数把边线去掉：
polygon(x = c(2000, 2000, 2004, 2004), y = c(-0.5, 15, 15 ...

最好是阴影部分的上下边框保留，而左右边框不要。