Para avaliar a distribuição dos valores em cada mês.
ggplot(rsmes,aes(x=factor(mes),y=pm2.5))+
geom_boxplot()
Para visualizar a evolução ao longo do ano.
rs %>%
group_by(mes) %>%
summarise(pm2.5=mean(PM2.5,na.rm=T)) %>%
ggplot(mapping = aes(x = mes,y = pm2.5))+
geom_line(linewidth = 1.5,colour = "red")+
geom_smooth()+
theme_light()+
labs(title = "Evolução do PM2.5")+
scale_x_continuous(breaks = 1:length(rs$mes))
## `geom_smooth()` using method = 'loess' and formula = 'y ~ x'