Вставьте фигуру в мультипанельный график, используя R

Question

Мне нужно вставить 4 графических изображения (.ps) в мультипанель (4 коробки), используя R. У кого-нибудь есть совет для этого?

Я много искал и не нашел решения. Сейчас я пытаюсь (но безуспешно) использовать экран:

m <- rbind(c(0.1, 0.55, 0.55, 1), c(0.55, 1, 0.55, 1),
+    c(0.1, 0.55, 0.1, 0.55), c(0.55, 1, 0.1, 0.55))
split.screen(m)

for(var in 1:4){
  screen(var)
  PostScriptTrace(paste("var",var,".ps",sep=""),paste("var",var,".xml",sep=""))
  Pic = readPicture(paste("var",var,"Dia",d,".xml",sep=""))
  par(mar = c(0, 0, 0, 0))
  plot(1, axes = FALSE, type = "n",panel = function (x,y,...){grid.picture(Pic)}) 
   box()
} #end do loop for var 4:7
close.screen(all.screens = TRUE)