如下图所示，当在侧栏中选择多个县时，我的图的高度保持不变。这使得情节过于拥挤，以至于标签变得不可读。我想根据侧栏中选择的县数来改变我的情节的高度。我怎样才能做到这一点？

下面，请查看我认为需要修改的部分代码。

界面元素

mainPanel(plotOutput("workforce_plot"), 

服务器元素

workforce_plot <- reactive({
     ggplot(workforce_data(), aes(x =Age_Group, y = Percentage, fill=County.y)) + 
     geom_bar(stat = "identity",position = position_dodge()) +                                                         
     geom_text(
     aes(label = Percentage2),
     vjust = 0.5,
     colour = "black", 
     position = position_dodge(width=0.9),
     fontface = "bold",
     size=3.2,
     hjust = 0)+
     ylim(0,110)+        
     coord_flip()+

     labs(
          x = "Age Groups",
          y = "Percentage",
          face = "bold")
          })

   output$workforce_plot <- renderPlot ({ 
            workforce_plot()
          })

在闪亮的上下文中使用传单功能，我已经能够创建一个很棒的交互式地图。我想将缩放设置为 7 到 7.5 之间的某个位置（例如 7.25）。我尝试按照下面的代码所示执行此操作，但地图中的缩放级别保持不变。看来可以将缩放级别设置为 7 或 7.5，而不是这些数字之间的任何值。如何解决这个问题？谢谢。

setView(-82.706838, 40.358615, zoom=7.25)