Извлечь координаты области построения для grid.picture () в R

Question

Фон

Я рисую следующее изображение:

Используя этот код:

      par(mfrow = c(2, 2),
    mar = c(2, 2, 2, 2))

plot(1, col = "red", pch = 15)
plot(1, col = "blue", pch = 15)
plot(1, col = "orange", pch = 15)
plot(1, col = "purple", pch = 15)

Я хочу добавить внешний файл postscript, используя grImport (включены образцы данных):

      library(grImport)
#PostScriptTrace("drawing.ps")
#pic <- readPicture("drawing.ps.xml")

# generated with dput()
pic <- new("Picture",
           paths = list(path = new("PictureFill", rule = "nonzero",
                                   x = c(move = 0, line = 1315.47, line = 1315.47, line = 0, 
                                         line = 0),
                                   y = c(move = 1080, line = 1080, line = 7.37891, 
                                         line = 7.37891, line = 1080),
                                   rgb = "#D0D1E6", lty = numeric(0), 
                                   lwd = 10, lineend = 1, linejoin = 1, linemitre = 10)),
           summary = new("PictureSummary", 
                         numPaths = 1, xscale = c(xmin = 0, xmax = 1315.47),
                         yscale = c(ymin = 7.37891, ymax = 1080)))

grid.picture(pic)

Это просто помещает изображение ps, заполняющее все устройство печати:

Вопрос

Я хотел бы, чтобы фиолетовый квадрат располагался точно поверх одной из областей построения (скажем, вверху слева).

Как мне извлечь координаты первого plot() в системе отсчета всего устройства?

Как только они у меня появятся, как правильно использовать координаты в grid.picture()?