ggplotly-barras-rotuladas.r

library(ggplot2)
library(dplyr)

# datos internos que vienen con ggplot2
animals <-
  msleep %>% slice_max(sleep_rem, n = 30) %>% # seleccionando top 30
  ggplot(aes(x = forcats::fct_reorder(name, sleep_total), y = sleep_total, label = name)) +
  geom_bar(stat = "identity") + xlab("") +
  geom_text(nudge_y = 2, hjust = 0) +
  theme(
    axis.text.y = element_blank(),
    axis.ticks.y = element_blank()
  ) +
  coord_flip() +
  scale_y_continuous(expand = c(0, 1), limits = c(0, 25)) # espacio extra en el eje

animals
animals_pltly <- plotly::ggplotly(animals)

plotly::plotly_json(animals_pltly)

Gracias!