通过列应用于矩阵 - 以任何方式获取列名称？

Question

我正在呼叫apply(data, 2, function(x) {...})，其中data是一个矩阵。有没有办法让函数知道x中值的列名？或许还有另一个功能来完成同样的任务？

Answer 1

处理此问题的一种常见方法是循环遍历列名称：

m <- matrix(runif(16),4,4)
colnames(m) <- letters[1:4]
sapply(colnames(m),function(x){mean(m[,x])})
        a         b         c         d 
0.4720319 0.4992337 0.5026318 0.3514267

Answer 2

您可以在sapply上使用colnames(data)：

set.seed(21)
Data <- matrix(rnorm(10),5,2)
colnames(Data) <- c("one","two")
sapply(colnames(Data), function(x) sum(Data[,x]))
#       one       two 
#  3.987540 -2.010875 
colSums(Data)
#       one       two 
#  3.987540 -2.010875