画面分割 par(mfrow=c(2,2)) 重ね書き par(new=T) 階級幅の設定(1パーセントごとに分割) seq(-300, 300, by=1) 分布の確率密度関数を推定する density() 気温のヒストグラムに分布の確率密度関数を推定し重ね書きする > kion.dat <- read.csv(file="data.csv")> par(mfrow=c(2,2))> hist(kion.dat[,3], freq=F, breaks=seq(-300, 300, by=1), xlab="%", xlim=c(0,25), ylim=c(0,0.15), main="")>…