R 绘图直方图悬停文本

Question

这是我的代码。只是一个简单的直方图。但我想做的是自定义悬停文本，以便在我悬停时，它将显示该直方图栏中包含的所有物种。你可以帮我吗？

iris %>% 
plot_ly(x=~Sepal.Length, color=~Sepal.Width, text=~Species) %>% 
add_histogram()

这是输出。但是当我悬停时，文本似乎只显示表中的第一个物种。 plotly_hist

Answer 1

我不确定这是否可能。可能你对情节的要求太高了。尝试了一些选项后，我认为如果您希望不同的Species显示在工具提示中，有两种方法可以：

第一种选择是使用堆叠直方图，如下所示hovermode = "unified"：

library(plotly)
fig <- plot_ly()
fig <- fig %>% add_trace(data = filter(iris, Species == "setosa"), 
x = ~Sepal.Length,
color = ~Species,
text = ~Species,
type='histogram',
bingroup=1, showlegend = FALSE)
fig <- fig %>% add_trace(data = filter(iris, Species == "versicolor"),
x = ~Sepal.Length,
color = ~Species,
text = ~Species,
type='histogram',
bingroup=1, showlegend = FALSE)
fig <- fig %>% add_trace(data = filter(iris, Species == "virginica"),
x = ~Sepal.Length,
color = ~Species,
text = ~Species,
type='histogram',
bingroup=1, showlegend = FALSE)
fig <- fig %>% layout(
hovermode="unified",
barmode="stack",
bargap=0.1)
fig

第二种选择是自己进行计算，即分箱和汇总，并制作计数的条形图。

iris %>% 
mutate(Sepal.Length.Cut = cut(Sepal.Length, breaks = seq(4, 8, .5), right = FALSE)) %>% 
group_by(Sepal.Length.Cut, Species) %>% 
summarise(n = n(), Sepal.Width = sum(Sepal.Width)) %>% 
tidyr::unite("text", Species, n, sep = ": ", remove = FALSE) %>%
summarise(n = sum(n), Sepal.Width = sum(Sepal.Width) / n, text = paste(unique(text), collapse = "n")) %>% 
plot_ly(x = ~Sepal.Length.Cut, y = ~n, text = ~text) %>% 
add_bars(marker = list(colorscale = "Rainbow"), hovertemplate = "%{y}<br>%{text}")

编辑第三个选项是使用ggplotly().这样，添加显示每个箱总数的注释就很容易完成。通过这种方式，我们可以利用 ggplot2 中的统计层来完成所有计算。据我所知，使用"纯"情节无法轻松完成。

library(plotly)
ggplot(iris, aes(Sepal.Length, fill = Species)) +
stat_bin(breaks = seq(4, 8, .5), closed = "left") +
stat_bin(breaks = seq(4, 8, .5), closed = "left", geom = "text", mapping = aes(Sepal.Length, label = ..count..), inherit.aes = FALSE, vjust = -.5) +
theme_light()
ggplotly()