R ggplot2画线形图

library(ggplot2)

#准备数据
yyyyMM <- c('201608', '201607', '201606', '201605', '201604', '201603', '201602', '201601', 
            '201512', '201511', '201510', '201509', '201508', '201507', '201506', '201505', 
            '201504', '201503', '201502', '201501', '201412', '201411', '201410', '201409', 
            '201408', '201407', '201406', '201405', '201404')
paperNum <- c(2, 1, 1, 0, 2, 19, 13, 7, 
              8, 10, 25, 6, 7, 7, 14, 
              6, 23, 52, 32, 12, 11, 
              0, 0, 1, 0, 1, 9, 21, 20)
yyyyMMPaperNum <- data.frame(yyyyMM, paperNum)


###折线 begin###
#ggplot(BOD, aes(x = Time, y = demand)) + geom_line(size = 0, colour = "blue", group=1) + geom_point(size=5, shape=20, colour = "blue")
#ggplot(yyyyMMPaperNum, aes(x=yyyyMMPaperNum$yyyyMM, y=yyyyMMPaperNum$paperNum)) + geom_line(size = 0, colour = "blue", group=1) + geom_point(size=5, shape=20, colour = "blue")

p <- ggplot(yyyyMMPaperNum, aes(x=yyyyMMPaperNum$yyyyMM, y=yyyyMMPaperNum$paperNum))
p <- p + geom_line(size = 0, colour = "blue", group=1)
p <- p + geom_text(label=paste(yyyyMMPaperNum$paperNum, "", sep = "") ,colour = "red", vjust=-0.5) 
p <- p + labs(x="",y="博文数量",title = "余建新的CSDN  每月博文数量") 
p <- p + theme( plot.title = element_text(size = 16, face = "bold"))
p <- p + geom_point(size=5, shape=20, colour = "blue") #画点
p
###折线图 end###