吡唑醚菌酯的原药价格数据如下图所示，要看到几年里价格走势如何，用图像来看似乎更直观一些。

代码：

library(ggplot2)

library(openxlsx)

＃＃＃导入数据

mydat<-read.xlsx("吡唑醚菌酯.xlsx",sheet = 1)

＃＃＃变更数据格式

mydat$日期<-as.Date(mydat$日期)

mydat$价格<-as.numeric(mydat$价格)

＃＃＃导入时间区间

year<-read.xlsx("吡唑醚菌酯.xlsx",sheet = 2)

＃＃＃变更数据格式

year$start<-as.Date(year$start, origin = "1900-01-01")-2

year$end<-as.Date(year$end, origin =  "1900-01-01")-2

＃＃＃画图

ggplot(mydat)+

  geom_rect(aes(xmin=start,xmax=end,fill=party),  ymin=-Inf,ymax=Inf,alpha=0.2,data = year)+

  geom_line(aes(日期,价格),color="red",size=1.5)+

  geom_vline(aes(xintercept=as.numeric(start)),data = year, color="grey30",alpha=0.5)+

  geom_text(aes(x=start,y=22,label=party),data = year,nudge_x = 200)+

  ggtitle(label = "吡唑醚菌酯近几年来的价格走势")+

  theme(legend.position = "none")