プロットのマーカーをきれいに表示する方法

plot(0, 0, xlim=c(0,3), ylim = c(0, 8), type = "n", axes = F, xlab = "", ylab = "")
a<-rep(0:2,c(9,9,8))
b<-c(8:0,8:0,8:1)
points(a,b,pch=0:25,cex=3)
text(a+0.45,b,0:25)

f:id:touch-sp:20170711232535p:plain:w400