This affects issue #599 . Minimal example: ``` r library(ggplot2) data(diamonds) diamonds$cut <- paste("Super Dee-Duper extra long",as.character(diamonds$cut)) p <- qplot(cut,carat,data=diamonds,geom="boxplot") + theme(axis.text.x = element_text(angle = 90, hjust = 1)) p ```  ``` r library(plotly) ggplotly(p) # right most label is cut ``` 