r - 将数据框转换为方形数据框

Question

假设我有以下 df:

library (tidyverse)
    df <- tribble(
      ~ID, ~V1, ~V2,~V3,
      '1',   NA,1, NA,
      '2',   1,1,NA,
      '3',   1,NA,NA,
      '4',   NA,NA,1,
      '5', 1,1,1,
      '6',NA,NA,1,
      '7',1,NA,1
    )

现在，当 V1=1 时，我想分别对 V2 和 V3 的值求和，并相应地对其他变量求和。我想获得以下 df-

   df2 <- tribble(
      ~Var,~V1,~V2,~V3,
      'V1',0,2,1,
      'V2',2,0,1,
      'V3',1,1,0
    )

Answer 1

使用 do.call 和 mapply 的选项如下:

do.call(rbind, mapply(function(x){
  v <- colSums(df[!is.na(df[,x]) & df[,x]==1,-1], na.rm = TRUE)
  v[x-1] <- 0
  v
}, 2:4, SIMPLIFY = FALSE))

#      V1 V2 V3
# [1,]  0  2  2
# [2,]  2  0  1
# [3,]  2  1  0

注意:(1,3) 和(3,1) 的预期输出与问题中提到的值不匹配。也许 OP 需要非常重视这两个值。