Angled Axis Titles cut off ggplotly

[bhive01]

require(ggplot2)
require(plotly)

randomName <- function(n) {
    random.string <- rep(NA, n)
    randomizeString <- function(x) {
        a <-sample(letters, 1, replace = TRUE)
        return(a)
    }
    return(paste(c(sapply(random.string, randomizeString, simplify = TRUE)), collapse = ""))
}

xvar = replicate(10, randomName(15))

df1 <- data.frame(x = xvar, y = xvar, z = runif(10) )

g = ggplot(df1, aes(x,y,fill=z)) +
        geom_tile() +
        theme(axis.text.x = element_text(angle = 45, vjust = 1,  size = 12, hjust = 1))

ggplotly(g)

Result looks like this:

edit: I will add that 90/270 seems to be ok. It's anything that isn't 0/360 or 90/270 that seems to get cut off.

> devtools::session_info()
Session info ---------------------------------------------------------------------------------------------------------------------------------------------
 setting  value                       
 version  R version 3.2.4 (2016-03-10)
 system   x86_64, darwin13.4.0        
 ui       AQUA                        
 language (EN)                        
 collate  en_US.UTF-8                 
 tz       America/Los_Angeles         
 date     2016-03-15                  

Packages -------------------------------------------------------------------------------------------------------------------------------------------------
 package     * version     date       source                               
 assertthat    0.1         2013-12-06 CRAN (R 3.2.0)                       
 base64enc     0.1-3       2015-07-28 CRAN (R 3.2.0)                       
 colorspace    1.2-6       2015-03-11 CRAN (R 3.2.0)                       
 curl          0.9.6       2016-02-17 CRAN (R 3.2.3)                       
 DBI           0.3.1       2014-09-24 CRAN (R 3.2.0)                       
 devtools      1.10.0.9000 2016-02-26 Github (hadley/devtools@b6a23be)     
 digest        0.6.9       2016-01-08 CRAN (R 3.2.3)                       
 dplyr       * 0.4.3       2015-09-01 CRAN (R 3.2.0)                       
 ggplot2     * 2.1.0       2016-03-01 CRAN (R 3.2.4)                       
 git2r         0.13.1      2015-12-10 CRAN (R 3.2.3)                       
 gridExtra     2.2.1       2016-02-29 CRAN (R 3.2.4)                       
 gtable        0.2.0.9000  2016-02-26 Github (hadley/gtable@0ed36a4)       
 htmltools     0.3         2015-12-29 CRAN (R 3.2.3)                       
 htmlwidgets   0.6.1       2016-03-07 Github (ramnathv/htmlwidgets@2e4ad57)
 httr          1.1.0       2016-01-28 CRAN (R 3.2.3)                       
 jsonlite      0.9.19      2015-11-28 CRAN (R 3.2.2)                       
 knitr         1.12.3      2016-01-22 CRAN (R 3.2.3)                       
 labeling      0.3         2014-08-23 CRAN (R 3.2.0)                       
 lazyeval      0.1.10.9000 2016-03-07 Github (hadley/lazyeval@c823611)     
 lubridate   * 1.3.3       2013-12-31 CRAN (R 3.2.0)                       
 magrittr    * 1.5         2014-11-22 CRAN (R 3.2.0)                       
 memoise       1.0.0       2016-01-29 CRAN (R 3.2.3)                       
 munsell       0.4.3       2016-02-13 CRAN (R 3.2.3)                       
 plotly      * 3.4.3       2016-03-15 Github (ropensci/plotly@061e43a)     
 plyr        * 1.8.3.9000  2015-10-16 Github (hadley/plyr@9d8294e)         
 R6            2.1.2       2016-01-26 CRAN (R 3.2.3)                       
 Rcpp          0.12.3      2016-01-10 CRAN (R 3.2.3)                       
 readxl      * 0.1.0.9000  2015-11-02 Github (hadley/readxl@7c7f66b)       
 rstudioapi    0.5         2016-01-24 CRAN (R 3.2.3)                       
 scales        0.4.0.9000  2016-02-26 Github (hadley/scales@646b6a4)       
 stringi       1.0-1       2015-10-22 CRAN (R 3.2.0)                       
 stringr       1.0.0       2015-04-30 CRAN (R 3.2.0)                       
 tidyr       * 0.4.1.9000  2016-02-19 Github (hadley/tidyr@323f54e)        
 viridis       0.3.4       2016-03-15 Github (sjmgarnier/viridis@694d4b8)  
 withr         1.0.1       2016-02-04 CRAN (R 3.2.3)                       
 yaml          2.1.13      2014-06-12 CRAN (R 3.2.0)     

[cpsievert]

I'm hoping to fix this in #509, but you can always customize the margins:

l <- plotly_build(g)
l$layout$margin$b <- l$layout$margin$b + 50
l

[bhive01]

Thanks, I'll use this workaround for now and hope that 509 fixes it. Great work @cpsievert!