首先你把横轴纵轴要打的东西分别放在2个向量month和sales
month<-paste(5,1:31,sep="/")
sales<-sample(100,31) #我随机从1到100里抽31个数
然后你把plot(1:31,sales,xaxt="n",xlab="Each day")打出来 xaxt="n"就是先不显示x的刻度
下面跟
>axis(1,labels=month,at=1:31,las=3) 1是你要对x轴作修改，labels就是你要打的内容，at就是你要多少个刻度(这里只能是1到31)，las是这些刻度的显示形式，3就是竖着
一、模拟数据背景：绘制深圳市某区各街道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语言与医学生" )
r语言让横坐标显示日期：使用低级绘图命令，如points(x,y)、lines(x,y)、text(x,y)等比如利用plot(2,3)做了个点图，再用points(1,2)，则在(1,2)加了个点，变成2个点在一张图上。
首先你把横轴纵轴要打的东西分别放在2个向量month和salesmonth<-paste(5,1:31,sep="/")sales<-sample(100,31) #我随机从1到100里抽31个数然后你把plot(1:31,sales,xaxt="n",xlab="Each day")打出来 xaxt="n"就是先不显示x的刻度。
安装包：
1、通过选择菜单：程序包->安装程序包->在弹出的对话框中，选择你要安装的包，然后确定。
2、使用命令install.packages("package_name","dir")package_name:是指定要安装的包名，请注意大小写。
dir:包安装的路径。默认情况下是安装在..\library 文件夹中的。可以通过本参数来进行修改，来选择安装的文件夹。
