我的功能有什么问题?使用匹配ID计算百分比

尝试添加 browser() 之前的声明 print(x1) 并运行 CalcPerc(x= df2, ins = df1) 。 你会看到的 y 是

       State Score id x$Score
1 Arizona AZ    62  1      10
2 Georgia GG    47  2       7
3 Newyork NY    55  3       5
4 Indiana IN    74  4       4

这就是为什么提到 y$Score 给出一个空向量——不存在这样的列。 我 犯罪嫌疑人 你真正想要的是 合并 两个数据帧。 带基数R:

CalcPerc <- function(x, ins) {
    
    # 1) Subset + cbind
    y  <- subset(ins, id %in% x$id)
    
    z <- merge(x, y, by = c('State', 'id'))
    
    x1 <- 100*(z$Score2/z$Score)
    
    print(x1)
}

尝试以下操作:

CalcPerc <- function(x, ins) {
      # 1) Subset + cbind
      y  <- subset(ins, id %in% x$id)
      y$Score2 = x$Score2
      x1 <- 100*(y$Score2/y$Score)
      print(x1)
   }
   > CalcPerc(x= df2, ins = df1)
   [1] 16.129032 14.893617  9.090909  5.405405

答案将按正确的顺序排列

@robertdj和@Necklondon修复了您的错误。如果你想 dplyr 选项您可以根据id和状态加入数据,并且 mutate 计算百分比的列,以便您立即看到百分比在数据帧中对应的状态:

library(dplyr)
df1 %>%
  left_join(df2, by = c("id", "State")) %>%
  mutate(Perc = 100*(Score2/Score))

输出:

       State Score id Score2      Perc
1 Arizona AZ    62  1     10 16.129032
2 Georgia GG    47  2      7 14.893617
3 Newyork NY    55  3      5  9.090909
4 Indiana IN    74  4      4  5.405405
5 Florida FL    31  5     NA        NA