Question

我使用ssplot多层来绘制意大利地图区域边界内省份的颜色。这是我的代码：

library(raster)
library(latticeExtra)
setwd("c:\\temp")
gadm<-getData('GADM', country='Italy', level=2)
gadm2<-getData('GADM', country='Italy', level=1)

spplot(gadm, "ID_2",col=NA)+
layer(sp.polygons(gadm2, first=F))

现在我想用ggvis包创建一个交互式地图。我开始用区域边界创建主地图：

library(ggvis)
library(ggplot2)
library(rgeos)

#convert in a data frame
map2 <- fortify(gadm2, region="NAME_1")
map<- fortify(gadm, region="NAME_2")


map2%>%
  ggvis(~long, ~lat) %>%
  group_by(group, id) %>%
  layer_paths(strokeOpacity:=0.5, stroke:="#7f7f7f") %>%
   hide_axis("x") %>% hide_axis("y") %>%
  set_options(width=400, height=600, keep_aspect=TRUE)

现在我不明白如何使用省级颜色绘制另一个图层。

Answer 1

两个键：layer_paths可以使用填充参数填充多边形内部，您可以在图层中指定一个新数据集（类似于ggplot2）。

map2%>%
  ggvis(~long, ~lat) %>%
  group_by(group, id) %>%
  layer_paths(data = map %>% group_by(group, id), 
              strokeWidth := 0, fill = ~id) %>%
  layer_paths() %>%
  hide_axis("x") %>% hide_axis("y") %>%
  set_options(width=400, height=600, keep_aspect=TRUE)

（我摆脱了strokeOpacity:=0.5, stroke:="#7f7f7f"，因为我认为它不清楚边框的位置，但如果你愿意，你可以把它们重新加入）

使用ggvis包在地图中的多个图层

1 个答案: