主要內容：R語言繪制時序圖時，自定義設置x軸時間刻度為天/周/月
數據介紹：北京市2020年5月1日至2020年7月31日空氣環境質量指數

目錄

• • • plot函數繪制
    • ggplot函數繪制

plot函數繪制

主要思想：刪除原有標簽，自定義新的時間間隔數據即可

1、設置x軸時間間隔為一周

data<-read.csv('aqi_data.csv') data$date<-as.Date(data$date) x_label<-seq(from=as.Date("2020-05-01"),to=as.Date("2020-07-31"),by=7) #生成新的標簽 par(mgp=c(3,0.5,0)) #調整x軸坐標軸與標簽距離 plot(data$date,data$AQI,xlab='',xaxt='n', #刪除原有標簽ylab='AQI',type='l',main='2020年5月1日-7月31日北京市AQI變化趨勢') axis(1,x_label,format(x_label,"%Y-%m-%d"),las=2) #添加新的標簽至坐標軸,las可旋轉標簽

2、設置x軸時間間隔為兩周
修改by=14即可，注意時間如果不夠14天的話，并不會以2020年7月31日為結束日期。因此，為標簽顯示的連續性，加上最后一天

x_label<-c(seq(from=as.Date("2020-05-01"),to=as.Date("2020-07-31"),by=14),"2020-07-31") par(mgp=c(3,0.5,0)) plot(data$date,data$AQI,xlab='',xaxt='n',ylab='AQI',type='l',main='2020年5月1日-7月31日北京市AQI變化趨勢') axis(1,x_label,format(x_label,"%Y-%m-%d"),las=2)

注：若想X軸標簽只顯示到月，對%Y-%m-%d進行修改即可（Y-年，m-月，d-天）

ggplot函數繪制

ggplot修改方式較為簡單，只需修改scale_x_date(date_breaks = "7 days")即可實現任意時間間隔，前提是x軸變量必須是日期型！

library(ggplot2) data$date<-as.Date(data$date) ggplot(data,aes(x=date,y=AQI,color='AQI'))+geom_line(size=1)+scale_x_date(date_breaks = "7 days")+ labs(x='',y='',title='2020年5月1日-7月31日北京市AQI變化趨勢')+theme(plot.title = element_text(face="plain",size=10,hjust=0.5),axis.title.x = element_blank(),axis.title.y = element_text(size=10),axis.text.x = element_text(angle = 90,size=10),axis.text.y = element_text(size=10),legend.title=element_blank(),legend.text=element_text(size=10))

總結：兩種繪圖方式都必須先將x軸變量轉為日期型，字符型噠咩

總結

以上是生活随笔為你收集整理的R语言(四) 自定义设置x轴时间刻度值的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。