R语言赋值

Question

我想知道赋值在 R 语言中是如何工作的。

考虑以下 R shell 会话：

> x <- c(5, 6, 7)
> x[1] <- 10
> x
[1] 10 6 7
>

我完全理解。向量 (5, 6, 7) 被创建并绑定到 符号“x”。稍后，'x' 被反弹到新的向量 (10, 6, 7) 因为向量 是不可变的数据结构。

但是这里发生了什么：

> c(4, 5, 6)[1] <- 10
Error in c(4, 5, 6)[1] <- 10 :
  target of assignment expands to non-language object
>

或这里：

> f <- function() c(4, 5, 6)
> f()[1] <- 10
Error in f()[1] <- 10 : invalid (NULL) left side of assignment
>

在我看来，只能为命名数据结构（如“x”）赋值。

我问的原因是因为我尝试实现R语言核心，我不确定 如何处理这样的任务。

提前致谢

Answer 1

您可以对匿名函数进行修改，但不能对匿名向量进行赋值。甚至 R 也会创建带有名称的临时副本，您有时会看到反映该事实的错误消息。您可以在第 21 页的 R language definition 中阅读此内容，其中处理“子集赋值”和其他形式的赋值表达式的评估：

x[3:5] <- 13:15 
# The result of this commands is as if the following had been executed 
`*tmp*` <- x 
x <- "[<-"(`*tmp*`, 3:5, value=13:15) 
rm(`*tmp*`) 

还有一个警告不要使用 *tmp* 作为对象名称，因为它会在下次调用 [<- 时被覆盖

Answer 2

在我看来，只能为命名数据结构（如“x”）赋值。

这正是?"<-" 的文档所说的：

说明：

 Assign a value to a name.

x[1] <- 10 不使用与x <- c(5, 6, 7) 相同的功能。前者调用[<-，而后者调用<-。

Answer 3

根据@Owen 对this question 的回答，x[1] <- 10 确实在做两件事。它正在调用[<- 函数，并将该调用的结果分配给x。

所以你想要达到你的c(4, 5, 6)[1] <- 10结果是：

> `[<-`(c(4, 5, 6),1, 10)
[1] 10  5  6