我正在尝试使用choroplethrZip包绘制邮政编码级别的等值线，并使用Plotly来悬停文本/工具提示。 choroplethrZip图是ggplot2对象，所以我可以使用zip_choropleth函数制作一个邮政编码等值线，然后使用plotly的ggplotly（）函数来渲染一个等值区域，其中预定义的区间是悬停文本。我希望悬停文本是我数据框中的“区域”列，以及“值”列。 ggplotly的工具提示参数显示美学映射，但choroplethrZip不允许我指定那些。我尝试使用
添加它们+geom_blank(aes(text=region))
，但我得到相同的结果，悬停文本只是zip所属的bin。
示例代码：
library(choroplethrZip)
library(choroplethr)
library(choroplethrMaps)
library(plotly)
library(ggplot2)
df <- get_zip_demographics(endyear= 2013, span=5)
colnames(df)[2] <- c("value")
zipplot <- zip_choropleth(df, state_zoom = "alabama")
ggplotly(zipplot)
编辑添加代码示例所需的库。此外，choroplethrZip软件包不在CRAN上，因此这里有一个安装说明链接：