Question

在编程语言R中，恰恰是

的含义

'['

在下面的代码部分中作为sapply（）和lapply（）的参数：

dd <- data.frame(
    A = c(1L, 2L, 3L), 
    B = c(4L, 5L, 6L), 
    C = c("X1=7;X2=8;X3=9",
          "X1=13;X2=14",
          "X1=5;X2=1;X3=8")
)
namev <- function(x) {
    a <- strsplit(x,"=")
    setNames(sapply(a,'[',2), sapply(a,'[',1))
}

vv <- lapply(strsplit(as.character(dd$C),";"), namev)

nm <- unique(unlist(sapply(vv, names)))

#extract data from all rows for every column
nv <- do.call(rbind, lapply(vv, '[', nm))

DD $ C   [1] X1 = 7; X2 = 8; X3 = 9 X1 ;; X1 = 13; X 2 = 14
  级别：X1 ;; X1 = 13; X2 = 14 X1 = 7; X2 = 8; X3 = 9

@Henrik两个答案的答案是一样的，但问题是不同的。这个被标记为重复的问题（Using '[' square bracket as a function for lapply in R）预先知道[这是一个对我们R新手来说不明显的功能。

Answer 1

[是一个功能。在下面的示例中，它使用两个参数。

L <- list(a = 1:4, b = 1:3)

sapply(L, `[`, 2)
## a b 
## 2 2

上述sapply与以下任何一项相同：

sapply(L, function(x) `[`(x, 2))

sapply(L, function(x) x[2])

它是R中的一个原始函数，其R源代码如下，即它支持底层的C代码。

`[`
## .Primitive("[")

可以为它编写S3方法。例如，这些方法可在vanilla R。

中获得

> methods("[")
 [1] [,nonStructure-method [.acf*                [.AsIs               
 [4] [.bibentry*           [.data.frame          [.Date               
 [7] [.difftime            [.Dlist               [.factor             
[10] [.formula*            [.getAnywhere*        [.hexmode            
[13] [.listof              [.noquote             [.numeric_version    
[16] [.octmode             [.pdf_doc*            [.person*            
[19] [.POSIXct             [.POSIXlt             [.raster*            
[22] [.roman*              [.SavedPlots*         [.simple.list        
[25] [.table               [.terms*              [.ts*                
[28] [.tskernel*           [.warnings           
see '?methods' for accessing help and source code

例如，尝试以下操作以查看这些方法的R源代码：

`[.data.frame`

`[.Date`

Answer 2

[是一个功能。

iris[1,2]相当于'['(iris,1,2)。

需要引用它以这种方式使用，因为它不是语法上有效的名称（请参阅?make.names）。

你可以引用任何功能：

'head'(iris)

  Sepal.Length Sepal.Width Petal.Length Petal.Width Species
1          5.1         3.5          1.4         0.2  setosa
2          4.9         3.0          1.4         0.2  setosa
3          4.7         3.2          1.3         0.2  setosa
4          4.6         3.1          1.5         0.2  setosa
5          5.0         3.6          1.4         0.2  setosa
6          5.4         3.9          1.7         0.4  setosa

仅供参考magrittr软件包包含与函数extract和extract2相同的[和[[函数，但某些函数可能更具可读性（和没有引号就可以使用它们。

[<-和[[<-也是功能，在分配给vector / matrix / data.frame / {{1}的元素时使用并在list

中添加了inset和inset2个别名

Answer 3

它指的是使用两个括号执行的索引操作背后的函数：x[3]例如实际上只是一个函数调用"["(x, 3)。

Answer 4

很确定这是重复的。无论哪种方式，它都充当子集功能。即：

a <- list(c(2,5),c(24,4),c(15,3))
lapply(a,'[',2)

将返回包含5，4和3的列表。

作为应用函数的参数传递的引用方括号的确切含义是什么？

4 个答案: