我正在尝试在 R 中的 Shiny 应用程序中开发交互式 choropleth。我尝试过使用 plotly、gVis 和 rCharts,但仍然没有任何运气。我现在需要为瑞典可视化它,但稍后我可能也需要为其他国家/地区使用它。到目前为止,这是我对 gvisGeoMap 所拥有的:
polygons <- readOGR("/ggshape", layer="SWE_adm1")
polygons <- fortify(polygons, region="ID_1")
data.poly <- as.data.frame(polygons)
data.poly <- data.poly[,c(1,2)]
data.poly.final <- data.frame(locationvar = paste(data.poly[,2],data.poly[,1], sep = ":"),
numvar=1,
hovervar="test")
data.poly.final$locationvar <- as.character(data.poly.final$locationvar)
data.poly.final$hovervar <- as.character(data.poly.final$hovervar)
map <- gvisGeoMap(data=data.poly.final, locationvar = "locationvar",
options=list(width='800px',heigth='500px',colors="['0x0000ff', '0xff0000']",
dataMode = "markers"))
plot(map)
Run Code Online (Sandbox Code Playgroud)
根据文档,我在这里尝试时应该能够使用纬度和经度坐标,但我还没有成功。我使用的 shapefile 来自http://www.gadm.org/download
基本上,有谁知道如何从 gadm.org 获得交互式可视化来处理 shapefile?
这就是我将如何使用 ggplot
SWE <- fortify(polygons, region="ID_1")
SWEplot <- merge(x=SWE, y=my_data, by="id")
p <- ggplot() +
geom_polygon(data = SWEplot , …Run Code Online (Sandbox Code Playgroud)