Я использовал предложенный код Зак и добавил «руководства (fill = guide_legend (ncol = 2))». Это график, который я получил
Пересмотренный график