David Zelený

par ()
 
png (file = 'par_1.png', height = 550, width = 550, units = 'px', pointsize = 16)
par (col = 'red')
plot (dist ~ speed, data = cars)
dev.off ()
 
 
plot (dist ~ speed, cars)
op <- par ()
par (col = 'red')
plot (dist ~ speed, cars)
par (op)
 
png (file = 'par_2.png', height = 550, width = 1100, units = 'px', pointsize = 16)
old_par <- par (mfrow = c(1,2), col = 'red', bg = 'grey')
plot (dist ~ speed, cars)
plot (Volume ~ Girth, trees)
par (old_par)
dev.off ()
png (file = 'par_3.png', height = 550, width = 550, units = 'px', pointsize = 16)
plot (dist ~ speed, cars)
dev.off ()
 
png (file = 'par_4.png', height = 550, width = 550, units = 'px', pointsize = 16)
plot (dist ~ speed, data = cars, pch = 21, col = 'red', bg = 'yellow')
dev.off ()
 
png (file = 'par_5.png', height = 550, width = 550, units = 'px', pointsize = 16)
plot (dist ~ speed, data = cars, axes = FALSE)
axis (1, col = 'red')
axis (2, col = 'blue')
dev.off ()
 
png (file = 'par_6.png', height = 550, width = 550, units = 'px', pointsize = 16)
plot (dist ~ speed, data = cars, main = list ('Scatterplot', font = 3, col = 'red', cex = 4))
dev.off ()