Geom_Bar Legends GGPLOT2

Question

我有一个看起来像的数据框

我试图绘制重叠的geom_bars，显示每个提交日期与今天的条目数

lag_demonstration  <- ggplot(dataflow ,aes())+
  geom_bar(aes(x = SubmissionDate), fill = "red", alpha = 0.25) +
  geom_bar(aes(x = today), fill = "blue", alpha = 0.25) +
  guides(alpha = FALSE)

这使情节总体上看起来像我想要的

但是我想有一个图例/标签来显示哪种颜色是哪种类型（提交日期与今天）

我使用来重塑数据框

dataflow_2 <- gather(dataflow,Date,epiday,SubmissionDate:today)

所以现在数据框看起来像

然后我使用了稍微不同的GGPLOT调用

    lag_demonstration2  <- ggplot(dataflow_2 ,aes(x = epiday, fill = Date))+
  geom_bar(alpha = 0.5, position = "dodge") +
  guides(alpha = FALSE)

这会贴上标签，但条形图看起来不太好看

我花了很多时间试图使它生效，所以我真的很愿意提出建议。

请注意，如果您从第二个版本中删除了position = dodge，那是不对的，因为它将两个表格相互叠加-参见图3