当我们将鼠标悬停在R的Plotly图中的误差线上时,是否有任何方法可以将其禁用?

问题描述 投票:1回答:1

当我们将悬停标签移到误差线上方时,有什么方法可以禁用它吗?我正在使用ggplotly绘制图形。当光标移动到图形顶部时,我正在使用工具提示功能来表示条形图中的值。

    Source_Data <-
    data.frame(
    key = c(1, 1, 1, 2, 2, 2, 3, 3, 3),
    Product_Name = c(
      "Table",
      "Table",
      "Chair",
      "Table",
      "Bed",
      "Bed",
      "Sofa",
      "Chair",
      "Sofa"
    ),
    Product_desc = c("XX", "XXXX", "YY", "X", "Z", "ZZZ", "A", "Y", "A"),
    sd = c(0.1, 0.3, 0.4, 0.5, 0.6, 0.7, 0.7, 0.8, 0.5),
    Cost = c(1, 2, 3, 4, 2, 3, 4, 5, 6)

   )

ggplotly((
   Source_Data %>%
    ggplot(
      aes(
        Product_Name,
        Cost,
        ymin = Cost - sd,
        ymax = Cost + sd,
        fill = Product_desc,
        text = paste("Product Name:", Product_Name, "<br>", "Cost:", Cost)
      )
    ) +
    geom_col(position = position_dodge2(width = .9, preserve = "single")) +
    geom_errorbar(position = position_dodge2(
      width = .9,
      preserve = "single",
      padding = .5
    )) +
    geom_text(
      aes(y = Cost + sd, label = Cost),
      position = position_dodge2(width = .9),
      vjust = -1
    ) +
    facet_wrap( ~ key, scales = "free_x", strip.position = "bottom") +
    theme(strip.placement = "outside") +
    theme_bw()
    ),
   tooltip = "text"
   )

当我将光标移到条上时,我得到了文本值,那很好。但是我希望仅在将光标移到条形上方时显示此内容,而在错误条形移至上方时,不会弹出任何值。

我愿意接受所有建议。

预先感谢。

大卫。

r plotly shinydashboard ggplotly errorbar
1个回答
© www.soinside.com 2019 - 2024. All rights reserved.