usggplot传奇位置＆amp;布局

Question

我正在尝试使用闪亮的ggplotly输出，这是我的情节。

这是我的剧本，

float[10] volumeLookup = { -10, -8, ... };
...
volume = volumeLookup[ selection - 1 ];

这是我在server.R中使用此图的地方，闪亮，

    output$Plot1 <- renderPlotly({
  resourcenoplot <- 
    resultsdf2 %>% 
    filter(region == input$region2) %>%
    ggplot()+
    geom_bar(aes(x=mon, y= round(totalresources,2), fill=ValuerType,
                 text = paste(ValuerType,": ", round(totalresources,2))),
             position="stack",stat = "identity") +
    xlab("\nMonths")+
    ylab("Number of Resources\n\n") +
    guides(fill=guide_legend(title=NULL,reverse=T))+
theme(axis.text.x=element_text(angle=50),
legend.position="bottom",legend.background = element_rect(fill="white",size=0.5, linetype="solid",colour ="darkblue"))

  q <- ggplotly(resourcenoplot,tooltip = c("text"))
  q
})

我不知道这段代码有什么问题，我有两个问题。

1. 虽然我指定了传奇位置，但是无法使传奇失效，但它不起作用。
2. 我无法在轴文本和文本之间创建空间。轴标签。参见文本＆＃34;月份＆＃34;与x轴月份重叠。同样在y轴
3. 如果我指定x轴文字角度为90度，它显示完整的月份名称，这里我指定了70度，看到我月份名称的起始部分被切断。

如果我在tabPanel("Typewise Utilisation",br(),fluidRow(wellPanel(htmlOutput("selectRegion2")), plotlyOutput("Plot1",width = "100%", height = "450px"))) 中增加地块大小，它只会增加地块大小并且问题保持不变。

编辑1： - 数据的子集。这就是整个数据集的样子

有人可以帮我这个。