Question

我是R的新手，所以请耐心等待......我设法加载了一个数据框，标题中有“data $ x.y.1”和“data $ x.y.2”等列。我想以编程方式生成列名称以提取每列并绘制直方图。简而言之，我想构造'data $ x.y'+ n，其中我将迭代n。我试过猫并得到了：

as.name(cat("data$x.y", i, sep="."))
data$x.y.1Error in as.name(cat("data$x.y", i, sep = ".")) : 
invalid type/length (symbol/0) in vector allocation

Answer 1

names(data)

应该获取您的列名

如果您想要每列数据的直方图

for(i in names(data)){
  png(paste(i,'.png',sep=""))
  hist(data[,which(names(data)==i)],
       main=paste(i,"some other stuff"),
       xlab=paste(i,"some more stuff") 
      )
  dev.off()
}

这会在你的工作目录中植入一堆名为x.y.1.png的.png文件。

Answer 2

df <- data.frame(x = rnorm(5), x1 = rnorm(5), x2 = rnorm(5))

> df
           x         x1          x2
1  1.2222897  0.3904347 -0.05835815
2 -1.7002094 -1.5195555 -0.79265835
3  0.5570183 -1.3191265  0.26198408
4 -0.2457016  0.1461557 -0.05567788
5 -0.7689870 -0.6361940 -0.80780107

library(plyr)
library(reshape2)
library(ggplot2)
# melting the data.frame turns your data.frame from wide to tall
# d_ply takes a data frame, applies a function each variable (in this case column) 
# creates a plot, writes it to disk but returns nothing.
d_ply(melt(df), .(variable), function(x){
    pl <- qplot(x$value, geom = "histogram", main = unique(x$variable))
    # Change the png to jpg, eps or pdf if you prefer a different format
    ggsave(pl, file = paste0(unique(x$variable),".png"))
    })

# Now we can see that my working dir has 3 plots, each named after a column
> dir(pattern = "png")
[1] "x.png"  "x1.png" "x2.png"

生成列名以迭代R中的数据帧

2 个答案: