enthumelon resize.win <- function(Width=6, Height=6) { # works for windows dev.off(); # dev.new(width=6, height=6) windows(record=TRUE, width=Width, height=Height,rescale='fixed') } resize.win(45,45) plot(rnorm(100)) 然后就如你所愿了。如果用dev的话,加上width就可以了。
uunet 回复 第6楼 的 enthumelon: resize.win <- function(Width=6, Height=6)<br /> {<br /> # works for windows<br /> dev.off(); # dev.new(width=6, height=6)<br /> windows(record=TRUE, width=Width, height=Height,rescale='fixed')<br /> }<br /> resize.win(45,45)<br /> plot(rnorm(100))</p> 不错 学习了 试一下整理代码