Titre de graphique dynamique

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:

---

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

Bonjour,

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

Code:

---

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:

---

main=names(matable)[i]

---

Ça doit fonctionner :-)

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

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

Code:

---

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 ?

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

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

Code:

---

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