変数関係の視覚化（ペアプロット）

GGallyパッケージ

library(ggplot2)
library(GGally)
dat6=subset(dat4,select = c(school,think1_pre,think1_post,eap_pre,eap_post,X4_8,Q2.8))
colnames(dat6) <- c("学校","思考プレ","思考ポスト","態度プレ","態度ポスト","理科好きプレ","理科好きポスト")
ggpairs(dat6, aes_string(colour="学校", alpha=0.5))

psychパッケージ

pairs.panels(dat)