... ...(以下同様) ...
setwd('R:/TMP') # replace this with your folder png('plot1.png', width=250, height=300) par(las=1, plt=c(17, 95, 15, 95)/100) num = 25 cex = 5 + runif(num) * 5 col = adjustcolor(topo.colors(num), 0.5) plot(runif(num), cex=cex, bg=col, col='gray', pch=21, xlab='', ylab='') graphics.off()