如何设置不同的文本和悬停信息文本

How to set different text and hoverinfo text

我正在使用 plotly 包,但我找不到在图表本身和 hoverinfo 中显示不同内容的方法。 这是条形图的示例:

library(plotly)
library(dplyr)

data(iris)

df <- iris %>%
  group_by(Species) %>%
  summarise(n = n(),
            avg = mean(Sepal.Length))

p1 <- plot_ly(data = df,
             x = ~Species,
             y = ~n,
             type = "bar",
             text = ~paste("Species :", Species,
                           "<br> Avg :", avg),
             textposition = "auto",
             hoverinfo = "text")

从这段代码中我得到: 我想在每个栏中显示频率 (n) 值,而不是与 hoverinfo 相同。

我一直在查看 ,但是所描述的解决方案对我来说太复杂了,我认为必须有更简单的方法来解决这个问题。

是这样的吗?

p1 <- plot_ly(data = df,
              x = ~Species,
              y = ~n,
              type = "bar",
              text = ~n,
              textposition = "auto",
              hoverinfo = "text",
              hovertext = paste("Species :", df$Species,
                                "<br> Avg :", df$avg))