R Shiny：ggplot中的facet_wrap问题

Question

我正在尝试使用R Shining上Observable.timer(60000)中的facet_wrap创建两个并排的饼图。这是我当前拥有的代码：

ggplot

这是它产生的：

在这种情况下，

output$plot2 <- renderPlot({ if (input$type == "Pie Chart") { ggplot(shortlistpied(), aes_string(x = factor(1), y = "Percentage", fill = input$y)) + geom_bar(stat = "identity", width = 1, position = position_fill()) + coord_polar("y") + facet_wrap( ~input$x) + theme_void() } else NULL }) 是性别，input$x是教育。

如图所示，饼图当前将男性和女性的结果合并为一个图表。我希望将两者分解开来，下面的图像显示了我希望实现的目标（我使用R markdown文件设法做到了这一点）：

这可以在R Shiny中完成吗？

非常感谢您的帮助！