R/R赋值符小结

->和<-、->>和<<-的区别

->和<-、->>和<<-的区别是赋值方向，->、->>从左向右赋值，<-、<<-、=从右向左赋值
->、<-和->>、<<-的区别在于作用域范围，->>、<<-是全局作用域，而->、<-是声明局部（函数内部）作用域，下面举个例子

# 声明一个函数
new_counter <- function() {
# 初始化两个变量值为0
  i <- 0
  j <- 0
function() {
# 分别使用<-和<<-进行自加运算
  i <<- i + 1
  j <- j + 1
# 打印两个变量
  print(i)
  print(j)
  }
}

通过该函数来探索<-和<<-的区别

# 声明一个函数对象
> counter <- new_counter()
# 第一次执行，结果都为1
> counter()
[1] 1
[1] 1
# <<-赋值的变量值为2，<-赋值的变量值仍为1
> counter()
[1] 2
[1] 1
> counter()
[1] 3
[1] 1
> counter()
[1] 4
[1] 1
......

<-和=的区别

在命令行赋值时没有太大区别

> x <- cbind(a = 1:3, pi = pi)
> x
     a       pi
[1,] 1 3.141593
[2,] 2 3.141593
[3,] 3 3.141593
> x[1,1]<- 2
> x[2,1]=3
> x
     a       pi
[1,] 2 3.141593
[2,] 3 3.141593
[3,] 3 3.141593

<-创建的变量的作用域是全局，而=仅仅在一个局部环境。第一个例子：

> rm(x)
> mean(x=1:10)
[1] 5.5
> x
Error: object 'x' not found
> mean(x <- 1:10)
[1] 5.5
> x
 [1]  1  2  3  4  5  6  7  8  9 10

第二个例子：

# 删除当前环境下的nrow对象
> rm(nrow)
# 使用<-赋值声明一个矩阵
> matrix(1,nrow<-2)
     [,1]
[1,]    1
[2,]    1
# 查看当前的nrow值
> nrow
[1] 2
# 删除当前环境下的nrow对象
> rm(nrow)
# 使用=赋值声明一个矩阵
> matrix(1,nrow=2)
     [,1]
[1,]    1
[2,]    1
# 此时nrow没有被赋值，显示的是R语言自带的nrow函数
> nrow
standardGeneric for "nrow" defined from package "base"

function (x) 
standardGeneric("nrow")
<environment: 0x7fa98c7dc2a8>
Methods may be defined for arguments: x
Use  showMethods("nrow")  for currently available ones.

第三个例子：

> l <- list(x<-9, y=10)
> x
[1] 9
> y
Error: object 'y' not found
# 可以通过$富豪引用局部变量
> l$y
[1] 10

当在函数中，将实参通过<-传递给形参时，会在当前环境中创建一个以形参为名的变量，前提是该形式参数在函数体内部被调用。

# 将a赋值为1
> a <- 1
# 生成一个函数，设置该函数的形式参数名为a，
# 注意函数体内未调用形参啊
> f <- function(a) return(TRUE)
# 将a+1作为实际参数赋值给形式参数a
> f <- f(a <- a + 1); 
# a <- a + 1没有被执行，a的值并没有变化
> a
[1] 1
> f
[1] TRUE

#  声明一个函数，注意函数体内调用形式参数a
> f <- function(a) return(a)
# 将a+1作为实际参数赋值给形式参数a
> f <- f(a <- a + 1); 
# a <- a + 1被执行，a值改变
> a
[1] 2

总结

多数使用<-，但当给函数参数传值、通过函数创建不同对象及对行/列/属性命名的时候用=
使用list函数创建列表后，在函数参数传递时使用=赋值，可以使用生成的list对象$形参名查看
如果在函数传值使用->，可能会覆盖与当前环境中与行参同名的变量，还会造成当前环境变量的混乱
<<-和>>-一般用不到

->和<-、->>和<<-的区别

<-和=的区别

总结

参考文献