dev.copyを使う。今までスクリーンキャプチャしてたけど、今度からはこっちで。
library(ggplot2) 
qplot(wt, mpg, data=mtcars, colour=factor(cyl)) 
dev.copy(device=png,filename="testcopy.png")
dev.off()

dev.copyを使う。今までスクリーンキャプチャしてたけど、今度からはこっちで。
library(ggplot2) 
qplot(wt, mpg, data=mtcars, colour=factor(cyl)) 
dev.copy(device=png,filename="testcopy.png")
dev.off()
