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 :-)

[draculla]

Pour les intéressés:
. Il suffit de d’écrire la fonction graphique line pour tracer le deuxième graphique et vous pouvez faire autant de line que de graphiques

[A. D.]

Pour les intéressés:
. Il suffit de d’écrire la fonction graphique line pour tracer le deuxième graphique et vous pouvez faire autant de line que de graphiques

Pas aussi simple que ça malheureusement (sauf erreur de ma part ^^).
L'astuce avec "line" fonctionne si les deux éléments ont la même échelle. Pour deux échelles différentes (et deux axes des "y"), c'est plus complexe il me semble.

Je n'ai cependant pas d'exemple sous la main, désolée


Cordialement,


A.D.

[draculla]

Bonjour
Vous avez tout à fait raison lorsque les échelles sont différentes la fonction line n'est plus adaptée.
Pour cela vous avez la fonction par(new=TRUE)

Code :

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

1
2
3
4
5
6
 
#premier graph 
Plot (...) 
par(new=TRUE)
#deuxieme graph
Plot(...)

Et vous pouvez en mettre autant que vous voulez.
Merci
Bien à vous