R

library(readxl)
library(reshape2)
library(ggplot2)

df <- read_xlsx('zhuanzheng.xlsx')

df1 <- df[,-7]
dat1 <- melt(df1,id.vars = "月份")

p1 <- ggplot(dat1,aes(x=月份,y=value,fill=variable))
p1 <- p1 + geom_bar(stat = 'identity',position = 'dodge') +
 labs(title='报告统计图1',x='月份',y='份数')

df2 <- df[,c(1,7)]
p2 <- ggplot(df2,aes(x=月份,y=总计)) 
p2 <- p2 + geom_bar(aes(fill=月份),stat = 'identity') +
labs(title='报告统计图2',x='月份',y='总计')


p3 <- ggplot(dat1,aes(x=月份,y=value,colour=variable,group=variable)) 
p3 <- p3 + geom_line() + geom_point(size=2) +labs(title='报告统计图3',x='月份',y='份数')