BARPLOT多个变量（R）

Question

我想创建一个带有多个变量的条图。

我有几个变量：“你去餐厅吗”，“你去杂货店吗？” ...所有值都是“是”或“否”。我想创建一个带有x =“ yes”和“ no”的小号，y = count，fill =所有变量。

但是我不明白该怎么做，我在互联网上搜索，但我的问题是由于我的X造成的。

I tried this :

consommation_apres <- teletravail %>% select(reponse = rep("yes","no"), AP_livraison,AP_livraison_plateforme,AP_aucun,AP_resto,AP_drive,AP_livraison)

ggplot(consommation_apres, aes(x = reponse, y = count(), fill = consommation_apres)) +
  labs(title="Consommation après le Télétravail") +
  geom_bar(stat = "identity", position = "dodge")

This is my Data :

Data in french oui = yes, non = no

I真的很抱歉这个问题。

感谢您的帮助。

Answer 1

如果您使用的是ggplot，则需要将数据放入长时间的格式中。在这里，我们还可以在绘制之前总结数据。

library(tidyverse)

df %>%
  pivot_longer(everything(), names_to = "name", values_to = "response") %>%
  group_by(name, response) %>%
  summarise(cnt = n()) %>%
  ggplot(aes(x = response, y = cnt, fill = name)) +
  geom_bar(stat = "identity", position = "dodge") +
  labs(title="Consommation après le Télétravail")

output

​

df %>%
  pivot_longer(everything(), names_to = "name", values_to = "response") %>%
  group_by(name, response) %>%
  summarise(cnt = n()) %>%
  ggplot(aes(x = name, y = cnt, fill = response)) +
  geom_bar(stat = "identity", position = "dodge") +
  labs(title="Consommation après le Télétravail")

​rel =“ nofollow noreferrer”>

data

df <- structure(list(AP_livraison = c("yes", "no", "no", "yes", "no", 
"no", "yes", "no", "no"), AP_livraison_plateforme = c("yes", 
"yes", "no", "yes", "yes", "no", "yes", "yes", "no"), AP_aucun = c("yes", 
"yes", "no", "yes", "yes", "no", "yes", "yes", "no"), AP_resto = c("yes", 
"no", "no", "yes", "no", "no", "yes", "no", "no"), AP_drive = c("yes", 
"yes", "no", "yes", "yes", "no", "yes", "yes", "no")), class = "data.frame", row.names = c(NA, 
-9L))