グラフタイトル - Clinical PK/PD

par(oma=c(0,0,2,1)+0.1, mfrow=c(2,2))

hist(rnorm(100))
hist(rnorm(100))
hist(rnorm(100))
hist(rnorm(100))

title(main="MAIN TITLE", outer=T)