library(openxlsx)
b<-read.xlsx("data18-22.xlsx")
b$date<-as.Date(b$date,origin="1899-12-30")
library(ggplot2)
library(eoffice)

ggplot(b,aes(x=date,y=death))+
  geom_line(color="lightskyblue")+
  geom_point(size=0.8,color="red")+
  theme(panel.grid.major =element_blank(), panel.grid.minor = element_blank(),
        panel.background = element_blank(),axis.line = element_line(colour = "black"))
topptx(filename = file.path("/XXXX","death.pptx"),width = 9,
       height = 6,units="in")
dev.off()

ggplot(b,aes(x=date,y=morb))+
  geom_line(color="lightskyblue")+
  geom_point(size=0.8,color="red")+
  theme(panel.grid.major =element_blank(), panel.grid.minor = element_blank(),
        panel.background = element_blank(),axis.line = element_line(colour = "black"))
topptx(filename = file.path("/XXXX","morb.pptx"),width = 9,
       height = 6,units="in")
dev.off()

ggplot(b,aes(x=date,y=PM25))+
  geom_line(color="lightskyblue")+
  geom_point(size=0.8,color="red")+
  theme(panel.grid.major =element_blank(), panel.grid.minor = element_blank(),
        panel.background = element_blank(),axis.line = element_line(colour = "black"))
topptx(filename = file.path("/XXXX","PM25.pptx"),width = 9,
       height = 6,units="in")
dev.off()

ggplot(b,aes(x=date,y=PM10))+
  geom_line(color="lightskyblue")+
  geom_point(size=0.8,color="red")+
 
  theme(panel.grid.major =element_blank(), panel.grid.minor = element_blank(),
        panel.background = element_blank(),axis.line = element_line(colour = "black"))
topptx(filename = file.path("/XXXX","PM10.pptx"),width = 9,
       height = 6,units="in")
dev.off()

ggplot(b,aes(x=date,y=NO2))+
  geom_line(color="lightskyblue")+
  geom_point(size=0.8,color="red")+
  theme(panel.grid.major =element_blank(), panel.grid.minor = element_blank(),
        panel.background = element_blank(),axis.line = element_line(colour = "black"))
topptx(filename = file.path("/XXXX","NO2.pptx"),width = 9,
       height = 6,units="in")
dev.off()

ggplot(b,aes(x=date,y=SO2))+
  geom_line(color="lightskyblue")+
  geom_point(size=0.8,color="red")+
  theme(panel.grid.major =element_blank(), panel.grid.minor = element_blank(),
        panel.background = element_blank(),axis.line = element_line(colour = "black"))
topptx(filename = file.path("/XXXX","SO2.pptx"),width = 9,
       height = 6,units="in")
dev.off()

ggplot(b,aes(x=date,y=CO))+
  geom_line(color="lightskyblue")+
  geom_point(size=0.8,color="red")+
  theme(panel.grid.major =element_blank(), panel.grid.minor = element_blank(),
        panel.background = element_blank(),axis.line = element_line(colour = "black"))
topptx(filename = file.path("/XXXX","CO.pptx"),width = 9,
       height = 6,units="in")
dev.off()

ggplot(b,aes(x=date,y=temp))+
  geom_line(color="lightskyblue")+
  geom_point(size=0.8,color="red")+
  theme(panel.grid.major =element_blank(), panel.grid.minor = element_blank(),
        panel.background = element_blank(),axis.line = element_line(colour = "black"))
topptx(filename = file.path("/XXXX","temp.pptx"),width = 9,
       height = 6,units="in")
dev.off()