ggplot2优雅的给线条添加置信区间

devtools::install_github("davidgohel/officer")
install.packages("flextable")

library(tidyverse)
library(officer)
library(flextable)
library(lubridate)

plot <- read_tsv("data.xls") %>% ggplot(aes(x = date, y=moving_pck))+
  geom_ribbon(aes(ymin=moving_pck -(moving_rmd/2),ymax=moving_pck +(moving_rmd/2)), color='steelblue4', alpha=0.5, fill='steelblue4', linetype='blank')+
  geom_ribbon(aes(ymin=moving_pck -(moving_rnw/2), ymax=moving_pck +(moving_rnw/2)), color='firebrick2', alpha=0.5, fill='firebrick2', linetype='blank')+
  geom_line(color='grey20')+
  theme_test()+
  theme(
    panel.background = element_rect(fill = "grey98"),
    plot.background = element_rect(fill = "grey98"),
    panel.grid.major.x =element_blank(),
    axis.line.x = element_line(color = "black"),
    axis.text = element_text(size=9, color="black"),
    axis.title.y =element_blank(),
    axis.title.x = element_blank(),
    axis.line.y = element_line(color = "black"),
    axis.ticks.x = element_blank())+
  scale_x_date(breaks=scales::pretty_breaks(n=10))+
  scale_y_continuous(breaks = scales::pretty_breaks(n=9))+
  geom_rect(xmin =-Inf, ymax =Inf,xmax= as.Date("2011-9-01"),
            ymin = 540,alpha = 0.1, fill="white",color="black")+
  geom_rect(xmin= as.Date("2009-7-01"), ymax = 600, xmax = as.Date("2009-12-01"),
            ymin=580, color="steelblue4", fill = "steelblue4")+
  geom_text(x = as.Date("2010-2-05"), y=590, label="Markdown vignettes",
            size=3, hjust=0, vjust=0.5, color="steelblue4")+
  geom_rect(xmin= as.Date("2009-7-01"), ymax = 570, xmax = as.Date("2009-12-01"),
            ymin=550, color="#b96d76",fill="#b96d76")+
  geom_text(x = as.Date("2010-2-05"), y=560,label="Sweave vignettes",
            size=3, hjust=0, vjust=0.5, color="#b96d76")

ppt <- read_pptx() %>% add_slide() %>% 
  ph_with(.,value=plot,location = ph_location(left=.2,top = 1.5,right=0,
                                              width=9.5,height=5)) %>% 
  ph_with(.,value = format(Sys.Date()),location = ph_location_type(type = "dt"))

print(ppt,target = "20220807.pptx")