ggplotly工具栏在闪亮应用程序中的位置

Question

使用下面的代码，我可以创建我的ggplotly图。如下图所示，ggplotly工具栏与图的标题重叠。如何将工具栏移至图的左侧？

此外，如何在标题和图形之间添加空格？我试图通过添加“ br（）”来做到这一点，但这没用吗？

我想知道是否有任何方法可以删除框中的“县”，以便仅显示县名（即“艾伦县”出现在框中，而不是“县：艾伦县”）。

      linedataPlot_60 <- reactive ({


     line_60 <- ggplot(linedata_60(),
           aes(
             x = Year,
             y = Percentage,
            # colour = interaction (County.y, Age_Group),
             colour = County

           )) + geom_line(size = 1)+ #ylim(0,30)+
      geom_point(size = 1.5,
                 shape = 21,
                 fill = "white" ) +   #scale_colour_manual(values=cbbPalette) +
      theme_bw() + #scale_y_continuous(breaks=seq(0,40,1)) +
      theme(legend.title=element_blank(),legend.text = element_text(face = "bold"), plot.title = element_text(
        hjust = 0.5,
        size = 9,
        colour = "Black",
        face = "bold"
      ),axis.text=(blue.bold.10.text), axis.title=blue.bold.10.text)+
      ggtitle(paste(
        input$sex_,
        "Older Population (60 or over) in the Selected Counties",

      "\n",
        "(2010 to 2050)"
      ))
       ggplotly(line_60) 

  })

  output$line_60 <- renderPlotly ({
    linedataPlot_60()
  })

Answer 1

有关工具提示，请将aes修改为ggplot(linedata_60(),aes(x = Year,y = Percentage,colour = County,text=paste(County)))。然后将ggplotly称为ggplotly(line_60,tooltip=c("x","y","text"))。为避免标题重叠，请将ggtitle更新为ggtitle(paste("\n",input$sex_,"Older Population (60 or over) in the Selected Counties","\n(2010 to 2050)"))。

要移动或删除模式栏组件，请查看此How to download a ggplotly plot with R Shiny downloadHandler?