优雅地动态分配一个data.frame

Question

我有一个数据框应该在运行时增长（添加行）。明智的做法是预先分配数据帧 (cmp.The R Inferno)。预分配例程应该接受所有类型的数据框组合（即列数和列类）。

示例

arbitraryDf<-function(){
    return(data.frame(C="char",L=TRUE,N=4.5,stringsAsFactors=FALSE))
}

返回一个任意数据框以用作模板。我需要N <- 10 行，所以我可能会这样做：

data<-as.data.frame(lapply(arbitraryDf(),function(x){eval(parse(text=paste(class(x),"(",N,")")))}),stringsAsFactors=FALSE)

返回所需的数据帧。

>data
   C     L N
1    FALSE 0
2    FALSE 0
3    FALSE 0
4    FALSE 0
5    FALSE 0
6    FALSE 0
7    FALSE 0
8    FALSE 0
9    FALSE 0
10   FALSE 0
>sapply(data,class)
          C           L           N 
"character"   "logical"   "numeric" 

不用说，eval() 的使用是丑陋的。有没有更直接的解决方案？

如前所述，例程需要接受任何数据帧组合，否则@mnel's answer 就足够了。

更新

本质上，我想达到和

一样的效果

data <- data.frame(x= numeric(N), y= integer(N), z = character(N)) 

但以通用方式，适用于任何 df 布局。 df 布局的信息应该从给定的 df 中绘制（这里是任意的 Df()）

Answer 1

我不确定这是否是您要找的。函数gendf 有两个参数——模板数据框和行数。它根据给定行数的模板返回空数据框。

arbitraryDf <- data.frame(C = "char", L = T, N = 4.5, stringsAsFactors = F)
arbitraryDf

gendf <- function(df, N) {
  # Create list of modes
  modes <- lapply(df, storage.mode)
  # Return data.frame
  return(data.frame(lapply(modes, vector, N)))
}

x <- gendf(arbitraryDf, 10)
class(x)

Answer 2

为了概括西蒙的评论，也许这样的东西对你有用：

myFun <- function(sourceDF, length) {
  Classes <- sapply(sourceDF, class)
  data.frame(lapply(Classes, vector, length = length))
}

在这里，我们首先提取源data.frame 的每一列的类，并将其用作新data.frame 的模板，其长度由length 参数确定。

例子：

myFun(arbitraryDf(), 5)
#   C     L N
# 1   FALSE 0
# 2   FALSE 0
# 3   FALSE 0
# 4   FALSE 0
# 5   FALSE 0