按性別和值重新排序百分比堆積條形圖

Question

我試圖按性別重新排列我的價值觀，從最高的女性到最低的女性。

該數據集的第一個值是：

sex,values,citizen_full
F,543,Aghanistan 
M,376,Afghanistan
F,131,Albania
M,141,Albania
F,134,Argentina
M,107,Argentina
F,325,Austria
M,231,Austria

ggplot(dataframe, aes(x = factor(citizen_full), y = values, fill = sex)) +
  geom_bar(position = 'fill', stat = 'identity') +
  theme_minimal()

Answer 1

您可以使用fct_reorder function：

df <- tibble::tribble(
  ~sex, ~values, ~citizen_full,
   "F",    543L,  "Aghanistan",
   "M",    376L, "Afghanistan",
   "F",    131L,     "Albania",
   "M",    141L,     "Albania",
   "F",    134L,   "Argentina",
   "M",    107L,   "Argentina",
   "F",    325L,     "Austria",
   "M",    231L,     "Austria"
  )

library(dplyr)
library(ggplot2)
library(forcats)
df %>% 
  group_by(citizen_full, sex) %>% 
  mutate(sum_sex_grouped = sum(values)) %>% 
  group_by(citizen_full) %>% 
  mutate(sum_citizien = sum(values),
         sex_percent = sum_sex_grouped/sum_citizien,
         percent_women = if_else(sex == "F", sex_percent, 0)) %>% 
ggplot(aes(x = fct_reorder(citizen_full, desc(percent_women)), y = values, fill = sex)) +
  geom_bar(position = 'fill', stat = 'identity') +
  theme_minimal()