使用 R + Shiny + rCharts 產生動態的 Leaflet 地圖

2014-04-22 OSM-TW Webinar

使用 R + Shiny + rCharts 產生動態的 Leaflet 地圖

Department of Nuclear Medicine, Kaohsiung Veterans General Hospital
Sin-di Lee

Background picture: Stamen / Map data: OSM and its contributors

動機

有些政府的資料是地理資訊 (例如 CityBike station和...)，我想要畫成地圖 (Leaflet, OpenLayers...)。

從上次 Rex 的分享，我們可以知道收集到地理資訊，可以透過 leaflet.js 呈現。

但是我不太會用 javascript
目前只會寫一點點 R 和一點點 Python

今天會用到一些 R 套件

主要的功能

shiny
leafletR
rCharts，目前尚未收錄到 CRAN，安裝方式比較特別。

色譜

scales

資料 reshape

plyr

R -> Leaflet

我們試試看範例資料，欄位："X", "clinicRef", "clinicName", "clinicAddr", "groupRef", "groupName","lon", "lat"


		cList <- read.csv("cList.csv")

至少有兩個套件可以生出 leaflet 頁面:
- leafletR
- rCharts中的 Leaflet

leafletR


		s.dat <- toGeoJSON(data=cList, lat.lon=c("lat", "lon"))

		s.sty <- styleCat(prop="groupName",val=grouplist, style.val= hue_pal()(length(grouplist)))

		s.map <- leaflet(data=s.dat, style=s.sty, base.map = c("osm", "cm", "mqosm"), popup="clinicRef")

		browseURL(s.map)

leafletR - Step by step

toGeoJSON: 需要定義 lat 和 lon 的 column 名稱，產生 GeoJSON檔案
styleCat: 另有 styleSingle和styleGrad
leaflet: 把geojson 和 style 湊在一起，定義 base.map 以及 popup，產生 leaflet 頁面

後來改用 rCharts 的原因

style 設定有點限制，例如只能產生 circleMarker
不想產生新的檔案
跟 shiny 的合作比較順利 (在下才疏學淺，leafletR 卡關)

rCharts

Code 比較長一點，為了方便，寫 code 時定義下列幾個 function：

getList: data.frame -> 為了產生 rCharts 可吃的 list
getCenter: 尋找資料的中心，rCharts 的範例程式都需要這個步驟，似乎不能 auto...
plotMap: list -> geoJSON ->畫圖

官方的文件非常不完整...

rCharts 可以吃的List

list in list
以下欄位必備：latitude, longitude
這時候就要定義好：fillColor, popup

Shiny

可以互動
ui.R, server.R (可以加上 global.R)
可 deploy 到 shinyapps.io 上，但是我遇到中文問題，尚未克服。

Demo *3

Thank You

Fork me on Github