使用带有索引的矩阵从数据框中选择多个值

Question

我有一个 for 循环，它使用which、which.min 和which.max 从一个数据帧返回值，给我“坐标”。这里的 Coord 示例

df <- as.data.frame(matrix(rnorm(11284), nrow=403, ncol=28))
row <- matrix(data=c(1:403),nrow=403, ncol=1)
col <- matrix(rnorm(403,14,3), nrow=403, ncol=1)
col <- round(col, 0)
coord <- cbind(row, col)

保存了我之前定义的标准的坐标。我现在想根据 df 中的坐标使用 for 循环提取相应的值，

for (i in 1:nrow(coord)) {
print(df[coord[i,1], coord[i,2]])
}

当我使用

output <- df[coord[i,1], coord[i,2]])

它时，它只给出循环的最后一个表达式。现在我的简单问题是：如何不仅存储此循环中的最后一个表达式，还存储 print 给我的整个向量？

Answer 1

你很惊讶吗？您仅在输出中存储每个循环的该循环的一个值。因此，在最后一个循环之后，它只是最后一个值。正确的循环解决方案是：

output <- vector(length=nrow(coord))
for (i in 1:nrow(coord)){
    output[i] <- df[coord[i,1],coord[i,2]]
}

但您不必使用循环。假设您有数据框或矩阵中的坐标，无论如何这都可以简单得多：

output <- Df[coord]

不需要循环。

Answer 2

这听起来有点像OP之前使用SAS，在R中变量没有历史记录。人们尝试进行基于向量的计算，并使用 apply 将函数应用于向量或矩阵中的每个条目，而不是在 R 中逐行运算。在更多条件情况下，您可以使用 for 循环并将返回值存储为其中的条目，然后一次返回或打印它们：

my <- function() {
    outputs <- rep(0,20)
    for(i in 1:20) {
        outputs[i] <- i*i
    }
return(outputs)
}