3

我是 R 新手,所以请多多包涵……我设法加载了一个数据框,并且标题有“data$xy1”和“data$xy2”等列。我想以编程方式生成列名以提取每一列并绘制直方图。简而言之,我想构造'data$xy' + n,我将在其中迭代n。我试过 cat 并得到:

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
4

2 回答 2

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

这将在您的工作目录中植入一堆名称如 xy1.png 的 .png 文件。

于 2012-09-14T22:48:39.757 回答
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"
于 2012-09-14T22:59:05.107 回答