Я работаю с пакетом 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.
Я смотрел эта ветка, но описанное решение слишком сложно для меня, и я думаю, что должен быть более простой способ решить эту проблему.
