r - R中的查找表

Question

我有一个包含大量数据的小标题，但最重要的是，我有一列按数字（例如 1、2、3 等）引用查找表中的一行。

df <- tibble(ref = c(1,1,1,2,5)
             data = c(33,34,35,35,32))

lkup <- tibble(CurveID <- c(1,2,3,4,5)
               Slope <- c(-3.8,-3.5,-3.1,-3.3,-3.3)
               Intercept <- c(40,38,40,38,36)
               Min <- c(25,25,21,21,18)
               Max <- c(36,36,38,37,32))

我需要根据查找表中引用行中的信息对原始 tibble 中的每一行进行计算

df$result <- df$data - lkup$intercept[lkup$CurveID == df$ref]/lkup$slope[lkup$CurveID == df$ref]

想法是根据数据表中的数字从查找表的正确行访问斜率或截距等值，并对列中的每个数据点执行此操作。但我不断收到错误消息，告诉我我的数据不兼容，并且我的对象需要具有相同的长度。

标签： rtibblelookup-tables

Answer 1

你也可以这样做match()

df$result <- df$data - lkup$Intercept[match(df$ref, lkup$CurveID)]/lkup$Slope[match(df$ref, lkup$CurveID)]
df$result
# [1] 43.52632 44.52632 45.52632 45.85714 42.90909