view_points <- function(p,cx) {
  ymax <- p%/%10
  plot(0:10, (-1:9)/10*ymax, type="n")
  k<-0
  for( i in 1:ymax ) {
    for (j in 1:10 ) {
      k<-k+1
      points(j, i-1, pch=k, cex=cx)
    }
  }
}

> source("./view_points.R")
> view_points(30,4)
 警告メッセージ: 
1: In plot.xy(xy.coords(x, y), type = type, ...) :
   pch の値 '26' は未実装です 
2: In plot.xy(xy.coords(x, y), type = type, ...) :
   pch の値 '27' は未実装です 
3: In plot.xy(xy.coords(x, y), type = type, ...) :
   pch の値 '28' は未実装です 
4: In plot.xy(xy.coords(x, y), type = type, ...) :
   pch の値 '29' は未実装です 
5: In plot.xy(xy.coords(x, y), type = type, ...) :
   pch の値 '30' は未実装です 
>

> aa <-c(1,2,4,8,16,32,64,128)
> bb <-c(0,3,2,1,4,8,10,22)
> cc <-c(3,6,6,5,12,14,18,64)

> plot(aa,bb)    ## 1つplotしてみる  ---> Fig.1
> dev.new()      ## 新しいデバイス(何も表示されていないwindow)が開く  ---> Fig.2
> plot(aa,cc)    ## 2つplotで2つ目のwindowに結果が表示される   ---> Fig.3
> dev.off()      ## 2つ目のwindowを閉じる
> dev.off()      ## 1つ目のwindowを閉じる

> xx1 <- c(0, 1, 2, 3, 4, 5, 6, 7)
> yy1 <- c(0, 2, 4, 6, 8, 10, 12, 14)
> xx2 <- c(0, 1, 3, 6, 9, 12, 15, 18)
> yy2 <- c(0, 1, 4, 9, 16, 25, 36, 49)

#plot()にxx1,yy1を指定
#xlim,ylimでx軸、y軸の範囲を指定
#xlab,ylabでx軸、y軸のラベルをxx1,yy1表示から何も表示しないようにする。
> plot(xx1, yy1, xlim=c(0,20), ylim=c(0,50), xlab="", ylab="", type="b")

#今のdeviceに上書きを指示
> par(new=T)

#plot()にxx2,yy2を指定
#xlim,ylimでx軸、y軸の範囲を指定(xx1,yy1のplotと同じにしておく)
#xlab,ylabでx軸、y軸のラベルをxx2,yy2表示から別のラベル表記になるよう指示。
> plot(xx2, yy2, xlim=c(0,20), ylim=c(0,50), xlab="xx", ylab="yy", type="o")

> xx1 <- c(0, 1, 2, 3, 4, 5, 6, 7)
> yy1 <- c(0, 2, 4, 6, 8, 10, 12, 14)
> xx2 <- c(0, 1, 3, 6, 9, 12, 15, 18)
> yy2 <- c(0, 1, 4, 9, 16, 25, 36, 49)
> xx3 <- c(1, 3, 5, 8, 12, 17, 23, 30)
> yy3 <- c(2, 9, 25, 64, 144, 289, 529, 900)

> xx1 <- c(0, 1, 2, 3, 4, 5, 6, 7)
> yy1 <- c(0, 2, 4, 6, 8, 10, 12, 14)
> xx2 <- c(0, 1, 3, 6, 9, 12, 15, 18)
> yy2 <- c(49, 36, 25, 16, 9, 4, 1, 0)
> xx3 <- c(1, 3, 5, 8, 12, 17, 23, 30)
> yy3 <- c(2, 9, 25, 64, 144, 289, 529, 900)