Гистограмма, отделенная переменной и окрашенная другой переменной

Question

Я потратил удивительные 4 часа на поиски в Интернете и нашел не совсем те же ответы, чтобы сделать что-то, что должно занять у меня 30 секунд.

Вот мои данные:

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

Яхочу барный участок 4 бара.Должно быть две категории, то есть «базовые» и «конечные» моменты времени.Базовая линия должна иметь две полосы: контрольную (красную) и интервенционную (синяя), расположенные рядом.Затем мне нужно немного расстояния, прежде чем мы получим те же два бара с одинаковыми цветами, но с «окончательными» данными.Это должно быть безумно легко, но я абсолютно не могу помочь.Есть идеи?

Answer 1

Это то, что вы ищете?

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'))