plot2 <- ggplot(vids_10, aes(x = avg_views, y = reorder(channel_title, avg_views), text = label)) +
geom_col(aes(fill = avg_views)) +
labs(title = "Top 10 Channel on Entertainment",
subtitle = "contoh",
x = "Average Views",
y = NULL) +
scale_fill_gradient(low = "aquamarine", high= "orange") +
theme_minimal() +
theme(legend.position = "none")
plot2
ggplotly(plot2, tooltip = "text")