R 由一个变量分隔并由另一个变量着色的条形图

我花了令人惊讶的4个小时在谷歌上搜索，结果发现答案并不完全相同，而这需要我30秒的时间

以下是我的数据：

DFj <- read.table(text="Intervention Timepoint  Proportion
             0    baseline  .35
             0    final     .24
             1    baseline  .25
             1    final     .43", header=TRUE)

---

我想要一个4条的条形图。应分为两类，即基线和最终时间点。基线应有两条横线，控制红色和干预蓝色并排。然后我想要一点距离，在我们有相同的两个相同颜色的条，但是有最终的数据之前。这应该是非常简单，但绝对没有什么我谷歌可以帮助我。有什么想法吗？

这就是你想要的吗

library(tidyverse)
DFj <- read.table(text="Intervention Timepoint  Proportion
             0    baseline  .35
             0    final     .24
             1    baseline  .25
             1    final     .43", header=TRUE)

DFj %>% 
  ggplot(aes(Timepoint, Proportion, fill = Intervention %>% as.factor())) +
  geom_col(position = 'dodge') + 
  scale_fill_manual(values = c('red', 'blue'))