# i行j列のグラフィックス

op <- par(mfrow=c(i,j))