title: Plotly cutting off X and Y labels
body: <p>I have a plot which I have created with plotly. When I deploy it to my shiny app the X and Y labels are cut off as you can see here:</p>
  
  <p><img src="https://i.stack.imgur.com/flbnW.png" alt="here."></p>
  
  <p>How can I prevent this from happening? If I use a normal plot the labels do not get cut off but I need the plot to be interactive. </p>
  
  <p>Here is my code for creating the plot:</p>
  
  <p>ui.r:</p>
  
  <pre><code>#creating app with shiny
  library(shiny)
  library(shinydashboard)
  
  shinyUI(
    dashboardPage(
    dashboardHeader(title = "Dashboard"),
    dashboardSidebar(
    menuItem("Dashboard")
  ),
  dashboardBody(
    fluidPage(
      box(plotlyOutput("bakePlot")),
      box(plotOutput("bakeMonthly"))
    )
  )
  )
  )
  </code></pre>
  
  <p>server.r:</p>
  
  <pre><code>shinyServer(function(input, output){
  
  output$bakePlot &lt;- renderPlotly({
  ggplot(sales_bakery, aes(ProductName, ProductSales))+ 
  stat_summary(fun.y=sum,geom="bar",colour="red",fill="red",show.legend = FALSE) +
  coord_cartesian(ylim = c(7000, 9500)) + ggtitle("January Sales in Bakery") + 
  xlab("Category") + ylab("Quantity Sold")+
    theme(
          axis.title.x = element_blank(),
          axis.title.y = element_blank(),
          axis.text.x = element_text(angle = 60, hjust = 1),
          axis.text.y = element_text(colour = "black", size = 14),
          panel.background = element_rect(fill = "white"),
          panel.grid.minor = element_blank(),
          panel.grid.major = element_blank(),
          axis.line = element_line(colour = "black", size = 1),
          legend.position = "none",
          plot.title = element_text(lineheight = 1.8, face = "bold"))
  }) 
  </code></pre>