nCov2019英文版,歪果仁也能用这次武汉疫情的数据了
首先你只要用lang='en'
就行。
require(nCov2019)
x = get_nCov2019(lang='en')
x[]
用法完全一样,输出为:
name confirm suspect dead deadRate showRate heal healRate showHeal
1 Hubei 63454 0 2250 3.55 FALSE 13557 21.37 TRUE
2 Guangdong 1339 0 5 0.37 FALSE 720 53.77 TRUE
3 Henan 1270 0 19 1.50 FALSE 802 63.15 TRUE
4 Zhejiang 1205 0 1 0.08 FALSE 694 57.59 TRUE
5 Hunan 1013 0 4 0.39 FALSE 670 66.14 TRUE
6 Anhui 989 0 6 0.61 FALSE 620 62.69 TRUE
7 Jiangxi 934 0 1 0.11 FALSE 544 58.24 TRUE
8 Shandong 750 0 4 0.53 FALSE 301 40.13 TRUE
9 Jiangsu 631 0 0 0.00 FALSE 387 61.33 TRUE
10 Chongqing 572 0 6 1.05 FALSE 316 55.24 TRUE
11 Sichuan 526 0 3 0.57 FALSE 242 46.01 TRUE
12 Heilongjiang 479 0 12 2.51 FALSE 183 38.20 TRUE
13 Beijing 399 0 4 1.00 FALSE 178 44.61 TRUE
14 Shanghai 335 0 3 0.90 FALSE 227 67.76 TRUE
15 Hebei 309 0 6 1.94 FALSE 184 59.55 TRUE
16 Fujian 293 0 1 0.34 FALSE 150 51.19 TRUE
17 Guangxi 249 0 2 0.80 FALSE 99 39.76 TRUE
18 Shaanxi 245 0 1 0.41 FALSE 140 57.14 TRUE
19 Yunnan 174 0 2 1.15 FALSE 107 61.49 TRUE
20 Hainan 168 0 4 2.38 FALSE 96 57.14 TRUE
21 Guizhou 146 0 2 1.37 FALSE 90 61.64 TRUE
22 Tianjin 135 0 3 2.22 FALSE 64 47.41 TRUE
23 Shanxi 132 0 0 0.00 FALSE 78 59.09 TRUE
24 Liaoning 121 0 1 0.83 FALSE 66 54.55 TRUE
25 Gansu 91 0 2 2.20 FALSE 76 83.52 TRUE
26 Jilin 91 0 1 1.10 FALSE 46 50.55 TRUE
27 Xinjiang 76 0 2 2.63 FALSE 24 31.58 TRUE
28 Inner Mongolia 75 0 0 0.00 FALSE 22 29.33 TRUE
29 Ningxia 71 0 0 0.00 FALSE 48 67.61 TRUE
30 Hong Kong 69 0 2 2.90 FALSE 10 14.49 TRUE
31 Taiwan 26 0 1 3.85 FALSE 2 7.69 TRUE
32 Qinghai 18 0 0 0.00 FALSE 18 100.00 TRUE
33 Macau 10 0 0 0.00 FALSE 6 60.00 TRUE
34 Tibet 1 0 0 0.00 FALSE 1 100.00 TRUE
历史数据也是一样,lang="en"
就可以:
> y <- load_nCov2019(lang='en')
> summary(y, 'Guangdong')
time province cum_confirm
32020-01-25 Guangdong 78
3942020-01-26 Guangdong 111
6092020-01-28 Guangdong 207
9912020-01-29 Guangdong 277
10322020-01-30 Guangdong 354
14912020-01-31 Guangdong 436
18652020-02-01 Guangdong 535
23502020-02-02 Guangdong 632
26502020-02-03 Guangdong 725
31332020-02-04 Guangdong 813
33992020-02-05 Guangdong 895
39642020-02-06 Guangdong 970
42462020-02-07 Guangdong 1034
46352020-02-08 Guangdong 1095
51102020-02-09 Guangdong 1131
54752020-02-10 Guangdong 1159
60062020-02-11 Guangdong 1177
63812020-02-12 Guangdong 1219
69042020-02-13 Guangdong 1241
72212020-02-14 Guangdong 1261
76442020-02-15 Guangdong 1294
80682020-02-16 Guangdong 1316
83872020-02-17 Guangdong 1322
90352020-02-18 Guangdong 1328
95022020-02-19 Guangdong 1331
96782020-02-20 Guangdong 1332
101042020-02-21 Guangdong 1333
画个地图试一下:
plot(x)
翻译
我们提供了trans_province
和trans_city
两个函数,可以中英文互相翻译,所以如果你需要在别的地方用这翻译功能的话,用这个包就对了。
> trans_province(c('湖北', '浙江'))
[1] "Hubei""Zhejiang"
默认是中文翻英文,但如果你告诉它你的输入是英文的话,它会尝试翻成中文:
> trans_province(c("Hubei", "Guangdong"), lang='en')
[1] "湖北""广东"
另外我还从这两个软件学到一点东西,比如甘孜,翻出来,我就得去查一下,才发现是对的。
> trans_city('甘孜')
[1] "Garzê"
画地图
如果你使用英文版,又使用英文地图的话,当然没有问题,但问题是如果你只有中文的地图呢?那也容易,把地图翻成英文就行,即使是歪果仁,只有中文的地图,照样用trans_province
和trans_city
搞定,然后出图。
require(chinamap)
cn = get_map_china()
## 只需加这一句,翻译一下
cn$province <- trans_province(cn$province)
plot(x, region='china', chinamap=cn,
continuous_scale=FALSE,
palette='Blues', font.size=2)
而画市界的,也是照样,只需要翻译一下城市:
m <- sf::st_read("../Downloads/市界.shp")
map <- tibble::as_tibble(m)
map$NAME <- trans_city(map$NAME)
plot(x, region='Hubei', chinamap=map)
trans_province
和trans_city
是你们的朋友。另外市界的地图在《一次搞定所有的疫情地图》。