R ggplot - 如何将这两个直方图组合成一个整体直方图进行比较？

Question

所以目前我创建了 2 个单独的 geom_histograms，并希望将它们合并为一个 geom_histogram。基本上蓝色图表与下面的红色图表平行排列，这样我就可以看到每个 x 轴值的某种比较：

#第一个关于科学重要性的直方图

```{r}
lab_data_science <- filter(lab_data, lab_data$V202310 >=2)

science_importance_hist <- lab_data_science %>% 
    ggplot() +
    aes(x = V202310) +
    geom_histogram(position = 'dodge', bins = 4, fill='blue') + 
    labs(
        title    = 'Importance of Science in Decisions About COVID-19',
        subtitle = '2 = Little Important, 3 = Moderately Important, 4 = Very Important, 5= Extremely Important', 
        x        = 'Importance Scale (2 to 5)',
        y        = 'Count', 
        fill     = 'Republican'
)
science_importance_hist
```

Histogram#1 结果图片如下： C:\Users\Austin Jin\Desktop\pic1.PNG

#关于州长处理 COVID-19 的反对意见的第二个直方图

```{r}
lab_data_science2 <- filter(lab_data, lab_data$V201147x >= 1)

governor_covid_disapprovals_hist <- lab_data_science %>% 
    ggplot() +
    aes(x = V201147x) +
    geom_histogram(position = 'dodge', bins = 4, fill= 'red') + 
    labs(
        title    = 'Approvals and Disapprovals of Governor Handling COVID-19',
        subtitle = '1 = Approve Strongly, 2 = Approve Not Strongly, 3 = Disapprove Not Strongly, 4= Disapprove Strongly', 
        x        = 'Approval Scale (1 to 4)',
        y        = 'Count', 
        fill     = 'Republican'
  )
governor_covid_disapprovals_hist
```

Histogram#2 结果图片如下： C:\Users\Austin Jin\Desktop\pic2.PNG

任何见解都将不胜感激，因为我一直在努力将两个直方图合并为一个直方图以进行并排比较。在此先感谢您，并确保对提供准确回复的人给予很好的奖励！

Answer 1

虽然由于您没有可重复的数据而很难确定，但我认为您想要做的是从tidyr() 到pivot_long()，我建议您使用geom_col。假设您已经计算了计数，您可以使用 dplyr::summarize() 进行计算。

注意我正在创建示例数据。

covid  <- c(15, 23, 10, 4)
science <- c(12,19, 18, 0)
labels <- c("excellent", "good", "subpar", "decent")
df <-data.frame (labels, covid, science)

df_long <- tidyr::pivot_longer(df, names_to= "Question", values_to = "count", cols = c("science", "covid"))

ggplot(df_long, aes(y = count, x = labels, fill = Question))   + 
             geom_col( position = "dodge2",  width = .5)