グラフィクスの一括操作
- 複数のグラフィクス画面を開いたり一括して閉じたり
# ヘルプページControl Multiple Devicesを出す help(dev.off() # 新規に画像表示用のデバイス(プロットの枠)を作ってはプロットする dev.new() plot(runif(10)) dev.new() plot(runif(20)) # 現在開いているデバイスを列挙してオブジェクトに格納する d.list<-dev.list() # 格納したオブジェクトにどういう風に入っているかを見る d.list # dev.off()関数は引数として値1個をとるらしいので # ループを回して1個ずつ消す for(i in dev.list()){ dev.off(i) } # lapply()関数を使って、ループを省略する dev.new() plot(runif(10)) dev.new() plot(runif(20)) lapply(dev.list(),dev.off) # graphics.off()で一括して閉じる dev.new() plot(runif(10)) dev.new() plot(runif(20)) graphics.off()