Discussion :

[draculla]

Bonjour à tous,

Je fais une petite fonction qui me permet de faire plusieurs graphiques, pour des variables issues d'une même table.
Le but de la fonction c'est de faire un graphique pour chaque variable en fonction d'une variable d’intérêt (dans le prop.table, je ne prend que les pourcentages de la modalité 1 dans ma variable d’intérêt (qui comme modalité 0 et 1)). Cependant je n'arrive à mettre le titre en paramètre, c'est à dire que le nom de la variable s'affiche sur le graphique qui lui correspond.
Voici la fonction :

Code :

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

1
2
3
4
5
6
7
8
 
pen.graph <- function(x){
  tab<- prop.table(table(x,matable$var_interet),1)
  res<-plot(round(tab[,2],2), main = " ", type ="l", col="red", ylab="% BAD 120J", xlab = colnames(x), font.axis=1, cex.axis=1, las=1, xaxt="n")
  axis(side=1, at = 1:nrow(tab), labels=row.names(tab))
  res
}
graph<-lapply(matable, pen.graph); par(mfcol=c(3, 4));graph

Merci d'avance pour votre aide :-)

[Pierre448]

Bonjour,

Tu peux faire une boucle for qui attribut à i le numéro de la colonne d'intérêt.

Code :

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

1
2
3
4
5
6
7
8
9
 
col_debut<-2
col_fin<-6
 
For(1 in c(col_debut:col_fin)){
 
#Tu fais ta fonction dans la boucle
 
}

Et dans cette situation l'argument suivant devrait fonctionner dans ta fonction :

Code :

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

main=names(matable)[i]

Ça doit fonctionner :-)

[draculla]

Salut

Merci pour la réponse, juste un petit soucis, il m'affiche le même graphique avec chacun des noms de la variables. ca duplique les graphiques.

Je n'ai pas réussi à trouver comment limiter un graphique avec uniquement le nom de la variable qui lui correspond.

Help please :-(

Merci

[Pierre448]

Il faut que R enregistre les différentes étapes de la boucle, tu peux par exemple utiliser :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
pdf("C:/Users/Desktop/Stat/sorties_graphiques.pdf") #Chemin + nom du fichier que tu veux créer
col_debut<-2
col_fin<-6
 
For(1 in c(col_debut:col_fin)){
 
#Tu fais ta fonction dans la boucle en utilisant l'argument 
 
main=names(matable)[i]
 
#Avant la fin de la boucle tu lui demandes d'écrire le graphique :
 
print(res)
 
}
 
dev.off()

Est-ce que cette méthode te convient ?

[draculla]

Merci pour la réponse.
Le problème vient de moi, je pense, je suis novice en R, ma fonction avec apply, je ne sais pas si ça vient de là, mais je n'arrive pas à appliquer ta solution.
Merci

[draculla]

Pour ceux qui auront le même problème que moi, voici comment j'ai fait:

Code :

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

1
2
3
4
5
par(oma=rep(2,4),mar=rep(2,4))
par(mfrow = c(6, 9))
pen.graph_v2<-sapply(names(sapply(matable[, -c(1, 2,3)], names)), 
                  function(x) plot(prop.table(table(matable[, x], matable$varcible))[,2],
                                   main = x, font.axis=1, cex.axis=1, las=1, xaxt="n", type ="l", col ="red",xlab = colnames(x)))

merci