Как сделать так, чтобы части пи-диаграммы ggplot располагались рядом друг с другом? (dplyr и ggplot2)

Question

изображение диаграммы

необработанный фрейм данных

У меня есть пи-диаграмма, которая, как предполагается, представляет разбивку типов личности интровертов и экстравертов на основе моего фрейма данных. Фигуры показаны синим для интроверта и красным для экстраверта, но они не вместе. Как мне сделать так, чтобы части интровертов и экстравертов располагались бок о бок или вместе, чтобы вам было легче увидеть сопоставимую разбивку?

Вот фрейм данных, который я поместил в свой ggplot, где я пробовал устроить.

df <- raw_df %>% arrange(X.E.xtroversion..I.ntroversion) %>% 
select(X.E.xtroversion..I.ntroversion, Ratio.in.Population)

Вот мой код пи-диаграммы ggplot.

    ggplot(raw_df, aes(x = "", y = Ratio.in.Population, fill = X.E.xtroversion..I.ntroversion)) +
  geom_bar(stat="identity", width=1) +
  coord_polar("y", start=0) +
  theme_void() +
  scale_fill_discrete(name = "Extraversion vs Introversion") +
  geom_text(label = mbti_types$MBTI,
            check_overlap = TRUE,
            position = position_stack(vjust = 0.5), size = 2)

Я впервые использую StackOverflow, так как я начинающий кодировщик, прошу прощения за любые ошибки ie ладьи!