title: Converting ggplot object to plotly object creates axis title that overlaps tick values
body: <p>I had the same issue described in this question:</p>
  
  <p><a href="https://stackoverflow.com/questions/42763280/r-ggplot-and-plotly-axis-margin-wont-change">R: ggplot and plotly axis margin won&#39;t change</a></p>
  
  <p>but when I implemented the solution, I got the following error:</p>
  
  <blockquote>
    <p>Warning: Ignoring unknown aesthetics: text We recommend that you use the dev version of ggplot2 with ggplotly() Install it with: devtools::install_github('hadley/ggplot2') Error in <em>tmp</em>[[2]] : subscript out of bounds</p>
  </blockquote>
  
  <p>This code will produce this error on my machine:</p>
  
  <pre><code>library(gapminder)
  library(plotly)
  library(ggplot2)
  
  lead &lt;- rep("Fred Smith", 30)
  lead &lt;- append(lead, rep("Terry Jones", 30))
  lead &lt;- append(lead, rep("Henry Sarduci", 30))
  proj_date &lt;- seq(as.Date('2017-11-01'), as.Date('2017-11-30'), by = 'day')
  proj_date &lt;- append(proj_date, rep(proj_date, 2))
  set.seed(1237)
  actHrs &lt;- runif(90, 1, 100)
  cummActHrs &lt;- cumsum(actHrs)
  forHrs &lt;- runif(90, 1, 100)
  cummForHrs &lt;- cumsum(forHrs)
  df &lt;- data.frame(Lead = lead, date_seq = proj_date,
                   cActHrs = cummActHrs,
                   cForHrs = cummForHrs)
  
  makePlot &lt;- function(dat=df, man_level = 'Lead') {
      p &lt;- ggplot(dat, aes_string(x='date_seq', y='cActHrs',
                                 group = man_level,
                                 color = man_level),
                  linetype = 1) +
           geom_line() +
           geom_line(data=df,
                     aes_string(x='date_seq', y = 'cForHrs',
                                group = man_level,
                                color = man_level),
                     linetype = 2)
  
      p &lt;- p + geom_point(aes(text=sprintf('%s\nManager: %s\n MTD Actual Hrs: %s\nMTD Forecasted Hrs: %s',
                                           date_seq, Lead, round(cActHrs, 2), round(cForHrs, 2))))
  
      p &lt;- p + theme_classic() + ylab('Hours') + xlab('Date')
  
      gp &lt;- ggplotly(p, tooltip = "text") %&gt;% layout(hovermode = "compare")
      ### FIX IMPLEMENTED HERE ###
      gp[['x']][['layout']][['annotations']][[2]][['x']] &lt;- -0.1
      gp %&gt;% layout(margin = list(l = 75))
  
      return(gp)
  }
  
  ## run the example
  p1 &lt;- makePlot()
  </code></pre>