r - 在不同字段的指定行之间查找不同的最大值

Question

我希望根据每列的指定行来查找不同列的最大值。

我的实际数据框是 50K 列和 1K+ 行，所以我不能在不大大增加运行时间的情况下使用循环。

数据框:

<头>

行	V1	V2	V3	V4
1	5	2	4	5
2	3	5	1	6
3	7	3	2	6
4	2	5	3	10
5	6	9	1	2

beg_row <- c(2, 1, 2, 3)
end_row <- c(4, 3, 3, 5)

输出:

c(7, 5, 2, 10)

Answer 1

你可以试试 mapply (但我怀疑如果你有大量的列，它不会加快运行时)

> mapply(function(x, y, z) max(x[y:z]), df[-1], beg_row, end_row)
V1 V2 V3 V4
 7  5  2 10

数据

df <- structure(list(row = 1:5, V1 = c(5L, 3L, 7L, 2L, 6L), V2 = c(
  2L,
  5L, 3L, 5L, 9L
), V3 = c(4L, 1L, 2L, 3L, 1L), V4 = c(
  5L, 6L, 6L,
  10L, 2L
)), class = "data.frame", row.names = c(NA, -5L))

beg_row <- c(2, 1, 2, 3)

end_row <- c(4, 3, 3, 5)