png("pch.png", height=4, width=4, units="in", res=180)
par(mar=c(2,2,3,1)+0.1)
plot(1,1, xaxt="n", yaxt="n", ylim=c(0,10), xlim=c(-0.25,2.25), type="n", xlab="", ylab="", bty="n", main="Plotting Character Values (pch)" )

for(i in 1:25) {
xval <- floor(i/10)
yval <- i-10*xval
points(xval,yval, pch=i, cex=2)
text(xval-0.2,yval, i)
}

dev.off()