代码

png("mtext.pdf")
plot(1:10, type="n", xaxt="n", yaxt="n", ylab="original        ylab site", xlab="original        xlab site")for(j in 1:4) for(i in 0:10) mtext(as.character(i),side=j,line=i)
dev.off()png("mpg.pdf")
par(mfcol = c(3,3))
par(mgp = c(3, 1, 1))
plot(1:10, ylab="mgp = c(3, 1, 1)", xlab="mgp = c(3, 1, 1)", cex.lab=1.5)
par(mgp = c(3, 2, 0))
plot(1:10, ylab="mgp = c(3, 2, 0)", xlab="mgp = c(3, 2, 0)", cex.lab=1.5)
plot(1:10, ylab="", xlab="",type="n", xaxt="n", yaxt="n")par(mgp = c(2, 1, 0)) 
plot(1:10, ylab="mgp = c(2, 1, 0)", xlab="mgp = c(2, 1, 0)", yaxt="n", xaxt="n", cex.lab=1.5)
par(mgp = c(3, 1, 0)) 
plot(1:10, ylab="mgp = c(3, 1, 0)", xlab="mgp = c(3, 1, 0)", main="default mgp", cex.lab=1.5)
par(mgp = c(1, 1, 0)) 
plot(1:10, ylab="mgp = c(1, 1, 0)", xlab="mgp = c(1, 1, 0)", yaxt="n", xaxt="n", cex.lab=1.5)plot(1:10, ylab="", xlab="",type="n", xaxt="n", yaxt="n")
par(mgp = c(3, 0, 0))
plot(1:10, ylab="mgp = c(3, 0, 0)", xlab="mgp = c(3, 0, 0)", cex.lab=1.5)
par(mgp = c(3, 1, -1))
plot(1:10, ylab="mgp = c(3, 1, -1)", xlab="mgp = c(3, 1, -1)", cex.lab=1.5)
dev.off()

图片