ggplot2，一个条形图，多个变量

Question

我正在对调查中的定性数据进行编码，并且正在尝试制作一个 ggplot2 条形图。

这些项目是开放式问题。例如，一个问题/项目是“您的社区提供哪些心理健康服务？”。

例如该示例的每个问题/项目都是我的数据表中的列。对于每个项目，我都创建了额外的列，以将原始的开放式响应编码为二分响应变量。

例如，对于问题/项目“您的社区提供哪些心理健康服务？”，我创建了三个额外的列

'急诊科提供的服务', “诊所提供的服务”， 和“学校提供的服务”。

如果响应者在其开放式响应中支持这三个子类别中的任何一个，我会写一个“是”，如果不是，一个“否”。

所以我有五列，一列 id，一列包含原始开放式问题，以及三个子类别列，每个人编码为是或否。

df<-structure(list(id = 1:20, other_mh_services = c("school services and emergency room", 
"mental health clinic", "mental health clinic and schools services", 
"none", "mental health clinic", "school services and emergency room", 
"mental health clinic", "mental health clinic and schools services", 
"none", "mental health clinic", "school services and emergency room", 
"mental health clinic", "mental health clinic and schools services", 
"none", "mental health clinic", "school services and emergency room", 
"mental health clinic", "mental health clinic and schools services", 
"none", "mental health clinic"), school = c("yes", "no", "yes", 
"no", "no", "yes", "no", "yes", "no", "no", "yes", "no", "yes", 
"no", "no", "yes", "no", "yes", "no", "no"), er = c("yes", "no", 
"no", "no", "no", "yes", "no", "no", "no", "no", "yes", "no", 
"no", "no", "no", "yes", "no", "no", "no", "no"), clinic = c("no", 
"yes", "yes", "no", "yes", "no", "yes", "yes", "no", "yes", "no", 
"yes", "yes", "no", "yes", "no", "yes", "yes", "no", "yes")), class = "data.frame", row.names = c(NA, 
-20L))

例如

ID	Item1. Other mental health services?	Item1. school	Item1.ER	Item1.clinic
1	school services and emergency room	yes	yes	no
2	mental health clinic	no	no	yes
3	mental health clinic and schools services	yes	no	yes
4	none	no	no	no

我想创建一个条形图或直方图，它在 x 轴上有每个项目子类别（第 3-5 列），在 y 轴上有回答“是”的人数。 Example Plot

关于如何在 ggplot2 中执行此操作的任何建议？

Answer 1

如果没有适当的可重现数据集，我只能对您想要什么做出有根据的猜测。

我将这些数据组成了我们回答问题的两个可能答案（ER 或学校）

df<-data.frame(ID = seq(1:100), question = seq(1:100), School = sample(c(0,1), replace=TRUE, size=100),
               ER = sample(c(0,1), replace=TRUE, size=100))

我还创建了一个小型数据框，其中包含这些答案的所有可能组合（4 种答案类型）。然后我将它们标记为 A、B、C 或 D。我还添加了一个列，在其中我根据 1 或 0 指定每个答案（1 表示是，0 表示否）

possible_combinations<-unique(df[, c("School", "ER")])
possible_combinations$combo_type<-c("A", "B", "C", "D")
possible_combinations$combos<-paste(possible_combinations$School,possible_combinations$ER)

我想用标记填充原始数据集，根据上面的可能组合指示哪些问题有哪些答案组合，因此我在原始数据集中创建一个空列：

df$combo<-NA

现在我只需运行一个 for 循环，检查实际答案与先前建立的组合的组合，并用 A、B、C 或 D 填充这个空列。

for(i in 1:nrow(df)){
  combo<-paste(df$School[i], df$ER[i])
  df$combo[i]<-possible_combinations$combo_type[which(possible_combinations[,4] %in% combo)]
}

现在只需在根据唯一组合汇总每个答案的总计数后，使用 ggplot 绘制条形图即可：

df %>% group_by(combo) %>%
  summarise(total = n()) %>% ggplot(.) +
  geom_bar(stat = "identity", aes(x = combo, y = total), width =0.5) +
  theme_bw()