吡唑醚菌酯的原药价格数据如下图所示，要看到几年里价格走势如何，用图像来看似乎更直观一些。
代码：
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")
