例えば Baayen p.265 より old.prompt <- grid::grid.prompt(TRUE) # これは必要か? old.prompt <- grid::grid.prompt(TRUE) qqmath(~RT|Word, data = lexdec, layout = c(5,5,4)) grid::grid.prompt(old.prompt ) grid::grid.prompt(old.prompt) # あるいは単純に grid::grid.prompt(FALSE) ここで layout 引数の指定は列,行,ページ数となっている