Как изменить поля в элементе ggplot в Shiny?

Question

У меня проблемы с увеличением полей клещей, полос и т. Д. моего объекта ggplotly в блестящем приложении.
Кто-нибудь знает, как это решить? Что вызывает это поведение?

Это соответствующий код для построения. Все остальные части приложения работают как положено. В моем коде нет элементов, которые бы изменяли размер области графика.

 output$graph <- renderPlotly({
 req(nrow(plotdata()) > 0)
 req(nrow(backgroundData()) > 0)

    background <- backgroundData() %>%
      plot_ly %>%
      ggplot()+
      geom_bar(mapping = aes(x = year, y = relValue), stat = 'identity')+
      xlim(1995,2017)+
      xlab("Jahr")+
      ylab("relative Werte")+
      facet_wrap(vars(type), nrow = 2, ncol = 2)

    background + geom_bar(plotdata(), mapping = aes(x = year, y = relValue, fill = subgroup)
                          , stat = 'identity')+
      scale_fill_manual(name = 'Legende', values = col_vector)+
      theme(
        axis.ticks.y = element_blank(),
        axis.text.y = element_text(margin = margin(r = 20)),
        legend.title = element_blank(),
        legend.margin = margin(50,50,50,50),
        panel.grid.major.x = element_blank(), #removes vertical grid-lines
        panel.spacing.y = unit(5, "pt"), #spacing between facets
        panel.spacing.x = unit(3, "pt"),
        strip.background = element_blank(), #removes facet titel background
        strip.text = element_text(size = 11, color = "black", face = "bold"), #changes facet titles 
        plot.margin = unit(c(0,0,0.5,1.8), 'cm') #margin of the whole plot element
      )