r - 子集 data.frame 并计算频率

Question

我想计算值 1 和 -1 在我的 data.frame 的每一行中出现的次数

df <-
         Chr     start       end        value.1 value.2  value.3
            1   68580000    68640000     0        1        1
            1   115900000   116260000   NA       -1        1
            1   173500000   173680000   -1       -1        1
            1   173500000   173680000    1        1       -1

expected output <-
      Chr     start       end      value.1 value.2  value.3    freq.1   freq.-1
        1   68580000    68640000     0        1        1          2        0
        1   115900000   116260000    0       -1        1          1        1
        1   173500000   173680000   -1       -1        1          1        2
        1   173500000   173680000    1        1       -1          2        1

Answer 1

一种可能是

df[c("freq.1", "freq.-1")] <- cbind(rowSums(df[4:6] == 1, na.rm = TRUE),
                                    rowSums(df[4:6] == -1, na.rm = TRUE))