我有以下数据框和向量：
ddf = data.frame(a=rep(1,10), b=rep(2,10))
xx = c("c", "d", "e", "f")
如何新建以 xx 中的项目命名的空列？
我尝试了以下方法，但它不起作用：
ddf = cbind(ddf, data.frame(xx))
Error in data.frame(..., check.names = FALSE) :
arguments imply differing number of rows: 10, 4
以下也不起作用：
for(i in 1:length(xx)){
ddf$(xx[i]) = ""
}
Error: unexpected '(' in:
"for(i in 1:length(xx)){
ddf$("
}
Error: unexpected '}' in "}"
【问题讨论】：
这会让你到达那里：
ddf[xx] <- NA
# a b c d e f
#1 1 2 NA NA NA NA
#2 1 2 NA NA NA NA
#3 1 2 NA NA NA NA
#...
您不能直接使用ddf$xx 之类的内容，因为这将尝试分配给名为xx 的列，而不是解释xx。您需要使用 [ 和 [<- 函数，在处理字符串/向量时使用方括号 - 例如 ddf["columnname"] 或 ddf[c("col1","col2")]，或者像 ddf[xx] 这样的存储向量。
之所以选择列是因为data.frames本质上是列表：
is.list(ddf)
#[1] TRUE
as.list(ddf)
#$a
# [1] 1 1 1 1 1 1 1 1 1 1
#
#$b
# [1] 2 2 2 2 2 2 2 2 2 2
...每一列对应一个列表条目。因此，如果您不使用逗号来指定行，例如ddf["name",] 或类似ddf[,"name"] 的列，则默认情况下会获得该列。
如果您使用的是 0 行数据集，则不能使用 NA 之类的值作为替换值。相反，替换为list(character(0))，其中character(0) 可以替换为numeric(0)、integer(0)、logical(0) 等，具体取决于您希望为新列使用的类。
ddf <- data.frame(a=character())
xx <- c("c", "d", "e", "f")
ddf[xx] <- list(character(0))
ddf
#[1] a c d e f
#<0 rows> (or 0-length row.names)
【讨论】：
ddf[xx] <- list(character())
list(NA) 而不仅仅是NA 应该总是可以的，因为data.frames 无论如何都是lists。您不必重复初始值 nrow(ddf) 次，因为 R 应该回收并处理该部分。我真的很惊讶list(character(0)) 以类似的方式填充NAs。我猜你每天都会学到一些新东西。
这似乎成功了：
> cbind(ddf, setNames( lapply(xx, function(x) x=NA), xx) )
a b c d e f
1 1 2 NA NA NA NA
2 1 2 NA NA NA NA
3 1 2 NA NA NA NA
4 1 2 NA NA NA NA
5 1 2 NA NA NA NA
6 1 2 NA NA NA NA
7 1 2 NA NA NA NA
8 1 2 NA NA NA NA
9 1 2 NA NA NA NA
10 1 2 NA NA NA NA
【讨论】：