NKがpchをいじくってなんか描いてといってくるので
xlim<- c(0,5) ylim<- c(1,130) for(i in 1:127){ plot(i%%5,i,pch=i,col=i,cex=2,xlim=xlim,ylim=ylim, xlab="",ylab="",frame=FALSE,xaxt="n",yaxt="n") par(new=TRUE) } # 1〜25,31〜47 # 48〜57が0〜9 # 65〜90がA〜Z # 97〜122がa〜z # 128以降はエラー。
miku<- c(72,97,116,115,117,110,101,77,105,107,117) # MIKU<- c("H","a","t","s","u","n","e","M","i","k","u")をpchに指定するほうが楽なんだが… x<- (1:length(miku))/2 y<- rep(1,length(miku)) for(m in 1:length(miku)){ for(col in 1:8){ plot(x[m],1+col/8,pch=miku[m],col=col,cex=2.5, xlim=c(0,length(miku)),ylim=c(1,2), xlab="",ylab="",frame=FALSE,xaxt="n",yaxt="n") par(new=TRUE) } }