（我在xxx）ggplot问题

Question

这很奇怪 - 我想？

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

到目前为止好。但接下来的麻烦：

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

这将绘图保存在我的工作目录 - 但与错误的x标签。我认为这是奇怪的，因为直接调用ggplot产生右图：

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

我真的不知道该怎么形容这是一个适合的标题 - 建议，以一个更具描述性的问题，标题是最欢迎的。

在此先感谢

Answer 1

这不奇怪 - 你pl.f不采取i作为参数。事实上，如果你没有定义i，你甚至不能运行你的代码。我想你想要类似

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