Составная и сгруппированная диаграмма ggplot2, объединенная для всех записей
У меня есть проблема, похожая на эту: Объедините диаграмму с накоплением и сгруппировкой ggplot2
У меня есть данные, которые выглядят так:
Я хочу создать genom_bar диаграмму в ggplot, которая выглядит так:
Где синяя область представляет gender часть age_group. Мой код выглядит так:
p <- ggplot(data, aes(x=`Green cars are nice`, y=round(percentage, digits = 2), fill = Age_group)) +
geom_bar(stat = "identity", position=position_dodge()) +
facet_grid(.~residence) +
xlab(filename) +
ylab(NULL) +
theme_bw() +
theme(axis.text.x = element_text(size = 12, angle = 45, vjust = 1, hjust=1)) +
theme(
axis.title.x = element_text(size = 14),
axis.text.x = element_text(size = 14),
axis.title.y = element_text(size = 14),
axis.text.y = element_text(size = 14)) +
guides(fill=guide_legend(title=NULL))
p
Что мне нужно добавить, чтобы полоса выглядела так, как на моей раскрашенной картинке? У меня были проблемы с пониманием кода, показанного в примере из SO, который я опубликовал.
Редактировать:
Berlin 18-39 Woman Agree 1.689550205 0.009283243
Berlin 18-39 Woman Disagree 3.942283812 0.0216609
Berlin 18-39 Woman Don't know 0.563183402 0.003094414
Berlin 40-70 Woman Agree 1.689550205 0.009283243
Berlin 40-70 Woman Disagree 3.942283812 0.0216609
Berlin 40-70 Woman Don't know 0.563183402 0.003094414
London 18-39 Woman Agree 1.689550205 0.009283243
London 18-39 Woman Disagree 3.942283812 0.0216609
London 18-39 Woman Don't know 0.563183402 0.003094414
London 40-70 Woman Agree 1.689550205 0.009283243
London 40-70 Woman Disagree 3.942283812 0.0216609
London 40-70 Woman Don't know 0.563183402 0.003094414
Berlin 18-39 Man Agree 1.689550205 0.009283243
Berlin 18-39 Man Disagree 3.942283812 0.0216609
Berlin 18-39 Man Don't know 0.563183402 0.003094414
Berlin 40-70 Man Agree 1.689550205 0.009283243
Berlin 40-70 Man Disagree 3.942283812 0.0216609
Berlin 40-70 Man Don't know 0.563183402 0.003094414
London 18-39 Man Agree 1.689550205 0.009283243
London 18-39 Man Disagree 3.942283812 0.0216609
London 18-39 Man Don't know 0.563183402 0.003094414
London 40-70 Man Agree 1.689550205 0.009283243
London 40-70 Man Disagree 3.942283812 0.0216609
London 40-70 Man Don't know 0.563183402 0.003094414
Сделанный. Ценности разные - но это не имеет значения.
У вас закончились размеры. Вы можете иметь любые 2 из сложенных, уклоненных и граненых, но не все 3. Ваши варианты - иметь взаимодействия по оси x, поэтому график будет таким, как вы хотите, за исключением того, что вам нужно будет сделать все это на одной панели с линия, разделяющая графики, или (более просто) создайте две грани как отдельные графики и соедините их вместе, используя cowplot или patchwork
@ KGB91 на самом деле, правильный способ показать ваши данные — это dput(YOUR_DF), чтобы мы могли легко копировать / вставлять :)
Спасибо, я не знал о dput - мне всегда было интересно, как вы делаете эти красивые выходные данные здесь...
Ответы 1
Дизайн ggplot весьма самоуверен в отношении количества переменных, которые вы должны попытаться внедрить в график. Таким образом, это невозможно сделать так, как вы просили.
Несколько вещей, которые следует учитывать, ни одна из них не является именно тем, что вы просили, ни одна из них не обязательно является хорошей визуализацией.
Вот ваши данные (я изменил имена, поэтому вам нужно будет настроить их на те, которые указаны в вашей локальной настройке). Кроме того, «Не знаю» было кодифицировано как «Не».
df <- read.delim(text=
"residence age sex agree persons percent
Berlin 18-39 Woman Agree 1.689550205 0.009283243
Berlin 18-39 Woman Disagree 3.942283812 0.0216609
Berlin 18-39 Woman Don't 0.563183402 0.003094414
Berlin 40-70 Woman Agree 1.689550205 0.009283243
Berlin 40-70 Woman Disagree 3.942283812 0.0216609
Berlin 40-70 Woman Don't 0.563183402 0.003094414
London 18-39 Woman Agree 1.689550205 0.009283243
London 18-39 Woman Disagree 3.942283812 0.0216609
London 18-39 Woman Don't 0.563183402 0.003094414
London 40-70 Woman Agree 1.689550205 0.009283243
London 40-70 Woman Disagree 3.942283812 0.0216609
London 40-70 Woman Don't 0.563183402 0.003094414
Berlin 18-39 Man Agree 1.689550205 0.009283243
Berlin 18-39 Man Disagree 3.942283812 0.0216609
Berlin 18-39 Man Don't 0.563183402 0.003094414
Berlin 40-70 Man Agree 1.689550205 0.009283243
Berlin 40-70 Man Disagree 3.942283812 0.0216609
Berlin 40-70 Man Don't 0.563183402 0.003094414
London 18-39 Man Agree 1.689550205 0.009283243
London 18-39 Man Disagree 3.942283812 0.0216609
London 18-39 Man Don't 0.563183402 0.003094414
London 40-70 Man Agree 1.689550205 0.009283243
London 40-70 Man Disagree 3.942283812 0.0216609
London 40-70 Man Don't 0.563183402 0.003094414
")
Вы можете попытаться использовать цвет, чтобы систематизировать это. Сюжет довольно плохой, и держу пари, вы могли бы потенциально найти комбинацию colors и fills, которая была бы менее отвратительной. Я бы не рекомендовал это моему злейшему врагу, но будьте моим гостем.
ggplot(df,
aes(x=agree,
y=round(percent, digits = 2),
fill = age,
color=sex)) +
scale_fill_manual(values=c("gray50", "white"))+
scale_color_manual(values=c("red", "black"))+
geom_bar(stat = "identity",
position=position_dodge(width = 1)) +
facet_grid(.~residence)
Другой вариант — создать переменную взаимодействия. Но вы не можете уклоняться и складывать.
ggplot(df,
aes(x=agree,
y=round(percent, digits = 2),
fill = interaction(sex, age))) +
scale_fill_manual(values=c("gray50", "lightblue", "black", "blue"))+
geom_bar(stat = "identity", color = "white") +
facet_grid(.~residence)
Наконец, рассмотрите возможность использования facet_wrap(). Это может позволить вам укладываться так, как вы хотите, но у вас не будет сравнения возраста бок о бок.
ggplot(df,
aes(x=agree,
y=round(percent, digits = 2),
fill = interaction(sex, age))) +
scale_fill_manual(values=c("gray50", "lightblue", "black", "blue"))+
geom_bar(stat = "identity", color = "white") +
facet_grid(age~residence)
Следует отметить, что округление процента до 2 цифр приводит к его исчезновению (значение округляется до 0,0). Не уверен, действительно ли загруженные вами изображения были округлены или в данных есть лишний ноль. Вот последний сюжет без round(...)
Можете ли вы опубликовать свою таблицу как код вместо изображения? Вам было бы легче помочь.