geom_errorbar does not take "size" aesthetics

It seems ggplotly returns the same plot with different size. Here is an example:

df <- data.frame(x = 1:10,
                 y = 1:10,
                 ymin = (1:10) - runif(10),
                 ymax = (1:10) + runif(10),
                 xmin = (1:10) - runif(10),
                 xmax = (1:10) + runif(10))

p <- ggplot(df)+
  geom_errorbar(aes(ymin = ymin, ymax = ymax, x = x, y = y), size = 10)


ggplotly(p)

Inizia eseguendo l’esempio R fornito con ggplotly e confronta l’output renderizzato di geom_errorbar per diversi valori di size. Segui il punto di ingresso della conversione ggplotly per geom_errorbar e determina dove viene persa l’estetica size. Il lavoro è completato quando le barre di errore renderizzate cambiano visibilmente con size e il comportamento è coperto da un test di regressione.