##這里讀入的數據為北京2007年第一季度的AQI數據 databjs1<-read.csv("F:/bjaqis1.csv",header=T) databjs1$日期<-as.Date(databjs1$日期)##將日期轉換為函數包可識別的形式 names(databjs1)[1]<-"date" breaksbj<-c(0,50,100,150,200,300,500) #將AQI按污染程度劃分 labelw<-c("優","良","輕度污染","中度污染","重度污染 ","嚴重污染") colsbj=c(brewer.pal(9,"YlGn")[6],brewer.pal(9,"YlGnBu")[3],openColours(scheme = "heat", n = 8)[4:7])#定義了自己喜歡的顏色 calendarPlot(databjs1,pollutant="AQI",year=2017,month=c(1:3),breaks=breaksbj,labels=labelw, cols =colsbj,main="北京市2017年一季度AQI指數")

?

• 這是今天的成果，需要載入的包是：

?????????? library(openair)

?????????? library(RColorBrewer)

• 參看?calendarPlot##獲取更多函數calendarPlot細節
• 統計之都https://cosx.org/2012/05/calendarheatmap
• 這個公眾號：http://mp.weixin.qq.com/s/1SPUN-NgQGKfGunYxYZ_zQ有相關文章

?

轉載于:https://www.cnblogs.com/winda921/p/7643167.html

創作挑戰賽新人創作獎勵來咯，堅持創作打卡瓜分現金大獎

總結

以上是生活随笔為你收集整理的R作图-----北京市2017年一季度AQI指数日历热图的全部內容，希望文章能夠幫你解決所遇到的問題。

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