Я хочу построить geom_hline() для фиксированного значения в каждом фасете, который я создаю с ggplotly. Когда я только строю график ggplot (с примерами данных), я получаю правильные результаты:
Но когда я хочу превратить его в интерактивный сюжет через объект ggplotly, некоторые грани не будут отображать geom_hline() (обратите внимание, в коде ggplot2 я использовал coord_flip())
library(tidyverse)
library(ggbeeswarm)
library(ggplotly)
example_df <- structure(list(dbc = c("040201021", "069899282", "129999093",
"131999277", "159999033", "219799011", "990003025", "991900003",
"040201021", "069899282", "129999093", "131999277", "159999033",
"219799011", "990003025", "991900003"), kind = c("max", "max",
"max", "max", "max", "max", "max", "max", "min", "min", "min",
"min", "min", "min", "min", "min"), price = c(2518, 831, 2027,
829, 879, 609, 774, 709, 81, 20, 112, 40, 31, 39, 2, 41)), row.names = c(NA,
-16L), class = c("tbl_df", "tbl", "data.frame"))
plot <- example_df %>%
ggplot(aes(0 , price, label = kind)) +
geom_hline(yintercept = 385) +
geom_quasirandom(shape = 21,
color = pointer_palette("paars"),
fill = "white",
size = 2) +
facet_wrap(~ dbc,
scales = "free",
ncol = 2) +
coord_flip() +
theme(axis.text.y = element_blank()) +
labs(x = NULL,
y = "prijsafspraak in euro's")
ggplotly(plot, tooltip = c("label", "price"))
Вы видите, что на некоторых гранях не нанесено geom_hline(). Это ошибка в заговоре или я делаю что-то не так?
