運行v功能時，如何暫停對每個情節

Question

首先，你需要effects和lme4軟件包如果我運行的腳本來運行下面的腳本與

library(effects) 
library(lme4) 

我有以下腳本

devAskNewPage(ask=TRUE) 

fm8 <- lmer(Reaction ~ 1 + Days + (1 + Days|Subject), sleepstudy, 
      REML = 0, verbose = TRUE) 
plot(effect("Day",fm8)) 
qqmath(ranef(fm8)) 

手動，R在每張圖之後詢問Click or ENTER for next page。但是，當我運行以下功能時，

somefunc<-function() 
{ 
devAskNewPage(ask=TRUE) 
fm8 <- lmer(Reaction ~ 1 + Days + (1 + Days|Subject), sleepstudy, 
      REML = 0, verbose = TRUE) 
plot(effect("Day",fm8)) 
qqmath(ranef(fm8)) 

} 

R只會要求Click or ENTER for next page爲最後的情節。我怎樣才能讓它在函數中詢問每個圖？

Answer 1

如果繪製在一起是可以接受的，你可以試試這個：

library(gridExtra) 
somefunc<-function() 
{ 
fm8 <- lmer(Reaction ~ 1 + Days + (1 + Days|Subject), sleepstudy, 
      REML = 0, verbose = TRUE) 
p1 <- plot(effect("Day",fm8)) 
p2 <- qqmath(ranef(fm8))$Subject 
class(p1) <- 'trellis' 
grid.arrange(p1,p2,nrow = 2) 
} 

的影響與類所產生的情節包裝混亂，混淆了grid.arrange，所以我不得不改回。我覺得grid.arrange應該更聰明。

我只能推測devAskNewPage出了什麼問題。繪製代碼的effect非常精細。它很可能會以覆蓋該設置的方式操作圖形設備。

編輯

我有點驚訝，但本Bolker的評論是正確的（即這是R FAQ 7.22版本/例如，「爲什麼格/網格顯卡不行？」，因爲effects包內部呼叫lattice::xyplot）。這與OP的問題一致：

somefunc<-function() 
{ 
devAskNewPage(ask=TRUE) 
fm8 <- lmer(Reaction ~ 1 + Days + (1 + Days|Subject), sleepstudy, 
      REML = 0, verbose = TRUE) 
p1 <- plot(effect("Day",fm8)) 
p2 <- qqmath(ranef(fm8))$Subject 
print(p1) 
print(p2) 
}