基于R语言制作2019-nCov新型冠状病毒可视化报表

最新推荐文章于 2024-08-09 22:32:12 发布

我是李宇春

最新推荐文章于 2024-08-09 22:32:12 发布

阅读量9.9k

点赞数 11

文章标签：可视化数据可视化数据分析 r语言

本文链接：https://blog.csdn.net/qq_33431747/article/details/104144576

版权

该博客利用丁香园官网数据，通过R语言的rvest, stringr, REMap和echarts4r等包，展示了如何创建新型冠状病毒的疫情地图密度图、迁徙图及交互式图表，旨在进行技术交流。" 112713564,10542287,PyTorch APEX安装与错误解决指南,"['PyTorch', '深度学习', '库安装', 'CUDA版本', '模型优化']

摘要由CSDN通过智能技术生成

数据源：丁香园

* 基于丁香园官网数据，制作此次新型冠状病毒(2019-nCov)的疫情感染可视化图表

* 应用到的R语言包主要有：rvest&stringr（爬取数据并规整）、REmap（绘制地理密度图&迁徙图）、echarts4r（制作交互式图表，也可用ggplot2做可视化）

* 本文仅供进行技术交流，如有其他意见和建议还请评论或私信告知; 如有侵权请私信删除

* 未完待续。。。

基础数据爬取

library(REmap)
library(baidumap)
require(rvest)
require(magrittr)
library(dplyr)
library(tidyr)
library(stringr)
library(knitr)
library(ggplot2)
library(ggthemes)
library(echarts4r)
library(data.table)
library(downloader)

#数据源网址
url <- 'https://3g.dxy.cn/newh5/view/pneumonia'

#city&province  数据爬取
c <- read_html(url) %>% 
  html_nodes("#getAreaStat") %>% 
  html_text()

#total 数据爬取
total_data <- read_html(url) %>% 
  html_nodes("#getStatisticsService") %>% 
  html_text()

#total info ;正则
total_info <- str_extract_all(total_data,'(?<=confirmedCount\\"\\:).+?(?=\\"virus)')

total_data <- data.frame(x = gsub('[^0-9]',' ',total_info )) %>% 
   separate(x, c('confirmedCount','suspectedCount','curedCount','deadCount')) %>% 
  mutate(id = 1:nrow(.)