Question

我想使用apply来遍历矩阵的行，我想在我的函数中使用当前行的rowname。您似乎无法在函数内直接使用rownames，colnames，dimnames或names。我知道我可以根据this question中的信息创建一个解决方法。

但我的问题是apply如何在第一个参数中处理数组的行名和列名，以及在由apply调用的函数内创建的对象的名称赋值？它看起来有点不一致，我希望通过以下示例来展示。它的设计是否有这样的原因？

# Toy data
m <- matrix( runif(9) , nrow = 3 )
rownames(m) <- LETTERS[1:3]
colnames(m) <- letters[1:3]
m
          a         b           c
A 0.5092062 0.3786139 0.120436569
B 0.7563015 0.7127949 0.003358308
C 0.8794197 0.3059068 0.985197273

# These return NULL
apply( m , 1 , FUN = function(x){ rownames(x) } )
NULL
apply( m , 1 , FUN = function(x){ colnames(x) } )
NULL
apply( m , 1 , FUN = function(x){ dimnames(x) } )
NULL

# But...
apply( m , 1 , FUN = function(x){ names(x) } )
     A   B   C  
[1,] "a" "a" "a"
[2,] "b" "b" "b"
[3,] "c" "c" "c"
# This looks like a column-wise matrix of colnames, with the rownames of m as the column names to me

# And further you can get...
n <- apply( m , 1 , FUN = function(x){ names(x) } )
dimnames(n)
[[1]]
NULL

[[2]]
[1] "A" "B" "C"

# But you can't do...
apply( m , 1 , FUN = function(x){ n <- names(x); dimnames(n) } )
NULL

我只想了解申请内部会发生什么？非常感谢。

Answer 1

我认为你的困惑源于apply没有将数组（或矩阵）传递给FUN中指定的函数。

依次传递矩阵的每一行。每行本身“仅”一个（命名）向量：

> m[1,]
         a          b          c 
0.48768161 0.61447934 0.08718875

因此，您的函数只能使用此命名向量。

对于您的中间示例，如apply中所述：

如果每次调用FUN都返回一个长度为n的向量，则apply返回如果n> 1，则为维数c（n，dim（X）[MARGIN]）的数组。 1.如果n等于1，如果MARGIN的长度为1且数组为，则apply返回向量维度暗（X）[MARGIN]否则。

因此function(x) names(x)为每行返回长度为3的向量，因此最终结果是您看到的矩阵。但是该矩阵是在apply函数的末尾构建的，FUN的结果是单独应用于每一行。

R：应用中的rownames，colnames，dimnames和names

1 个答案: