可以看看这个～
<br />
mat<-read.csv('mean_std.csv',header=T)</p>
<p>rv.n<-ncol(mat)-1;<br />
rep.n<-3;</p>
<p>for (i in 1:rv.n){<br />
mat0<-matrix(rep(0,6*rep.n),nrow=rep.n)<br />
for (j in 1:6){<br />
mat0[,j]<-mat[((j-1)*rep.n+1):(j*rep.n),i];<br />
}<br />
if (i==1) {<br />
plot(apply(mat0,2,mean),lty=i,col=i,type='l',ylim=c(0.5,3),xlim=c(0,7));<br />
}else{<br />
points(apply(mat0,2,mean),lty=i,col=i,type='l');<br />
}</p>
<p>boxplot(mat0,add=T,col=i,boxwex = 0.05);</p>
<p>}<br />
</p>
[attachment=206745,433]
