当悬停在R Ploly贴图中的多边形中心时不显示交互式图例.仅显示在轮廓(形状)上

maa = read_sf("map.shp")

map = map %>% mutate(across(c("Frecuency", "Im", "Fo", "April", "July"),
    ~ifelse(is.na(.), 0, .)))

g_map = map %>%
    ggplot(aes(fill = Frecuency, text = paste("Dp: ", NAME, "",
    "Frecuency: ", Frecuency, "","I: ", Im, "
    ",
    "F: ", Fo, "
    ",
    "Abril: ", April, "
    ",
    "Julio: ", July))) +
    geom_sf() +
    scale_fill_gradient(low = "white", high = "darkblue") +
    labs(fill = "Scale", title = "Title") +
    theme_minimal() +
    theme_void()+
    theme(axis.line = element_blank())

# Convert to plotly
g_mapa_int = ggplotly(g_map, tooltip = "text")%>%
    config(displayModeBar = FALSE) %>%
    config(showLink = FALSE)

# Print
g_mapa_int

library(tidyverse)
library(plotly)
library(sf)

nc <- sf::st_read(system.file("shape/nc.shp", package = "sf"), quiet = TRUE)

# built to somewhat replicate the conditions of the plot in your question
g <- ggplot(nc, aes(fill = AREA, text = paste0("Name: ", NAME, "Area: ", AREA))) +
  geom_sf() + scale_fill_gradient(low = "white", high = "darkblue") +
  labs(fill = "Scale", title = "Title") +
  theme_void()

fixer <- function(gp) {
  lapply(1:length(gp$x$data), \(m) {
    gp$x$data[[m]]$hoveron <<- "fills"               # hover on the fill, not line
    if(length(gp$x$data[[m]]$text > 1)) {
      gp$x$data[[m]]$text <<- gp$x$data[[m]]$text[1] # only one tooltip per county
    }
  })
  gp
}

ggplotly(g, tooltip = "text") %>% fixer() # call the UDF to change tooltips

R相关问答推荐

通过绘图 Select 线串几何体并为其着色

将Multilinetring合并到一个线串中，使用sf生成规则间隔的点

保存包含循环和ifelse的函数的输出

terra nearest()仅为所有`to_id`列返回NA

有没有一种方法可以从函数中创建一个值的列表，然后将这些值变成R中的直方图？我一直觉得不行

一小时满足条件的日期的 Select

将饼图插入条形图

R：从geom_ol()中删除轮廓并导出为pdf

展开对数比例绘图的轴(添加填充)

条形图顶部与其错误条形图不对齐

将摘要图添加到facet_WRAP gglot的末尾

变长向量的矢量化和

计算使一组输入值最小化的a、b和c的值

为什么函数toTitleCase不能处理english(1)，而toupper可以？

将数据从一列转换为按组累计计数的单个虚拟变量

以R表示的NaN值的IS.NA状态

R中从因数到数字的转换

将y轴格式更改为R中的百分比

根据向量对列表元素进行排序

基于已有ID列创建唯一ID