我有一个包含大量数据的小标题,但最重要的是,我有一列按数字引用查找表中的行(例如 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))
我需要根据查找表中引用行中的信息对原始小标题中的每一行进行计算。
df$result <- df$data - lkup$intercept[lkup$CurveID == df$ref]/lkup$slope[lkup$CurveID == df$ref]
这个想法是根据数据表中的数字从查找表的正确行访问斜率或截距(等)值,并对列中的每个数据点执行此操作。但我不断收到错误消息,告诉我我的数据不兼容,并且我的对象需要具有相同的长度。
最佳答案
您也可以使用 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
关于r - R 中的查找表,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/66163698/