美好的一天？ 是否可以将ymin，ymax设置为0,800为上三个方面，0,100为下三个方面？
ssc <- data.frame(list(avg=c(1.288,1.306,1.312),cv=c(621,0.842,0.838),scr=c(1,2,1),pwr=c(1,2,3),wb=c(1,3,3)) )
ssc$scr <- factor(ssc$scr)
ssc$pwr <- factor(ssc$pwr)
ssc$wb <- factor(ssc$wb)
qplot(avg,cv,data=ssc,colour=wb)+ facet_grid(scr~pwr)