shiny动态仪表盘应用 | 中国世界自然文化遗产可视化案例

感谢关注天善智能，走好数据之路↑↑↑

欢迎关注天善智能，我们是专注于商业智能BI，大数据，数据分析领域的垂直社区，学习，问答、求职一站式搞定！

本文作者：天善智能社区专家杜雨

天善智能社区地址：https://www.hellobi.com/

这一篇很早就想写了，一直拖到现在都没写完。

虽然最近的社交网络上娱乐新闻热点特别多，想用来做可视化分析的素材简直多到不可想象，但是我个人一向不追星，对明星热文和娱乐类的新闻兴趣不是很大。还是更愿意把自己的精力贡献在那些不起眼的，然而却更能触动我们心灵与文化内涵的素材上来。

今天要写的主题中国的世界遗产名录，我将使用简单的网络数据抓取，多角度呈现我国当前已经拥有的世界遗产名录数目、类别、地域分布、详情介绍等。

http://www.zyzw.com/twzs010.htm

library("rvest")

library("stringr")

library("xlsx")

首先要确定好要爬取的目标信息。我感兴趣的是世界遗产的名称、申请成功的时间、分布的省份、遗产的性质、简介、详情页网址、预览图片地址。然后分析页面信息与后台代码，准备进入爬取阶段。

url<-"http://www.zyzw.com/twzs010.htm"

web<-read_html(url,encoding="GBK") Name<-web %>% html_nodes("b")%>%html_text(trim = FALSE)%>%gsub("(\\n\\t|，|\\d|、)","",.)%>%grep("\\S",.,value=T)%>%str_trim(side="both")%>%.[1:54]%>%.[setdiff(1:54,c(35,39))]link<-paste0("http://www.zyzw.com/zgsjyc/zgsjyc",sprintf("%03d",1:52),".htm")img_link<-paste0("http://www.zyzw.com/zgsjyc/zgsjyct/zgsjyc",sprintf("%03d",1:52),".jpg")mydata<-data.frame(Name=Name,link=link,img_link)write.xlsx(mydata,"E:/***/mydata.xlsx",sheetName="Sheet1",append=FALSE)

其他信息过于杂乱，抓取清洗非常耗时，索性手动在Excel里面清洗了。

setwd("E:/shiny/WorldHeritageSites")

library("xlsx")

library("lubridate")

library("ggplot2")

library("plyr")

library("RColorBrewer")