如何将函数应用于数组的索引？

Question

我想使用数组元素的索引将函数应用于数组。例如，如果我有一个数组 ar，我想计算ar[x,y] <- x + y。

使用嵌套for for循环很容易。我想使用apply函数来完成此任务。

ar <- array(data = 1, dim = c(2,2))
for(i in 1:2 ){
  for(j in 1:2){
    ar[i,j] <- i +j
  }
}
ar

Answer 1

如果它是二维数组或矩阵，你可以这样做：

row(ar) + col(ar)
#      [,1] [,2]
# [1,]    2    3
# [2,]    3    4

Answer 2

我们可以使用outer

outer(1:nrow(ar), 1:ncol(ar), FUN = `+`)
#     [,1] [,2]
#[1,]    2    3
#[2,]    3    4