在 LHS 上分配给空索引（空方括号 x[]<-）

Question

在查看最近发布在 SO 上的答案时，我注意到一个陌生的赋值语句。它使用了 myVar[]<- myValue 形式，而不是通常的 myVar<- myValue 形式，即左侧的对象用空方括号索引。就个人而言，我从未见过这样的赋值，但它具有非常有用的效果——它将赋值数据 'myValue' 重塑为 'myVar' 的形状。

我想在我的代码中使用它，因为这让事情变得容易多了。但是 "<-" 的文档似乎对此保持沉默。

这是一项完善的功能吗？在所有情况下都可以依靠它来工作吗？

此外，我猜测这可能是函数调用堆栈的副作用，即按顺序调用 <- 和 [，但我不知道如何调用。有人可以对此有所了解吗？

这是一个例子--

# A dataframe
df1 <- data.frame(a = 1:4, b = 11:14)

# simple assignment assigns to class of RHS
df1 <- c(21:24, 31:34)
df1 
#[1] 21 22 23 24 31 32 33 34
class(df1)
#[1] "integer"

#assignment with [] casts to class of LHS 
df1<- data.frame(a = 1:4, b = 11:14)
df1[]<- c(21:24,31:34)
df1

#    a  b
# 1 21 31
# 2 22 32
# 3 23 33
# 4 24 34


# recycling to preserve shape
df1[]<- c(101:102)
df1

#     a   b
# 1 101 101
# 2 102 102
# 3 101 101
# 4 102 102

class(df1)
#data.frame

# reshaping 

df1<- data.frame(a = 1:4, b = 11:14)
df1[] <- matrix(1:8, 2,4)
df1 #matrix reshaped 
class(df1)
#[1] "data.frame"

# flattening 
x<- 1:8
x[] <- matrix(1:8,4,2)
x
#[1] 1 2 3 4 5 6 7 8

Answer 1

这是一个有意且记录在案的功能。正如 joran 所提到的，文档页面 "Extract" 在 "Atomic Vectors" 部分中包含此内容：

An empty index selects all values: this is most often used to replace all the entries but keep the attributes.

但是，在递归对象的情况下（例如data.frames 或lists），仅保留子集对象的属性。它的零件没有得到这样的保护。

这是一个例子：

animals <- factor(c('cat', 'dog', 'fish'))
df_factor <- data.frame(x = animals)
rownames(df_factor) <- c('meow', 'bark', 'blub')
str(df_factor)
# 'data.frame': 3 obs. of  1 variable:
#   $ x: Factor w/ 3 levels "cat","dog","fish": 1 2 3

df_factor[] <- 'cat'
str(df_factor)
# 'data.frame': 3 obs. of  1 variable:
#   $ x: chr  "cat" "cat" "cat"
rownames(df_factor)
# [1] "meow" "bark" "blub"

df_factor 保留其 rownames 属性，但 x 列只是赋值中使用的字符向量而不是因子。我们可以通过专门替换其值来保留 class 和 x 的级别：

df_factor <- data.frame(x = animals)
df_factor$x[] <- 'cat'
str(df_factor)
# 'data.frame': 3 obs. of  1 variable:
#   $ x: Factor w/ 3 levels "cat","dog","fish": 1 1 1

所以用空子集替换对于向量、矩阵和数组来说是非常安全的，因为它们的元素不能有自己的属性。但是在处理类似列表的对象时需要小心。

在 LHS 上分配给空索引（空方括号 x[]<-）

Assignment to empty index (empty square brackets x[]<-) on LHS

syntax

casting

r

variable-assignment

reshape