“apply”函数中的行/列计数器

我通常做的是跑步 sapply 关于行号 1:nrow(test) 而不是 test 及使用 test[i,] 函数内部:

t(sapply(1:nrow(test), function(i) test[i,]^(1/i)))

不过,我不确定这是否真的有效。

如果给函数命名而不是使其匿名,则可以更轻松地传递参数。我们可以使用 nrow 以获取行数并将行数向量作为参数传入,以及要以这种方式索引的帧。

为了清楚起见,我使用了一个不同的示例函数;对于2列矩阵,此示例将x列乘以y列:

test <- data.frame(x=c(26,21,20),y=c(34,29,28))
myfun <- function(position, df) {
    print(df[position,1] * df[position,2])
}

positions <- 1:nrow(test)
lapply(positions, myfun, test)

cbind() 行编号似乎是一种非常简单的方法。对于矩阵(或数据帧),应执行以下操作:

apply( cbind(1:(dim(test)[1]), test), 1, function(x) plot(x[-1], main=x[1]) )

或者你想策划什么。

实际上,在矩阵的情况下,你甚至不需要 apply . 公正:

test^(1/row(test))

做你想做的,我想。我认为 row() 功能是你要找的东西。

我有点困惑,所以请原谅,如果我弄错了,但你想算出矩阵中每一行数字的第n根,其中n=行号。如果是这种情况,那么很简单的做法是创建一个与原始数组具有相同维度的新数组,每个列的值与对应的行号相同:

test_row_order = array(seq(1:length(test[,1]), dim = dim(test))

然后简单地应用一个函数(在本例中是第n个根):

n_root = test^(1/test_row_order)