Obecnie pracuję z poziomym wykresem słupkowym za pomocą ggplot2 w R.

To jest mój kod R:

ggplot(results, aes(x=Protocol, y=Time, fill=Phase)) + 
  geom_bar(stat="identity") + coord_flip()

I produkuje ten wykres:

Chcę wycentrować ten wykres, aby faza 1 i 2 były po lewej, a faza 3 i 4 po prawej.

Oto przybliżony obraz tego, czego szukam. Ale wyobraźcie sobie, że linia środkowa to czas 0, a czas idzie pozytywnie w dowolnym kierunku:

Myślę, że powinienem zrobić dwa wykresy do tyłu?