[]提取列表，[[]]提取列表中的元素

alist <- list(c("a", "b", "c"), c(1,2,3,4), c(8e6, 5.2e9, -9.3e7))

str(alist[[1]])
 chr [1:3] "a" "b" "c"

str(alist[1])
List of 1
 $ : chr [1:3] "a" "b" "c"

str(alist[[1]][1])
 chr "a"

R语言定义对于回答这些类型的问题很方便:

http://cran.r-project.org/doc/manuals/R-lang.html#Indexing

R has three basic indexing operators, with syntax displayed by the following examples x[i] x[i, j] x[[i]] x[[i, j]] x$a x$"a" For vectors and matrices the [[ forms are rarely used, although they have some slight semantic differences from the [ form (e.g. it drops any names or dimnames attribute, and that partial matching is used for character indices). When indexing multi-dimensional structures with a single index, x[[i]] or x[i] will return the ith sequential element of x. For lists, one generally uses [[ to select any single element, whereas [ returns a list of the selected elements. The [[ form allows only a single element to be selected using integer or character indices, whereas [ allows indexing by vectors. Note though that for a list, the index can be a vector and each element of the vector is applied in turn to the list, the selected component, the selected component of that component, and so on. The result is still a single element.

请参考以下详细说明。

我使用了R中的内置数据框架，称为mtcars。

> mtcars 
               mpg cyl disp  hp drat   wt ... 
Mazda RX4     21.0   6  160 110 3.90 2.62 ... 
Mazda RX4 Wag 21.0   6  160 110 3.90 2.88 ... 
Datsun 710    22.8   4  108  93 3.85 2.32 ... 
           ............

表的顶部行称为标题，其中包含列名。之后的每条水平线表示一个数据行，它以行名开始，然后跟着实际数据。 一行中的每个数据成员称为一个单元格。

单个方括号“[]”运算符

要检索单元格中的数据，可以在单个方括号“[]”操作符中输入它的行坐标和列坐标。这两个坐标用逗号分隔。换句话说，坐标以行位置开始，然后以逗号结尾，以列位置结束。顺序很重要。

例1:-这是mtcars的第一行第二列的单元格值。

> mtcars[1, 2] 
[1] 6

例2:-此外，我们可以使用行名和列名来代替数字坐标。

> mtcars["Mazda RX4", "cyl"] 
[1] 6 

双方括号“[[]]”操作符

我们用双方括号“[[]]”操作符引用数据帧列。

例1:-为了检索内置数据集mtcars的第九列向量，我们编写mtcars[[9]]。

山地车[[9]] [1] 1 1 1 0 0 0 0 0 0 0 0 ...

例2:-我们可以通过名称检索相同的列向量。

MTCARS[[“AM”]] [1] 1 1 1 0 0 0 0 0 0 0 0 ...

为了帮助新手在手动迷雾中导航，看看[[…]]]符号作为一个折叠函数-换句话说，当你只是想从一个命名向量，列表或数据帧中“获取数据”时。如果您想使用来自这些对象的数据进行计算，那么这样做是很好的。这些简单的例子将说明。

(x <- c(x=1, y=2)); x[1]; x[[1]]
(x <- list(x=1, y=2, z=3)); x[1]; x[[1]]
(x <- data.frame(x=1, y=2, z=3)); x[1]; x[[1]]

从第三个例子来看

> 2 * x[1]
  x
1 2
> 2 * x[[1]]
[1] 2

只是在这里添加[[也用于递归索引。

@JijoMatthew在回答中暗示了这一点，但没有深入探讨。

正如在?"[["中所指出的，像x[[y]]这样的语法，其中长度(y) > 1被解释为:

x[[ y[1] ]][[ y[2] ]][[ y[3] ]] ... [[ y[length(y)] ]]

注意，这并没有改变关于[和[[]之间的主要区别，即前者用于子集设置，后者用于提取单个列表元素。

例如,

x <- list(list(list(1), 2), list(list(list(3), 4), 5), 6)
x
# [[1]]
# [[1]][[1]]
# [[1]][[1]][[1]]
# [1] 1
#
# [[1]][[2]]
# [1] 2
#
# [[2]]
# [[2]][[1]]
# [[2]][[1]][[1]]
# [[2]][[1]][[1]][[1]]
# [1] 3
#
# [[2]][[1]][[2]]
# [1] 4
#
# [[2]][[2]]
# [1] 5
#
# [[3]]
# [1] 6

要得到值3，我们可以这样做:

x[[c(2, 1, 1, 1)]]
# [1] 3

回到上面@JijoMatthew的答案，回想一下r:

r <- list(1:10, foo=1, far=2)

特别是，这解释了我们在误用[[时往往会得到的错误，即:

r[[1:3]]

r[[1:3]]中的错误:递归索引在级别2失败

由于这段代码实际上试图求值r[[1]][[2]][[3]]，并且r的嵌套在第一级停止，因此通过递归索引提取的尝试在[[2]]失败，即在第2级。

r[[c("foo"， "far")]]错误:下标越界

这里，R正在寻找R [["foo"]][["far"]]，而R并不存在，所以我们得到了下标越界错误。

如果这两个错误给出相同的信息，可能会更有帮助/一致一些。

双括号访问列表元素，而单括号返回一个包含单个元素的列表。

lst <- list('one','two','three')

a <- lst[1]
class(a)
## returns "list"

a <- lst[[1]]
class(a)
## returns "character"