search for: ysmax

...fyr==2009,]; y2007<-matrix(df2007$y,ncol=nb,nrow=na) y2008<-matrix(df2008$y,ncol=nb,nrow=na) y2009<-matrix(df2009$y,ncol=nb,nrow=na) colnames(y2007)<-vec_b;colnames(y2008)<-vec_b;colnames(y2009)<-vec_b; rownames(y2007)<-vec_a;rownames(y2008)<-vec_a;rownames(y2009)<-vec_a; ysmax<-ceiling(max(colSums(y2007),colSums(y2008),colSums(y2009)))+1 ## Now, let's plot #### the combination of plots desired as a lattice plot col_choice=c("blue", "brown","lightgreen", "mistyrose") par(mfrow=c(1,3),mar=c(5,5,5,2)) barplot(y2007,col = col_ch...