plotの種類

こちらを実行した後で

type<- c("p","l","b","c","o","h","s","S","n")
titles<- c("p plot","l plot","b plot","c plot","o plot","h plot","s plot","S plot","n plot")
par(mfrow=c(3,3))
for(t in 1:length(type)){
  plot(t(B),xlab="",ylab="",type=type[t],main=titles[t])
}