计算数据帧行

如何解决计算数据帧行

我有一个包含 144 列（试验编号）的数据框（命名为 df），其中包含有关每个参与者（行）的试验成功（是/否）的信息。一个子集看起来像这样：

V1      V2      V3      V4      V5  
Yes     No      Yes     Yes     No
Yes     No      No      No      No
Yes     Yes     Yes     Yes     No

我想计算每个参与者在 144 次试验中出现 Yes 和 No 结果的次数。但是，我还想对特定的试验编号进行子集化（取 V1、V4、V5、V110、V112 等）并相应地计算结果。如果我将代码编写为：

Yes <- rowSums(df == "Yes") # Count the "No" per row
cbind(Yes,No = ncol(df) - Yes) # Subscribe these from the columns numbers and combine
#       Yes   No
# [1,]    3    2
# [2,]    1    4
# [3,]    4    1

这给了我每个参与者是和否的计数，但在所有试验中。我如何指定某些列（试验）和每个参与者的计数？

解决方法

您可以在比较时使用 [ 子集 df。此处选择了第 1、4 和 5 列。

rowSums(df[,c(1,4,5)] == "Yes") #For column 1,4 and 5
#[1] 2 1 2

要计算 Yes 的百分比（在评论中询问），可以使用 rowMeans：

100 * rowMeans(df == "Yes")
#[1] 60 20 80