Как изменить цвет фона наведения в ggplotly для гистограммы - PullRequest
Новая
       70

Как изменить цвет фона наведения в ggplotly для гистограммы

2 голосов
/ 29 января 2020

Я использую 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"
  )

Когда я перемещаю курсор над столбцами, я получаю текстовые значения, то есть хорошо. Когда я перемещаю его поверх панелей ошибок, я получаю текстовые значения другим цветом. Есть ли способ, которым я могу изменить цвет фона этого текста при наведении.

Я открыт для всех предложений.

1 Ответ

2 голосов
/ 04 февраля 2020

Вы можете добавить %>% layout(hoverlabel=list(bgcolor="white")) после вашего ggplotly(...) вызова, чтобы установить белый цвет фона метки наведения.

В общем, вы можете установить любой атрибут макета Plotly из https://plot.ly/r/reference/ таким образом на любой фигуре, созданной с помощью plot_ly() или ggplotly().

...