library(tidyverse)
library(VIM)
library(openair)
library(tseries)
library(lubridate)
library(reshape2)
读取数据集:
load("pollutants_data.Rdata")
- 检查数据有效性(缺失值、异常值)
该数据集在前期已做处理,对数据的前处理规则不再赘述,此处仅讨论图形化的展示方法。首先绘制时间序列图,进行直观判断:
数据不存在缺失值的情况
aggr(pollutants_data)
添加日期的时间
pollutants_data$date <- ym(paste(pollutants_data$year,pollutants_data$month,sep = "-"))
选择