使用R中的工具提示绘制县级数据

Question

我在美国县级网站www.betydb.org上看过一个互动的等值线图。我想使用R重现类似的地图。我只想要地图和工具提示（不是所有不同缩放级别的切片，或者切换地图的能力）

地图当前在ruby中创建，弹出窗口（在左下角）查询MySQL数据库。编写它的程序员继续前进，我不熟悉Ruby。

在这里，我将从一个csv文件开始。数据包括州和县名，州和县FIPS。我想绘制Avg_yield。

mydata <- read.csv("https://www.betydb.org/miscanthus_county_avg_yield.csv")
colnames(mydata)
#  [1] "OBJECTID"    "Join_Count"  "TARGET_FID"  "COUNTY_NAME" "STATE_NAME"  "STATE_FIPS" 
#  [7] "CNTY_FIPS"   "FIPS"        "Avg_lat"     "Avg_lon"     "Avg_yield"  

我可以使用googleVis包

在州一级进行绘图

library(googleVis)
p <- gvisGeoChart(data = mydata, locationvar="STATE_NAME", colorvar = 'Avg_yield',
                  options= list(region="US", displayMode="regions", 
                  resolution="provinces"))
plot(p)

这提供了状态级着色。我的问题是，如何在县级（而不是州级）解决方案中使用颜色和工具提示来获得类似的内容？

gvisGeoChart帮助（在区域和分辨率下）和Google chart documentation表明这可能无法实现，但文档非常广泛，以至于我不清楚其他选项是什么，在R中

那么，有没有办法在县级获得带有工具提示和着色的地图？

Answer 1

这是一个来自2013年的问题。我不确定packageA包是否已经退出。现在是2017年底，可以实现您的任务。如果您仍需要执行类似的任务，我想为您留下以下内容。在这种情况下，数据集中有一些缺失的县。这些县在美国多边形数据中存在，但packageB.packageA中缺少这些数据。因此，我使用leaflet和mydata将这些县添加到mydata。绘制传单地图时，需要指定调色板。 setdiff()是一个连续变量。所以你使用bind_rows()。我留下了一个屏幕截图，显示了传单地图的一部分。

Avg_yield