添加悬停文本（R Plotly Map）

Posted 2023-02-18

【中文标题】添加悬停文本（R Plotly Map）

【英文标题】：Adding Hover Text (R Plotly Map)

【发布时间】：2021-04-19 13:53:57

【问题描述】：

我想将悬停文本添加到此地图（来自 ~IntZoneName），但找不到方法。 我使用分散是正确的吗？ 我正在使用已与数据框连接的空间文件，然后使用 Plotly 使图形交互。目前悬停只是显示来自 ~CrudeRate7DayPositive 的数据。

plot_ly(map_x,
        type = "scatter",
        color = ~CrudeRate7DayPositive,
        colors = cols,
        text = ~IntZoneName, 
        hoverinfo = "text",
        alpha = 0.8) %>% 
        layout(title = "Crude Rates") 

【参考方案1】：

我放弃了阴谋并选择了 ggiraph，它做了我想做的一切

gg <- ggplot(map_x) +
  geom_sf_interactive(aes(fill = CrudeRate7DayPositive, 
                          tooltip = c(paste0(IntZoneName, "\n",CrudeRate7DayPositive,  " cases per 100,000 \n (7 Day Crude Rate)")),  
                          data_id = IntZoneName)) +
  scale_fill_brewer(palette = "Purples") +
  theme_void()
x <- girafe(ggobj = gg)
x <- girafe_options(x,
                    opts_zoom(min = 0.7, max = 2) )
if( interactive() ) print(x)