http://community.plot.ly/t/inversion-negative-values-in-ggplotly/875 ``` r d <- data.frame( x = LETTERS[1:10], y = -5:4, g = rep(c('A','B'), each = 5) ) p <- ggplot(data = d, aes(x = x, y = y, fill = g)) + geom_bar(stat='identity') ggplotly(p) ```