r - 在 R 中使用矩阵作为向量的查找表

Question

我有专栏

sex <- c(1, 2, 1)
age <- c(12, 13, 14)

和一个查找表

bmi_adipos_limit_table = array(c(24.77, 24.91, 25.02, 24.65, 24.92, 25.18), dim = c(4,2))

并且想做

bmi_adipos_limits <- magicFunction(age, sex)

和

bmi_adipos = c(24.77, 24.92, 25.02)

我试过

bmi_adipos = bmi_adipos_limits[age-11, sex]

这不起作用（返回值是我所期望的bmi_adipos_limits[(age-11) X sex]）。那么有人可以给我一个提示，magicFunction我正在寻找什么？

Answer 1

您正在寻找mapply：

mysubsetter <- function(x, y) {
    bmi_adipos_limit_table[x-11, y]
} 

mapply(mysubsetter, age, ex)
# [1] 24.77 25.18 25.02