Управление прямоугольником geom_ribbon в R ggplot

Question

Я использую ggplot и пытаюсь добавить ленту в виде простого прямоугольника на панель, которая у меня есть. Идея состоит в том, чтобы показать отсечку ниже определенного значения.

Штукатурка в порядке, но я не могу получить ленту справа - мне бы хотелось, чтобы она показалась немного шире, но она, по-видимому, ограничивается шириной данных штрихового рисунка.

Я пробовал использовать xmin и xmax, но это не увеличивает ширину заштрихованной области.

Есть ли способ явного управления шириной geom_ribbon?

# Where df is a data frame containing the data to plot 
library(cowplot) 

ggplot(df, aes(x=treatments, y=propNotEliminated)) + 
    geom_ribbon(aes(xmin=0, xmax=21, ymin=0, ymax=20)) + # the xmin and xmax don't do what I'd expect 
    geom_bar(stat="identity", fill="white", colour="black", size=1) + 
    theme_cowplot() 

Answer 1

Почему бы не использовать geom_rect?

ggplot(mtcars, aes(factor(cyl))) + 
    geom_bar() + 
    geom_rect(xmin = 0, xmax = Inf, ymin = 0, ymax = 1, fill = "blue") + 
    geom_rect(xmin = 1, xmax = 3, ymin = 1, ymax = 2, fill = "red") + 
    geom_rect(xmin = 1 - 0.5, xmax = 3 + 0.5, ymin = 2, ymax = 3, fill = "green") 

После вы удовлетворены размещением, положить geom_bar в последнюю очередь.