3

我对 R 动态创建列表的方式感到恼火，我希望有人能帮助我了解正在发生的事情以及如何修复我的代码。我的问题是，对于长度为 1 的向量的分配，分配了一个命名向量，但分配了长度大于 1 的向量，则分配了一个列表。我想要的结果是，无论我分配的向量的长度如何，都会分配一个列表。我怎样才能达到这样的结果？

例如，

types <- c("a", "b")
lst <- vector("list", length(types))
names(lst) <- types
str(lst)
List of 2
 $ a: NULL
 $ b: NULL
lst$a[["foo"]] <- "hi"
lst$b[["foo"]] <- c("hi", "SO")
str(lst)
List of 2
 $ a: Named chr "hi"
  ..- attr(*, "names")= chr "foo"
 $ b:List of 1
  ..$ foo: chr [1:2] "hi" "SO"
str(lst$a)
 Named chr "hi"
 - attr(*, "names")= chr "foo"
str(lst$b)
List of 1
 $ foo: chr [1:2] "hi" "SO"

我想要的结果是一个看起来像这样的数据结构。

List of 2
 $ a:List of 1
  ..$ foo: chr [1] "hi"
 $ b:List of 1
  ..$ foo: chr [1:2] "hi" "SO"
4

2 回答 2

3
于 2012-11-03T16:22:32.477 回答
2

我认为您只需要创建所需的类型并分配它们：

R> qq <- list( a=list(foo="Hi"),  b=list(foo=c("Hi", "SO")))
R> qq
$a
$a$foo
[1] "Hi"


$b
$b$foo
[1] "Hi" "SO"


R>

满足您的所有要求的地方：

R> class(qq)
[1] "list"
R> names(qq)
[1] "a" "b"
R> sapply(qq, names)
    a     b 
"foo" "foo" 
R>
于 2012-11-03T15:42:43.193 回答