title: GGplotly Doesn't Use Entire Plot Area When Height and Width Are Defined
body: <p>I have a ggplot that I spent a fair amount of time formatting and getting the way I like it and discovered plotly/ggplotly to add in hovertext functionality, zoom, selection, etc. However, when I first tried ggplotly, the plot is very squashed especially on the x-axis (I'm looking at time-series data over the course of several days). I found the height/width parameters, defined them in a way that seemed to make sense, but on run all that seems to happen is the plot area gets larger, but the plot itself doesn't really fill the area defined by height and width. My code is below, along with screenshots of what I'm seeing. How do I get the plot to draw over the entire plotting area?</p>
  <pre><code>TimeSeries_plot &lt;- ggplot(data = data_clean, aes(x = timestamp, 
                              y = metrics_speed_download_mbps)) +
      geom_line(color = '#9e2f7f') +
      geom_point(aes(color=metrics_remote_location)) +
      geom_hline(yintercept=DataAvg, color = &quot;#414487&quot;) +
      geom_text(aes(data_clean$timestamp[[150]],DataAvg, label = paste(&quot;average =&quot;, DataAvg, &quot;Mbps&quot;)),
                nudge_y = 30, color = &quot;#414487&quot;, size = 5) +
      scale_y_continuous(name = &quot;Download Speed (Mbps)&quot;) +
      scale_x_datetime(name = &quot;Day in YYYY-MM-DD&quot;, date_breaks = &quot;1 day&quot;, date_labels = &quot;%Y-%m-%d&quot;,guide = guide_axis(angle=90)) +
      geom_hline(yintercept = round(mean(data_clean$metrics_speed_download_mbps), 0), color = '#f1605d') +
      geom_text(aes(data_clean$timestamp[[150]],round(mean(data_clean$metrics_speed_download_mbps)), label = paste(&quot;average =&quot;, round(mean(data_clean$metrics_speed_download_mbps)),&quot;Mbps&quot;)),
                nudge_y = 30, color = &quot;#f1605d&quot;, size = 5) +
      labs(title = &quot;Figure 1: cURL 250M Download Test&quot;,
           subtitle = &quot;Boundary&quot;) +
      scale_color_viridis_d() +
      theme(legend.position = &quot;bottom&quot;,
            axis.text.x = element_text(angle = 90),
            panel.background = element_rect(fill = '#fcfdbf', color = '#fcfdbf'),
            panel.grid.major = element_line(color = '#feca8d', linetype = 'dashed'),
            panel.grid.minor = element_line(color = '#feca8d', linetype = 'dotted')
            )
  
  ggplotly(TimeSeries_plot)
  </code></pre>
  <p>The <code>ggplotly</code> output looks like this:
  <a href="https://i.stack.imgur.com/3Jind.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/3Jind.png" alt="enter image description here" /></a></p>
  <p><code>ggplotly</code> output with height and width defined:
  <a href="https://i.stack.imgur.com/hMvUl.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/hMvUl.png" alt="enter image description here" /></a></p>
  <p>Finally, <code>ggplot2</code> output before adding ggplotly and what I'm trying to approximately get back to (using RMarkdown fig.height and fig.width parameters for the R chunk):
  <a href="https://i.stack.imgur.com/f066r.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/f066r.png" alt="enter image description here" /></a></p>