list - 通过函数参数访问 R 列表元素

Question

我有一个如下所示的 R 列表

> str(prices)
List of 4
 $ ID   : int 102894616
 $ delay: int 8
 $ 47973      :List of 12
  ..$ id       : int 47973
  ..$ index        : int 2
  ..$ matched: num 5817
 $ 47972      :List of 12
..

显然，我可以通过例如访问任何元素价格$“47973”$id。

但是，我将如何编写一个函数来参数化对该列表的访问？例如带有签名的访问函数:

access <- function(index1, index2) { .. }

可以按如下方式使用:

> access("47973", "matched")
5817

这看起来很微不足道，但我没能写出这样的函数。感谢您的指点。

Answer 1

使用 '[['而不是 '$'似乎有效:

prices <- list(
    `47973` = list( id = 1, matched = 2))

access <- function(index1, index2) prices[[index1]][[index2]]
access("47973","matched")

---

至于为什么这行得通而不是: access <- function(index1, index2) prices$index1$index2 (我假设这是你尝试过的？)这是因为这里 index1和 index2不予评价。也就是说，它在列表中搜索名为 index1 的元素。而不是此对象的计算结果。