R语言置换函数的定义

R中可以自定义置换函数。 所谓的置换函数，就是左边不是变量名的赋值语句。例如：

names(x) <- c(‘a’, ‘b’)

这个语句设置了x的元素名称，它就是一个置换函数，因为左边不是变量名。从下面的例子就可以看出来发生了什么：

x <- list(1:10, 2:11)
names(x) <- c('a', 'b')
y <- list(1:10, 2:11)
y <- 'names<-'(x = x, value = c('a', 'b'))
x
y

结果：

x
## $a
##  [1]  1  2  3  4  5  6  7  8  9 10
## 
## $b
##  [1]  2  3  4  5  6  7  8  9 10 11

y
## $a
##  [1]  1  2  3  4  5  6  7  8  9 10
## 
## $b
##  [1]  2  3  4  5  6  7  8  9 10 11

从上面可以看出，names(x) <- value这个句子实际上调用的函数是’names<-‘(x, value)，这个函数会返回更新名称后的对象。

下面的例子说明如何自己定义置换函数：

obj <- list(x = 1:10, y = 1 : 10)
class(obj) <- 'test'

'xvar<-' <- function (x, value) {
  x$x <- value
  return(x)
}

xvar(obj) <- 11 : 20
print(obj)

结果：

## $x
##  [1] 11 12 13 14 15 16 17 18 19 20
## 
## $y
##  [1]  1  2  3  4  5  6  7  8  9 10
## 
## attr(,"class")
## [1] "test"

下面的例子与上面的例子类似，但是定义了S3类的方法：

obj <- list(x = 1:10, y = 1 : 10)
class(obj) <- 'test'

'xvar<-' <- function (x, ...) {
  UseMethod('xvar<-')
}

'xvar<-.test' <- function (x, value) {
  x$x <- value
  return(x)
}

xvar(obj) <- 11 : 20
print(obj)

结果：

## $x
##  [1] 11 12 13 14 15 16 17 18 19 20
## 
## $y
##  [1]  1  2  3  4  5  6  7  8  9 10
## 
## attr(,"class")
## [1] "test"