Добавить место между mainPanel и sidebarbarPanel in shiny

Question

В следующем блестящем приложении я хочу добавить несколько пробелов между mainPanel и siderbarPanel внизу.

Здесь я не могу прочитать титры оси x, я попытался повернуть их, но это не улучшает предмет. Я также изменил высоту и ширину plotlyOutput, но не работает. Я попытался добавить HTML("<br><br><br>"), но не работает тоже, проблема, вероятно, в ggplot или plotly?

Мой ggplot сценарий:

ggplot(data = df, aes(x = perimetre_commercial_estime, 
         y = nbr_ligne, 
         fill = perimetre_commercial_estime)) + 
    geom_bar(stat="identity") + theme_light() + 
    theme(axis.text.x=element_text(angle=30,hjust=1,vjust=0.5,size=6), 
             axis.title.x=element_blank(), 
      legend.position="top", legend.direction="horizontal") + 
    scale_fill_discrete("") 

plotly оленья кожа поддержка горизонтальной легенда, поэтому ниже график нормально.

Благодаря

Answer 1

Эта Plotly Setting Graph Size in R статья может быть полезной. Поскольку вы не включаете весь код, я не могу полностью подтвердить. Пожалуйста, дайте мне знать.

library(plotly) 
library(dplyr) 

gp = ggplot(
    data = mtcars %>% add_rownames(), 
    aes(x = rowname, y = mpg) 
) + geom_point() + 
    theme(axis.text.x=element_text(angle=30,hjust=1,vjust=0.5,size=6), 
     axis.title.x=element_blank()) 

ggplotly(gp) %>% 
    layout(
    margin = list(
     b=100 
    ) 
)