Discussion :

[draculla]

Bonjour à tous,

Je souhaite construire une fonction qui me permet d'avoir un graphique les effectif en barre et dans le même graphique les taux de pénétrations et ceux pour plusieurs variables, voici ce que j'ai fait, mais je ne suis pas très convaincu du résultat

fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

je souhaiterai reproduire ce graphe sur toutes les variable de ma_table :



En vous remerciant d'avance :-)