install.packages("ggplot2")
library(ggplot2)
# 模拟数据集
data=data.frame(Time=c("2015年以前","2016年","2017年","2018年","2019年","2020年","2021年","2022年","2023年"),
Papernumber=c(207,23,35,79,290,843,1555,2519,537))
# 绘图
ggplot(data,aes(x=Time,y=Papernumber))+
geom_bar(stat="identity", width=0.5, color='#3C5488B2',fill='#00A087B2')+geom_text(aes(label=Papernumber),vjust=-1)输出结果:
若有问题可邮箱联系:1736732074@qq.com
博主的WeChat:TCB1736732074