我想将元素动态添加到一个空列表中。列表中的每个元素应在一组变量会自动命名,这些变量的值会有所不同。
但是,我似乎找不到一种在不出错的情况下即时命名列表元素的方法。考虑下面的示例:
L <- list()
var1 <- "wood"
var2 <- 1.0
var3 <- "z4"
varname <- paste(var1, as.character(var2), var3, sep="_")
# This works fine:
L$"wood_1_z4" <- c(0,1)
L$"wood_1_z4"
0 1
# This doesn't!!
L$paste(var1, as.character(var2), var3, sep="_") <- c(0,1)
Error in L$paste(var1, as.character(var2), var3, sep = "_") <- c(0, 1) :
invalid function in complex assignment
# Ths doesn't either ...
L$eval(parse(text = "varname")) <- c(0,1)
Error in L$eval(parse(text = "varname")) <- c(0, 1) :
target of assignment expands to non-language object
有没有办法做到这一点?
您不能指定paste()
使用<-
运算符(我相信对于eval()
函数也是如此)。相反,您需要使用[[
运算符或names()
函数。您可以这样做:
L <- list()
var1 <- "wood"
var2 <- 1.0
var3 <- "z4"
varname <- paste(var1, as.character(var2), var3, sep="_")
# Using [[
L[[varname]] <- c(0,1)
> L
$wood_1_z4
[1] 0 1
# Using names()
L[[1]] <- c(0,1)
names(L)[1] <- varname
> L
$wood_1_z4
[1] 0 1
一种更有效的方法可能是使用一个既创建值又命名列表元素的函数,或者甚至一个仅创建值的函数-如果您随后使用该函数,则sapply
可以使用从调用到您的参数的名称来命名每个列表元素功能和USE.NAMES
选项。
一般而言,当列表的最终大小和结构不为人所知时,对于随时间增长的列表,R并没有得到很好的优化。虽然可以做到,但更“ R-ish”的方法是提前弄清楚结构。
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句