pchをいじくる

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)
  }
}