Question

我正在尝试向动物园对象添加一列。我发现合并效果很好

test = zoo(data.frame('x' = c(1,2,3)))
test = merge(test, 'x1' = 0)

但是，当我尝试动态命名列时，它不再有效

test = merge(test, paste0('x',1) = 0)
Error: unexpected '=' in "merge(test,paste0('x',1) ="

我一直在处理数据框架和相同的语法工作

test = data.frame('x' = c(1,2,3))
test[paste0('x',1)] = 0

有人可以帮助解释问题是什么以及如何解决这个问题？

Answer 1

尝试setNames：

setNames( merge(test, 0), c(names(test), paste0("x", 1)) )

像这样的

或names<-.zoo：

test2 <- merge(test, 0)
names(test2) <- c(names(test), paste0("x", 1))

Answer 2

我发现这个解决方案非常简单和优雅。它使用eval()函数将字符串解释为R命令。因此，您完全可以按照自己的方式自由组装字符串：

test = merge(test, paste0("x",1) = 0)
# does not work (see question)

test[,"x1"] <- 0
# does not work for uninitialized columns

test$x1 <- 0
# works to initialize a new column

# so lets trick R by assembling this command out of strings:
newcolumn <- "x1"
eval(parse(text=paste0("test$",newcolumn," <- 0")))
# welcome test$x1 :-)

Answer 3

Merge期望一个字符串作为变量名，它不理解作为函数返回值的变量名。为什么不

test = zoo(data.frame('x' = c(1,2,3)))
var <- paste0('x',1)
test = merge(test, var = 0)

zoo使用动态列名创建新列

3 个答案: