Изменить горизонтальные гистограммы для комбинации (жесткий дизайн)

У меня есть следующие образцы данных:

library(tidyverse)

df <- data.frame(col=rep(c("A_B", "A_C", "A_D", 
                           "B_A", "C_A", "D_A",
                           "B_C", "B_D", 
                           "C_B", "D_B",
                           "C_D", "D_C"), 2),
                 level=c(rep("lower_level", 12), rep("higher_level", 12)),
                 value=abs(rnorm(24, mean=5, sd=2)))%>% tibble()
df[c('origin', 'target')] <- str_split_fixed(df$col, '_', 2)
df <- df %>% select(c(origin, target, level, value))

Теперь я хочу создать горизонтальные гистограммы для каждой цели (df %>% filter(target= = "A")). Я делаю это, используя следующий код:

# plot
p1 <- ggplot(data = df %>% filter(target= = "A"), 
            aes(x = factor(level), y = value, fill = factor(origin)))+
  geom_bar(stat = "identity", position = "fill", width = .1) + 
  scale_fill_manual(values = c("A" = "yellow", "B" = "green", "C" = "red", "D" = "blue")) +
  coord_flip()

Поскольку позже я хочу объединить несколько таких графиков (см. ниже), я хотел бы

1. удалите пустое пространство между осью Y и столбцами (или измените его на значение X)

2. чтобы метка fill отображалась справа

3. иметь одно значение слева, говорящее «цель: A»

4. и иметь fill легенду и ось Y, общие для всех графиков.

См. аннотированный сюжет:

Для справки я создаю дополнительные графики с помощью этого кода:

p2 <- ggplot(data = df %>% filter(target= = "B"), 
       aes(x = factor(level), y = value, fill = factor(origin)))+
  geom_bar(stat = "identity", position = "fill", width = .1) +
  scale_fill_manual(values = c("A" = "yellow", "B" = "green", "C" = "red", "D" = "blue")) +
  coord_flip()

p3 <- ggplot(data = df %>% filter(target= = "C"), 
             aes(x = factor(level), y = value, fill = factor(origin)))+
  geom_bar(stat = "identity", position = "fill", width = .1) +
  scale_fill_manual(values = c("A" = "yellow", "B" = "green", "C" = "red", "D" = "blue")) +
  coord_flip()

p4 <- ggplot(data = df %>% filter(target= = "D"), 
             aes(x = factor(level), y = value, fill = factor(origin)))+
  geom_bar(stat = "identity", position = "fill", width = .1) +
  scale_fill_manual(values = c("A" = "yellow", "B" = "green", "C" = "red", "D" = "blue")) +
  coord_flip()

И объедините их с этим кодом (но с удовольствием воспользуемся другими способами их объединения, если это необходимо).

library("gridExtra")
grid.arrange(p1, p2, p3, p4, ncol = 1, nrow = 4)