背景:绘制深圳市某区各街道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语言与医学生" )
为图形添加背景网格线可以通过grid()函数实现。用法
grid(nx = NULL, ny = nx, col = "lightgray", lty = "dotted",
lwd = par("lwd"), equilogs = TRUE)
1
2
1
2
nx和ny 参数分别表示横纵轴上网格线的条数。
equilogs 参数表示坐标轴取了对数之后,使用等距网格线还是依据函数使用非等距网格线。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)