я пытаюсь создатьfacet_wrap график, который сравнивает четыре отдельные строки с общей пятой линией; цель состоит в том, чтобы эта пятая строка появилась на всех четырех другихfacet_wrap участки.

Вот'мой минимальный код:

library(ggplot2)

x    = c( 1,  3,  1,  3,  2,  4,  2,  4)
y    = c( 1,  3,  2,  4,  1,  3,  2,  4)
type = c("A","A","B","B","C","C","D","D")
data = data.frame(x,y,type)

x    = c( 4,  1)
y    = c( 1,  4)
type = c("E","E")
line = data.frame(x,y,type)

ggplot(data, aes(x,y)) + geom_line() + facet_wrap(~type) +
geom_line(data = line, aes(x,y))

Я надеялся, что добавление пятой строки в качестве независимогоdata.frame позволит мне сделать это, но он просто добавляет его в качестве пятого аспекта, как на следующем рисунке:

Я хочу "Е" Фасет, чтобы показать на всех других участках. Какие-нибудь мысли? Я знаю это ,geom_vlinegeom_hline, а такжеgeom_abline все появятся на всех гранях, но яЯ не уверен, что делает их уникальными.