（我在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) 
}