R Shiny: проблема с facet_wrap в ggplot

Question

Я пытаюсь создать две параллельные круговые диаграммы, используя facet_wrap в ggplot на R блестящий.Это код, который у меня есть в настоящее время:

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 в данном случае это Пол и input$y это образование.

Как видно из рисунка, круговая диаграмма в настоящее время объединяет результаты для мужчин и женщин в одну диаграмму.Я надеюсь разбить два, и ниже приведено изображение, показывающее, чего я надеюсь достичь (что мне удалось сделать, используя файл уценки R):

Можно ли это сделать в R блестящий?

Большое спасибо за вашу помощь!