比如，X 范围 xa~xb Y范围 ya~yb
然后画第一张图，坐标范围设定为 xlim=c(xa,xb) ,ylim=c(ya,yb)
然后画其他图线，注意加 add=TRUE 参数设定。就能画出来很多图线了。
一、模拟数据背景：绘制深圳市某区各街道10月份法定传染病发生率较上月的变化情况（数据均为虚拟）。
dat<-data.frame(grou=c("平湖街道","布吉街道","吉华街道","坂田街道","南湾街道", "横杠街道","园山街道","龙岗街道","龙城街道","宝龙街道","坪地街道"), val=c(32.12,-12.22,22.3,24.55,-27.8,-10.56,31.22,23.45,-22.3,-12.45,22.78))
（可左右滑动查看代码）
二、绘图
我们绘制一个基本的图形，并作基本修饰。
library(ggplot2) library(hrbrthemes) ggplot(dat, aes(x = grou, y = val)) + geom_bar(stat = "identity", show.legend = FALSE, width = .5) + xlab("街道") + ylab("变化率")+ theme_ipsum()+ labs( title = "深圳市某区10月各街道法定传染病较上月变化(%)", subtitle="R语言与医学生" )
