Сюжетно зависает на тайлах на фоне облака точек - как показать всплывающую подсказку?
Я конвертирую сюжет ggplot2 в сюжет. График состоит из слоя тайлов (на заднем плане) и слоя точек (на переднем плане). Хотелось бы иметь всплывающие подсказки при наведении на тайлы.
Код ниже в основном дает мне то, что я ищу. Когда я навожу курсор на плитки в зонах «без точек», появляется нужная всплывающая подсказка. Однако при наведении курсора на области с высокой плотностью точек всплывающие подсказки не появляются.
Я думал, что игра с параметром layerData в вызове ggplotly может помочь, но это не так.
library(ggplot2)
library(dplyr)
library(plotly)
set.seed(1)
dat_points <- data.frame(x = rnorm(100), y = rnorm(100))
dat_tiles <- expand.grid(tx = -3:3, ty = -3:3)
dat_tiles$val <- rnorm(nrow(dat_tiles))
dat_tiles$label <- sample(LETTERS[1:5], nrow(dat_tiles), replace = T)
p <- ggplot() +
geom_tile(data = dat_tiles, aes(x = tx, y = ty, fill = val, text = label)) +
geom_point(data = dat_points, aes(x = x, y = y), alpha = .5)
gg <- ggplotly(p, tooltip = "text")
gg
Я бы хотел, чтобы при наведении курсора на области с высокой плотностью (например, 0, 0) всплывающие подсказки появлялись с той же скоростью, что и в областях с низкой плотностью.
Обновлено: добавлено статичное изображение сюжета.
Ответы 1
Вы можете изменить порядок слоев в p, и из-за того, как ggplotly() строится из ggplot объекта, вы получаете идентичный график, но с желаемым поведением всплывающей подсказки!
p <- ggplot() +
geom_point(data = dat_points, aes(x = x, y = y), alpha = 1) +
geom_tile(data = dat_tiles, aes(x = tx, y = ty, fill = val, text = label))
p # this looks bad
gg <- ggplotly(p, tooltip = "text")
gg # but this looks good!
Это сработало, спасибо! Интересно, как версия ggplot выглядит плохо (ожидаемо), но версия plotly инвертирует слои.