在mainPanel和sideerbarPanel之间添加闪亮的空间

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
    )
  )