グラフィクスの一括操作

  • 複数のグラフィクス画面を開いたり一括して閉じたり
# ヘルプページ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()