pour (je en xxx) problème ggplot

Question

C'est étrange - je pense?

library(ggplot2) 
tf <- which(sapply(diamonds, is.factor)) 
diamonds.tf <- diamonds[,tf] 

Jusqu'ici tout va bien. Mais vient ensuite le problème:

pl.f <- ggplot(diamonds.tf, aes(x=diamonds.tf[,i]))+ 
geom_bar()+ 
xlab(names(diamonds.tf[i])) 

for (i in 1:ncol(diamonds.tf)) { 
ggsave(paste("plot.f",i,".png",sep=""), plot=pl.f, height=3.5, width=5.5) 
} 

Cela enregistre les tracés dans mon répertoire de travail - mais avec le mauvais x-label. Je pense que cela est étrange car appeler ggplot produit directement le graphique de droite:

i <- 2 
ggplot(diamonds, aes(x=diamonds[,i]))+geom_bar()+xlab(names(diamonds)[i]) 

Je ne sais pas vraiment comment décrire cela comme un titre approprié - des suggestions quant à un titre de question-plus descriptif est le bienvenu.

Merci à l'avance

Answer 1

Ce n'est pas étrange - votre pl.f ne prend pas i comme paramètre. En fait, si vous ne définissez pas i, vous ne pouvez même pas exécuter votre code. Je pense que vous voulez quelque chose comme

pl.f <- function(i) 
    ggplot(diamonds.tf, aes(x=diamonds.tf[,i]))+ 
      geom_bar()+xlab(names(diamonds.tf[i])) 

for (i in 1:ncol(diamonds.tf)) { 
    p <- pl.f(i) 
    ggsave(paste("plot.f",i,".png",sep=""), plot=p, height=3.5, width=5.5) 
}