Roberto, mais uma sugestão.
### <code r>
x=1:10; plot(x^2~x, type="b", main="Qualidade de impressão")
png(filename="R001.png", res=300, units="cm", width=15, height=10, pointsize=12,
bg="white")
x=1:10; plot(x^2~x, type="b", main="Qualidade de impressão")
dev.off()
tiff(filename="R001.tif", res=300, units="cm", width=15, height=10, pointsize=12,
bg="white")
x=1:10; plot(x^2~x, type="b", main="Qualidade de impressão")
dev.off()
tiff(filename="R002.tif", res=300, units="cm", width=15, height=10, pointsize=12,
bg="white", compression="zip")
x=1:10; plot(x^2~x, type="b", main="Qualidade de impressão")
dev.off()
tiff(filename="R003.tif", res=300, units="cm", width=15, height=10, pointsize=12,
bg="white", compression="lzw")
x=1:10; plot(x^2~x, type="b", main="Qualidade de impressão")
dev.off()
tiff(filename="R004.tif", res=300, units="cm", width=15, height=10, pointsize=12,
bg="white", compression="jpeg")
x=1:10; plot(x^2~x, type="b", main="Qualidade de impressão")
dev.off()
file.info(dir(patt="^R0.*"))["size"]
size
# R001.png 30177
# R001.tif 6274846
# R002.tif 53832
# R003.tif 50600
# R004.tif 184297
### </code>