Добавить слой с помощью pplot из psda

Question

Я хотел бы добавить наложение двух графиков, используя pplot из psda пакета.MWE:

require(psda)
x1 <- psim(10, 3)
x2 <- psim(10, 3)

p1 <- pplot(x1) + theme_bw() + geom_polygon(colour = 'red', fill = NA)
p2 <- pplot(x2) + theme_bw() + geom_polygon(colour = 'blue', fill = NA)

Я пытался использовать p1 + p2, но получил сообщение:

Не знаю, как добавить o к графику.