2 个不同列的并排 geom_bar 图

Question

所以我得到了 2 个地块，它们自己工作得很好。 我试图将它们并排展示，尽可能漂亮地彼此相邻，但这只是行不通。 试图比较大约 600 人过去和现在的食品支出。

  ggplot(data=survey,aes(x=Past.FoodExp))+
  geom_bar()+
  geom_text(stat ='count',aes(label =..count.., vjust = -0.2))

  ggplot(data=survey,aes(x=Current.FoodExp))+
  geom_bar()+
  geom_text(stat ='count',aes(label =..count.., vjust = -0.2))

这是我尝试过的，但它没有给我想要的结果。

ggplot(data=survey, aes(y=Past.foodExp, x=Current.FoodExp)) + 
    geom_bar(position="dodge", stat="identity")

如您所见，它在 x 和 y 轴上显示了我的范围，我只需要在 x 上使用它，而 y 是我调查的总人数。 你们中有人知道如何围绕这个 go 并正确呈现它吗？ 谢谢。

---

可重现的例子

输入（头（调查，10））

structure(list(Past.FoodExp = structure(c(2L, 1L, 3L, 4L, 3L, 
4L, 3L, 4L, 3L, 3L), .Label = c("0-100\x80", "101-200\x80", "201-300\x80", 
"300\x80+"), class = "factor"), Current.FoodExp = structure(c(2L, 
2L, 4L, 4L, 3L, 3L, 4L, 4L, 4L, 4L), .Label = c("0-100\x80", 
"101-200\x80", "201-300\x80", "300\x80+"), class = "factor")), row.names = c(NA, 
10L), class = "data.frame")

Answer 1

您需要将 dataframe 重塑为更长的格式。 您可以使用pivot_longer function 例如：

library(tidyr)
library(dplyr)

survey %>% pivot_longer(everything(), names_to = "var", values_to = "val")

# A tibble: 20 x 2
   var             val          
   <chr>           <fct>        
 1 Past.FoodExp    "101-200\x80"
 2 Current.FoodExp "101-200\x80"
 3 Past.FoodExp    "0-100\x80"  
 4 Current.FoodExp "101-200\x80"
 5 Past.FoodExp    "201-300\x80"
 6 Current.FoodExp "300\x80+"   
 7 Past.FoodExp    "300\x80+"   
 8 Current.FoodExp "300\x80+"   
 9 Past.FoodExp    "201-300\x80"
10 Current.FoodExp "201-300\x80"
11 Past.FoodExp    "300\x80+"   
12 Current.FoodExp "201-300\x80"
13 Past.FoodExp    "201-300\x80"
14 Current.FoodExp "300\x80+"   
15 Past.FoodExp    "300\x80+"   
16 Current.FoodExp "300\x80+"   
17 Past.FoodExp    "201-300\x80"
18 Current.FoodExp "300\x80+"   
19 Past.FoodExp    "201-300\x80"
20 Current.FoodExp "300\x80+" 

因此，使用此结构，您现在可以在ggplot2中轻松传递它，如下所示：

library(tidyr)
library(dplyr)
library(ggplot2)

survey %>% pivot_longer(everything(), names_to = "var", values_to = "val") %>%
  ggplot(aes(x = val, fill = var))+
  geom_bar(position = position_dodge())+
  geom_text(stat = "count", aes(label = ..count..), vjust = -0.2, position = position_dodge(0.9))

它回答了你的问题吗？