如何在R Shining Dashboard中的多个页面/选项卡中显示图形？

我试图创建一个闪亮的仪表板，其中也包含绘图。绘图取决于用户选择的输入类型。例如，让我们以下面的数据为例

d <-
data.frame(
year = c(1995, 1995, 1995, 1996, 1996, 1996, 1997, 1997, 1997),
Product_Name = c(
  "Table",
  "Chair",
  "Bed",
  "Table",
  "Chair",
  "Bed",
  "Table",
  "Chair",
  "Bed"
),
Product_desc = c("X", "X", "X", "Y", "Y", "Y", "Z", "Z", "Z"),
Cost = c(1, 2, 3, 4, 2, 3, 4, 5, 6)
)

我不希望年份数据显示在facet中，而是希望数据显示在闪亮的仪表板中的单独页面或单独的选项卡中

例如，如果用户仅选择2年，则第一个图形应显示在一页中，第二个图形应显示在下一页中。例如，如下图所示

根据选择的年数，每年显示图表的页面/选项卡数量应相等

有人能给我建议下一步怎么做吗

---

如果需要任何其他信息，请告诉我。

我通常会创建一个反应变量，计算所选年份的数量，然后创建一个函数，根据选择隐藏/显示特定的绘图和页面。。您可以使用shinyjs包和显示/隐藏选项卡，同时提前准备绘图。另一个选项是创建一个空白选项卡，然后使用renderUI命令+您的函数创建绘图，然后显示该选项卡。@jacojacox谢谢您的评论。我一定试试看，让你知道进展如何！如果可能的话，你能分享我可以查看的任何示例代码或闪亮的仪表板吗？我不能分享代码（法律上）对不起，但是如果你发布示例代码以及错误的地方，我想我能提供帮助。我通常做的是创建一个反应变量，计算所选年份的数量，然后创建一个函数，根据选择隐藏/显示特定的绘图和页面。。您可以使用shinyjs包和显示/隐藏选项卡，同时提前准备绘图。另一个选项是创建一个空白选项卡，然后使用renderUI命令+您的函数创建绘图，然后显示该选项卡。@jacojacox谢谢您的评论。我一定试试看，让你知道进展如何！如果可能的话，你能分享我可以查看的任何示例代码或闪亮的仪表板吗？我不能分享代码（法律上）对不起，但是如果你发布示例代码以及错误的地方，我想我能帮上忙。

d %>% 
ggplot(aes(Product_Name, Cost)) + 
geom_col(aes(fill = Product_desc), position = position_dodge(preserve = "single")) + 
facet_wrap(~year, scales = "free_x", strip.position = "bottom") +
theme(strip.placement = "outside") + 
theme_bw()