library(lubridate)
library(openair)
mydata <- read.table(“data.csv”, header = TRUE, sep=",")
polarPlot(mydata, pollutant= “PM2.5” )
library(lubridate)
library(openair)
mydata <- read.table(“data.csv”, header = TRUE, sep=",")
polarPlot(mydata, pollutant= “PM2.5” )