This affects issue #599 .
Minimal example:
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
library(plotly)
ggplotly(p) # right most label is cut

This affects issue #599 .
Minimal example: