Question

我必须阅读一些外部文件，提取一些列并用零填充缺失的值。因此，如果第一个文件在$ Name：a，b，c，d列中，并且列$ $包含离散值;第二个文件在某些列中：b，d，e，f等等我需要创建数据框的其他文件，如下所示：

        a      b      c      d      e   f
File1 value  value  value  value    0   0
File2   0    value    0    value  value  value

这是我为了更好地解释我的问题所写的虚拟代码：

listDFs <- list()
for(i in 1:10){
    listDFs[[i]] <-
        data.frame(Name=c(
                   c(paste(sample(letters,size=2,replace=TRUE),collapse="")),
                   c(paste(sample(letters,size=2,replace=TRUE),collapse="")),
                   c(paste(sample(letters,size=2,replace=TRUE),collapse="")),
                   c(paste(sample(letters,size=2,replace=TRUE),collapse="")),
                   c(paste(sample(letters,size=2,replace=TRUE),collapse="")),
                   c(paste(sample(letters,size=2,replace=TRUE),collapse="")),
                   c(paste(sample(letters,size=2,replace=TRUE),collapse=""))),
                   Area=runif(7))
}
lComposti <- sapply(listDFs, FUN = "[","Name")
dfComposti <- data.frame(matrix(unlist(lComposti),byrow=TRUE))
colnames(dfComposti) <- "Name"
dfComposti <- unique(dfComposti)
                                        #
## The CORE of the code
lArea <- list()
for(i in 1:10){
    lArea[[i]] <-
        ifelse(dfComposti$Name %in% listDFs[[i]]$Name, listDFs[[i]]$Area, 0)}
                                        #
mtxArea <- (matrix(unlist(lArea),nrow=c(10),ncol=dim(dfComposti)[1],byrow=TRUE))

问题在于列名和每个值之间的“同步”。

你有什么建议吗？

如果我的代码结果不清楚，我也可以上传我使用的文件。

最佳

Answer 1

最安全的是永远不要忘记这些名字：它们可能会以错误的顺序被放回......

您可以使用do.call(rbind, ...)将所有data.frames连接到一个高数据框架中，然后将其转换为带有dcast的宽数据框。

# Add a File column to the data.frames
names( listDFs ) <- paste( "File", 1:length(listDFs) )
for(i in seq_along(listDFs)) {
  listDFs[[i]] <- data.frame( listDFs[[i]], file = names(listDFs)[i] )
}

# Concatenate them
d <- do.call( rbind, listDFs )

# Convert this tall data.frame to a wide one
# ("sum" is only needed if some names appear several times 
# in the same file: since you used "replace=TRUE" for the 
# sample data, it is likely to happen)
library(reshape2)
d <- do.call( rbind, listDFs )
d <- dcast( d, file ~ Name, sum, value.var="Area" )

R创建一个矩阵

1 个答案: