R语言爬取中国天气网单个城市实时天气预报数据

在传统零售行业，雨天天气大概会影响晴天30%-40%的销售业绩，所以从网上获取天气数据来作分析，并根据天气数据作出预测，提前做好预防措施和提醒业务人员，把损失减少到最低就显得十分重要，用R语言的rvest包就可以方便抓取天气数据：
本文章的例子仅用于学习之用，如涉及版权隐私信息，请联系本人删除，谢谢

# install.packages("rvest")
library(rvest)
url<-"http://www.weather.com.cn/weather/101280101.shtml"
# 解析网页
web<-read_html(url,encoding = "utf8")
# 天气数据抓取
weather<-web%>%
  html_nodes("div")%>%
  html_nodes("ul.t.clearfix")%>%
  html_nodes("li")%>%
  html_text()%>%
  strsplit(split="[\n]+")%>%
  as.data.frame(fix.empty.names = FALSE,row.names=c("无","date","weather","temperature","wind"))%>%
  t()
weather<-weather[,c(-1,-2)]
# 标示实时日期
date<-c(Sys.Date(),Sys.Date()+1,Sys.Date()+2,Sys.Date()+3,Sys.Date()+4,Sys.Date()+5,Sys.Date()+6)
weather<-data.frame(date,weather)