R：如何在单个图中绘制两列比较直方图？

Question

R：如何在单个图中绘制两列比较直方图？

due_vs_prom <- factor( c(unique(inv$Due_Bin)),levels = c("early","<=5","<=30","<=10","<=50",">50"))
due_counts <- inv %>% group_by(Due_Bin) %>% summarize(count = n())
prom_counts <- inv %>% group_by(Prom_Bin) %>% summarize(count = n())

due_vs_prom <- data.frame(due_vs_prom , due_counts , prom_counts )

plot_due_vs_prom <- plot_ly(due_vs_prom, y = ~due_counts , x = ~ (prom_counts), type = 'bar', name = 'Due_Bin') %>%
  add_trace(x = ~due_counts, name = 'Late Bin') %>%
  layout(xaxis = list(title = 'Count'), barmode = 'group')

数据集喜欢：

Promise_Bin             Due_Bin

early                   early             
early                   >50
early                   >50
>50                     >50
>50                     >50
<=50                    <=50
early                   early
early                   early
<=5                     <50
<=5                     <=5
<=30                    <=30
early                   early
<=30                    >50
<=30                    <=30                    
<=10                    <=10

预期情节：

Answer 1

您可以将数据框重塑为更长的格式（此处使用来自tidyr 包的pivot_longer），按“Bin”和不同的“类别”分组以计算它们中的每一个，最后使用geom_col 绘制它：

library(dplyr)
library(tidyr)
library(ggplot2)
df %>% pivot_longer(everything(),names_to = "var",values_to = "val") %>% 
  group_by(var,val) %>% count() %>%
  ggplot(aes(x = val, y = n, fill = var))+
  geom_col(position = position_dodge())

它回答了你的问题吗？

---

可重现的数据

structure(list(Promise_Bin = c("early", "early", "early", ">50", 
">50", "<=50", "early", "early", "<=5", "<=5", "<=30", "early", 
"<=30", "<=30", "<=10"), Due_Bin = c("early", ">50", ">50", ">50", 
">50", "<=50", "early", "early", "<50", "<=5", "<=30", "early", 
">50", "<=30", "<=10")), row.names = c(NA, -15L), class = c("data.table", 
"data.frame"))