Multiple graphs

# Here I draw multiple histograms as a example.

# Input data

> papa<-c(20,20,20,20,20,20,20)

> mama<-c(2,0,1,1,0)

> oba<-c(2,3,1,9,20,20,20,20,20,4,20,20,12,6,7)

> ozi<-c(7,7,20,20,20,20,20,18,20)

> aneki<-c(20,14,11,20,20,20,20,20,20,3,20,20,20,20,20,5,3,14,20)

> imouto<-c(3,1,0,20,6,4,20,8,2,0,20,2,20,4)

#Draw histograms and produce the files

> filepapa<-hist(papa, main="papa", freq=FALSE, ylim=c(0,0.25), br=c(0,5,10,15,20))

# Similarly, you can make each graph.

> filemama<-hist(mama, main="mama", freq=FALSE, ylim=c(0,0.25), br=c(0,5,10,15,20))

> fileozi<-hist(ozi, main="ozi", freq=FALSE, ylim=c(0,0.25), br=c(0,5,10,15,20))

> fileoba<-hist(oba, main="oba", freq=FALSE, ylim=c(0,0.25), br=c(0,5,10,15,20))

> fileaneki<-hist(aneki, main="aneki", freq=FALSE, ylim=c(0,0.25), br=c(0,5,10,15,20))

> fileimouto<-hist(imouto, main="imouto", freq=FALSE, ylim=c(0,0.25), br=c(0,5,10,15,20))

# Set margin for the Title.

> par(oma = c(0, 0, 4, 0))

# 3 x 2

> par(mfrow=c(3,2))

# Plot graphs in a window (It seems that the "ylim=c(0,0.25)" command are ignored).

> plot(filepapa)

> plot(filemama)

> plot(fileozi)

> plot(fileoba)

> plot(fileaneki)

> plot(fileimouto)

# Put the title "example"

> mtext(side = 3, line=1, outer=T, text = "example", cex=2)