資料視覺化3

林嶔 (Lin, Chin)

Lesson 10

第一節:結合地理資訊的視覺化(1)

– Google地圖是我們最常用的地圖,他包含了街道圖/衛星圖等不同圖資,在R裡面我們可以透過套件輕鬆的與Google地圖作結合。

– 請至這裡下載登革熱流行的範例資料。

dat = read.csv("data10_1.csv", header = TRUE, fileEncoding = 'CP950')
head(dat)
##       發病日 個案研判日     通報日 性別 年齡層 居住縣市 居住鄉鎮 居住村里
## 1 1998/01/02            1998/01/07   男  40-44   屏東縣   屏東市         
## 2 1998/01/03            1998/01/14   男  30-34   屏東縣   東港鎮         
## 3 1998/01/13            1998/02/18   男  55-59   宜蘭縣   宜蘭市         
## 4 1998/01/15            1998/01/23   男  35-39   高雄市   苓雅區         
## 5 1998/01/20            1998/02/04   男  55-59   宜蘭縣   五結鄉         
## 6 1998/01/22            1998/02/19   男  20-24   桃園市   蘆竹區         
##      最小統計區 最小統計區中心點X 最小統計區中心點Y   一級統計區 二級統計區
## 1 A1320-0136-00          120.5059          22.46425 A1320-04-008   A1320-04
## 2 A1303-0150-00          120.4536          22.46639 A1303-09-007   A1303-09
## 3 A0201-0449-00          121.7514          24.74922 A0201-23-006   A0201-23
## 4 A6408-0153-00          120.3381          22.63032 A6408-10-010   A6408-10
## 5 A0209-0232-00          121.7983          24.68457 A0209-10-005   A0209-10
## 6 A0305-0543-00          121.2965          25.04431 A0305-36-002   A0305-36
##   感染縣市 感染鄉鎮 感染村里 是否境外移入 感染國家 確定病例數
## 1                                      否                   1
## 2                                      是                   1
## 3                                      是                   1
## 4                                      否                   1
## 5                                      否                   1
## 6                                      是                   1
library(RgoogleMaps)

第一節:結合地理資訊的視覺化(2)

– 注意,你需要準備API Key:

lat = c(22.88751, 23.41373)
lon = c(120.023, 120.6562)
center = c(mean(lat), mean(lon))
zoom = min(MaxZoom(range(lat), range(lon)))

MyMap = GetMap(center = center, zoom = zoom, API_console_key = 'AIzaSyA4DVFtF70aXE7RgrXViy2z5Ku2pMkVxFI')
PlotOnStaticMap(MyMap)