考虑到最近天气极端,我就网上找了一些资料,做一些气象类的数据分析。
一.数据准备:选取的2015年的上海天气数据

shanghaiweather<-read_csv("Desktop/上海天气数据.csv")
shanghaiweather<-data.frame(days = rep(1:30,4),
values = as.vector(as.matrix(shanghaiweather[,3:6])),
group = rep(c("平均温度(℃)","平均相对湿度","日降雨量(mm)","平均风力(m/s)"),
each = dim(shanghaiweather)[1]))
二.数据作图

代码如下:
ggplot(shanghaiweather) +theme_bw(base_family = "STKaiti") +
geom_line(aes(days,values),colour = "red") +
facet_wrap(~group,scales = "free") +
scale_x_continuous(breaks = seq(1,30,4),labels = paste(seq(1,30,4),"日",sep = "")) +
theme(plot.title = element_text(hjust = 0.5)) +
labs(y="数值",title ="2015年12月份上海天气") +
xlab("日期")

文章转载自R语言数据分析与建模,如果涉嫌侵权,请发送邮件至:contact@modb.pro进行举报,并提供相关证据,一经查实,墨天轮将立刻删除相关内容。




