##這里讀入的數(shù)據(jù)為北京2007年第一季度的AQI數(shù)據(jù) databjs1<-read.csv("F:/bjaqis1.csv",header=T) databjs1$日期<-as.Date(databjs1$日期)##將日期轉(zhuǎn)換為函數(shù)包可識別的形式 names(databjs1)[1]<-"date" breaksbj<-c(0,50,100,150,200,300,500) #將AQI按污染程度劃分 labelw<-c("優(yōu)","良","輕度污染","中度污染","重度污染 ","嚴(yán)重污染") 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指數(shù)")

?

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

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

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

• 參看?calendarPlot##獲取更多函數(shù)calendarPlot細(xì)節(jié)
• 統(tǒng)計之都https://cosx.org/2012/05/calendarheatmap
• 這個公眾號：http://mp.weixin.qq.com/s/1SPUN-NgQGKfGunYxYZ_zQ有相關(guān)文章

?

轉(zhuǎn)載于:https://www.cnblogs.com/winda921/p/7643167.html

創(chuàng)作挑戰(zhàn)賽新人創(chuàng)作獎勵來咯，堅持創(chuàng)作打卡瓜分現(xiàn)金大獎

總結(jié)

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

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。