1 2 3 4 5 6 7 8 9 10 11 12
|
pen.graph <- function(x){
tab<- prop.table(table(x,matable$variable_interet),1)
tab2<- table(x,matable$variable_interet)
res<-barplot(tab2,axes=F, xlab=(matable$TSLD_MT_XX_M120J), ylab=NA, xaxt="n")
axis(side = 4,pretty(range(tab2),10))
par(new = T)
res2<-with(plot(round(tab[,2],2), main = substitute(matable$x), type ="l", col="red", xlab=NA,ylab="% bad 120j", font.axis=1, cex.axis=1, las=1, xaxt="n"))
axis(side=1, at = 1:nrow(tab), labels=row.names(tab))
res;res2
}
par(mfcol=c(3, 4));graph<-lapply(matable, pen.graph); graph |
Partager