为任何给定数据集绘制独立变量的分布图

Question

我希望自动化探索性数据分析过程，并希望绘制所有输入变量的分布图（使用线图，直方图，密度曲线等）。正如我的代码所示，我只是得到4个空白图形窗口。我做错了什么？如果有更好的方法，我也会对此持开放态度。

mydata <- read.csv("http://www.ats.ucla.edu/stat/data/binary.csv")

for (i in names(mydata)){
    qplot(data=mydata,i,geom="bar", fill="admit")
    dev.new()
}

Answer 1

这种情况看起来像aes_string会派上用场（以及print对ggplot的追加aes_string。我发现this post显示了如何在循环中使用ggplot和mydata$admit = factor(mydata$admit) for(i in names(mydata)) { print(ggplot(mydata) + geom_bar(aes_string(x = i, fill = "admit"))) } 。

所以它看起来像这样：

dev.new

我在RStudio工作，所以跳过了代码的admit部分。我发现我还需要将{{1}}转换为一个因子。