x <- c(-1,1,2,-2,-1,1,2,-3,-2,-1,1,2,3,-3,-2,-1,1,2,3,-2,-1,1,2,-1,1,2) y <- c(3,3,3,2,2,2,2,1,1,1,1,1,1,-1,-1,-1,-1,-1,-1,-2,-2,-2,-2,-3,-3,-3) letters <- c("A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z") # plot(x,y, type="n", axes="false") plot(x,y, type="n") text(x,y,letters) # axis(1, pos=-4) # axis(2, pos=-4) # axis(3, pos=4) # axis(4, pos=4) abline(h=seq(-3,3,1),lty=2, col="gray") abline(v=seq(-3,3,1),lty=2, col="gray") abline(h=0,v=0) text(x,y,letters) - Steve Koch