R 呼叫 leaflet 包進行視覺化

leaflet 包可以在地圖背景上，對經緯度的位置資訊進行視覺化。

本文介紹幾個 r 語言呼叫 leaflet 包，進行視覺化的常用語句。

leaflet 包的呼叫：

library(leafletcn)

library(leaflet)
library(leaflet.extras) # 熱力圖等附加功能

province <- "北京市"

map = leafletgeo(province)
map = leaflet(map)
map = amap(map) # 使用高德地圖背景

map <- leaflet() %>% addtiles()

map <- addcircles(map, 

lng = as.numeric(df$lgt), lat = as.numeric(df$lat), 
color = randomcolor())

icon_tmp <- makeawesomeicon(icon = 'home', library = 'glyphicon', 

markercolor = 'blue', iconcolor = 'white', 
spin = false, extraclasses = null) # icon引數可選'home', 'envelope'等
map <- addawesomemarkers(map, 
lng = df$lng, lat = df$lat, 
icon = icon_tmp, 
popup = paste(as.character(point), "位置"))

map <- addpolylines(map, 

lng = c(df$起點經度, df$終點經度), lat = c(df$起點緯度, df$終點緯度), 
color = 'grey', opacity = 0.2)

first_point <- df_route[1, ]

route_points <- rbind(df_route, first_point)
route_points <- data.frame(route_points$lng, route_points$lat, stringsasfactors = false)
names(route_points) <- c('lng', 'lat')
route_points$lng <- as.numeric(route_points$lng)
route_points$lat <- as.numeric(route_points$lat)
route_polygon <- spatialpolygons(list(polygons(list(polygon(route_points)), id = 1)))
map = addpolygons(map, 
data = route_polygon, 
color = 'yellow', weight = 3, fillopacity = 0, opacity = 1)

需要呼叫 leaflet.extra

map <- addheatmap(map, 

lng = as.numeric(df$lng), lat = as.numeric(df$lat), 
intensity = sqrt(as.numeric(df$weight)), 
max = 20.0, 
radius = 12, 
blur = 15, 
data = df)

python 呼叫 R包 整體流程

path c program files r r 3.5.1 bin x64 path c program files r r 3.5.1 bin x64 r.dll 直接用pip install rpy2有問題 選擇 rpy2 2.9.5 cp36 cp36m win amd64.whl 適應py...

用R進行meta分析（meta包）

1.異質性檢驗 異質性檢驗結果如上，異質性為28.3 與上述結果一致。這裡我們把引數comb.fixed設定為false，仍然選擇隨機效應模型 2.森林圖 forest meta3,col.square black col.diamond black col.diamond.lines black ...

python呼叫R語言，關聯規則視覺化

首先當然要配置r語言環境變數什麼的 d r 3.5.1 bin x64 d r 3.5.1 bin x64 r.dll d r 3.5.1 d programdata anaconda3 lib site packages rpy2 本來用python也可以實現關聯規則，雖然沒包，但是視覺化挺麻煩的...