shiny 应用程序中的 ggplotly 工具栏 position

Question

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

另外，如何在标题和图表之间添加空格？ 我试图通过添加“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)")) 。

要移动或删除模式栏组件，请查看如何使用 R Shiny downloadHandler 下载 ggplotly plot？