如何通过在 r Shiny 中使用切换开关将 scales="free_y" 添加到 facet？

编程问答 2022-04-30

问题描述

我创建了一个 facet_geo 绘图，并希望为用户提供一个选项以启用/禁用自由 y 轴刻度以进行比较。

我之前使用以下方法完成了此操作，但这需要将整个代码放入两次：

server.R

enable_free_y <- input$id_switch_tab1_free_y_scale

if(!enable_free_y){
plot1
}
else{
plot2
}

有没有办法可以在绘图代码本身内将这个if condition添加到facet_geo，而不是使用两个不同的绘图进行切换。

在我尝试过的情节代码中添加scales = "free_y"：

enable_free_y <- input$id_switch_tab1_free_y_scale

facet_geo(~ State.UnionTerritory,grid = "in_state_ut_grid2",label = "code",if (enable_free_y){"scales = 'free_y',"} else{""}
                      
                      move_axes = T)

还尝试过：

enable_free_y <- input$id_switch_tab1_free_y_scale

facet_geo(~ State.UnionTerritory,if (enable_free_y){scales = 'free_y',} else{""}
                      
                      move_axes = T)

但以上选项均无效。

更新：

得到答案后更新结果： https://vineet-sansi.shinyapps.io/IndiaCovid19Dashboard/

enter image description here

enter image description here

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

facetfacetrrshiny