R Shiny：ggplot 中的facet_wrap 问题

我正在尝试使用创建两个并排饼图facet_wrap in ggplotR 上闪亮。这是我目前拥有的代码：

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
})

This is what it produces:

input$x在这种情况下是性别和input$y是教育。

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

这可以在 R闪亮 中完成吗？

非常感谢你的帮助！