污染日历图代码

SYNJU · 发表于 2020-12-4 08:15:21

登录后查看更多精彩内容~

您需要登录才可以下载或查看，没有帐号？立即注册

x

本帖最后由 SYNJU 于 2020-12-16 10:58 编辑

data<-read.csv("C:/Users/lenovo/Desktop/bbdh.csv")
data$date<-as.POSIXct(data$date)
data$PM2.5<-as.integer(data$PM2.5)
library(openair)
breaks<-c(0,35,75,115,150,250,350)
labels<-c("优","良","轻度污染","中度污染","重度污染","严重污染")
cols=c("green","yellow","orange","red","purple","maroon")
calendarPlot(data, pollutant = "PM2.5",breaks =breaks,labels = labels,cols=cols,main="Daily PM2.5 in 2020")

SYNJU · 发表于 2020-12-15 16:10:27

代码见附件

		自动登录	找回密码
密码			立即注册