R 如何将数值映射到ggvis中映射的fill属性？

我正在使用以下代码在ggvis中绘制地图

首先，我下载带有坐标的json文件

us <- readOGR("http://eric.clst.org/wupl/Stuff/gz_2010_us_040_00_20m.json", "OGRGeoJSON")

us 20）%
ggvis（~long，~lat）%>%
分组依据（组，id）%>%
图层路径（笔划不透明度：=0.5，笔划：=“#7f7f7f”，填充：=“#cc0000”）%>%
刻度数值（“y”，域=c（24,50））%>%
刻度数值（“x”，域=c（-126，-72））%>%
隐藏图例（“填充”）%>%
隐藏_轴（“x”）%%>%
隐藏_轴（“y”）%%>%
设置_选项（宽度=400，高度=600，保持_纵横比=TRUE）

但是，由于all进程对我来说有点黑盒，我不知道如何有效地将数据集

value

中的值映射到ggvis映射。我想在填充属性上使用颜色渐变，但即使使用透明度也可以

---

我想我应该告诉

fortify（）

保留

us$NAME

，但是怎么做呢？

你在找这样的东西吗：

us@data$id = rownames(us@data)
us_class = fortify(us, region="id")
us.df = join(us_class, us@data, by="id")
value <- data_frame(NAME=us$NAME, value=seq(1:52)/52)
us.df <- join(us.df, value)

tbl_df(us.df)%>%
  filter(long>-130 & long<0) %>% 
  filter(lat>20) %>% 
  ggvis(~long, ~lat) %>%
  group_by(group, id) %>%
  layer_paths(strokeOpacity:=0.5, stroke:="#7f7f7f", fill:="#cc0000") %>%
  scale_numeric("y", domain=c(24,50)) %>% 
  scale_numeric("x", domain=c(-126,-72)) %>% 
  hide_legend("fill") %>%
  hide_axis("x") %>% 
  hide_axis("y") %>%
  set_options(width=400, height=600, keep_aspect=TRUE) %>%
  layer_paths(fill= ~value)

us@data$id=行名(us@data)
美国等级=强化（美国，地区=“id”）
us.df=加入（us_类，us@data，by=“id”）
价值-130&长期%
过滤器（横向>20）%>%
ggvis（~long，~lat）%>%
分组依据（组，id）%>%
图层路径（笔划不透明度：=0.5，笔划：=“#7f7f7f”，填充：=“#cc0000”）%>%
刻度数值（“y”，域=c（24,50））%>%
刻度数值（“x”，域=c（-126，-72））%>%
隐藏图例（“填充”）%>%
隐藏_轴（“x”）%%>%
隐藏_轴（“y”）%%>%
设置选项（宽度=400，高度=600，保持纵横比=TRUE）%>%
图层路径（填充=~值）

---

谢谢。第二行检索到此错误

错误：isTRUE（gpclibPermitStatus（））不是TRUE

。你知道是什么引起了这场争论吗？另外，我希望颜色是不同的，因为我映射到颜色是一个连续变量，没有重复项。为什么不是这样？这是我的会话信息：maptools\u 0.8-36 plyr\u 1.8.3 rgeos\u 0.3-11 rgdal\u 1.0-4 sp\u 1.2-2 ggplot2\u 2.1.0 ggvis\u 0.4.2 dplyr\u 0.4.3谢谢！这个错误可能是由于一些过时的软件包造成的。

value <- data_frame(stateName=us$NAME, value=seq(1:52)/52)

tbl_df(map)%>%
  filter(long>-130 & long<0) %>% 
  filter(lat>20) %>% 
  ggvis(~long, ~lat) %>%
  group_by(group, id) %>%
  layer_paths(strokeOpacity:=0.5, stroke:="#7f7f7f", fill:="#cc0000") %>%
  scale_numeric("y", domain=c(24,50)) %>% 
  scale_numeric("x", domain=c(-126,-72)) %>% 
  hide_legend("fill") %>%
  hide_axis("x") %>% 
  hide_axis("y") %>%
  set_options(width=400, height=600, keep_aspect=TRUE)

us@data$id = rownames(us@data)
us_class = fortify(us, region="id")
us.df = join(us_class, us@data, by="id")
value <- data_frame(NAME=us$NAME, value=seq(1:52)/52)
us.df <- join(us.df, value)

tbl_df(us.df)%>%
  filter(long>-130 & long<0) %>% 
  filter(lat>20) %>% 
  ggvis(~long, ~lat) %>%
  group_by(group, id) %>%
  layer_paths(strokeOpacity:=0.5, stroke:="#7f7f7f", fill:="#cc0000") %>%
  scale_numeric("y", domain=c(24,50)) %>% 
  scale_numeric("x", domain=c(-126,-72)) %>% 
  hide_legend("fill") %>%
  hide_axis("x") %>% 
  hide_axis("y") %>%
  set_options(width=400, height=600, keep_aspect=TRUE) %>%
  layer_paths(fill= ~value)