Блог

Я пытаюсь построить гистограмму в R, используя ggplot. Предполагается, что график представляет проценты разной длины, и каждая грань представляет категориальную переменную. Есть третья переменная, с помощью которой я хочу раскрасить полосы. Вот имитация того, что я делаю:

 lengths lt;- sample(x = c(12, 15, 20, 25, 30, 32, 35, 40, 45, 60), size = 1000, replace = TRUE) group lt;- sample(c("A", "B", "C", "D"), size = 1000, replace = TRUE) sex lt;- sample(c("Female", "Male"), size = 1000, replace = TRUE)  data lt;- data.frame(lengths = lengths, sex = sex, group = group) rm(lengths, group, sex)  ggplot(data = data %gt;%   bind_rows(data %gt;%   mutate(group = "Total")), aes(x = lengths, group = group, fill = sex))     geom_bar(aes(y = ..prop..), color = "black", stat = "count")    labs(y = "%", fill = "sex")    facet_wrap(~ group, nrow = 6, strip.position = "right", scales = "free")    scale_x_continuous(limits = c(20,80))    scale_y_continuous(labels = scales::percent)    theme(legend.position = c(.75, .95), legend.background = element_rect(fill = "white", color = "black"), axis.line = element_line(color = "black"), panel.background = element_blank(), legend.direction = "horizontal", strip.background = element_blank(), strip.text.y = element_blank())    scale_color_discrete(guide = "none")    scale_fill_manual(values = c("purple", "blue", "gray"))  

Но результат-это не то, что я ищу, так как все полоски окрашены в серый цвет, а не заполнены сексом:

Это код, который я использовал для расчета пропорции в отношении количества в каждой группе (не пола). Если я не учитываю групповой аргумент, шкалы кажутся неправильными.

Поэтому, по сути, я все еще хочу показать пропорцию по отношению к каждой отдельной группе, но заполнить столбцы другой категориальной переменной.

Есть идеи, как это решить?

Спасибо

Просто удалите группу=группа:

 `ggplot(data = data %gt;%   bind_rows(data %gt;%   mutate(group = "Total")), aes(x = lengths, fill = sex))     geom_bar(aes(y = ..prop..), color = "black", stat = "count")    labs(y = "%", fill = "sex")    facet_wrap(~ group, nrow = 6, strip.position = "right", scales = "free")    scale_x_continuous(limits = c(20,80))    scale_y_continuous(labels = scales::percent)    theme(legend.position = c(.75, .95), legend.background = element_rect(fill = "white", color = "black"), axis.line = element_line(color = "black"), panel.background = element_blank(), legend.direction = "horizontal", strip.background = element_blank(), strip.text.y = element_blank())    scale_color_discrete(guide = "none")    scale_fill_manual(values = c("purple", "blue", "gray"))`  

Мне потребовалось довольно много времени, чтобы понять это.