library(plotly); library(ggplot2)

g <- ggplot(mtcars, aes(y = mpg, x = hp, fill = as.factor(cyl)))
g <- g + geom_bar(stat = "identity")
ggplotly(g)