每种强度下N次试验的正确百分比（单位：R）

我很难找到V3中每个不同数字的正确百分比。V4显示答案是否正确。V2是区块编号

V2 V3 V4 

1  4  1      
1 10  1  
1  4  0  
1  4  1  
1 10  0  
2  8  1
2  8  0

---

谢谢你的帮助。我是R的新手，在谷歌上搜索这个问题已经好几个小时了

调用数据帧

DF

：

tapply(DF$V4 * 100, DF$V3, mean)

---

将为调用数据帧的

V3

中的每个唯一数字提供正确的百分比

DF

：

tapply(DF$V4 * 100, DF$V3, mean)

---

将使用data.table为您提供

V3

中每个唯一数字的正确百分比

library(data.table)
mydt <- data.table(DF, key="V2")
mydt[, mean(V4), by=V3]

---

如果您想从美学角度清理它：

# you can format it nicely using round
mydt[, round(100*mean(V4),2), by=V3]

#      V3    V1
#   1:  4 66.67
#   2: 10 50.00
#   3:  8 50.00


# you can give the new column a name (wrap it all in a list)
mydt[, list("Percent" = round(100*mean(V4),2)), by=V3]

#     V3   Percent
#   1:  4    66.67
#   2: 10    50.00
#   3:  8    50.00

---

在这里使用data.table可能会有所帮助

library(data.table)
mydt <- data.table(DF, key="V2")
mydt[, mean(V4), by=V3]

---

如果您想从美学角度清理它：

# you can format it nicely using round
mydt[, round(100*mean(V4),2), by=V3]

#      V3    V1
#   1:  4 66.67
#   2: 10 50.00
#   3:  8 50.00


# you can give the new column a name (wrap it all in a list)
mydt[, list("Percent" = round(100*mean(V4),2)), by=V3]

#     V3   Percent
#   1:  4    66.67
#   2: 10    50.00
#   3:  8    50.00

---

给我们一个你希望结果是什么的例子。另外，当你给我们示例数据（这很好）时，使用

dput（df）

其中

df

是你的

数据。frame

，这样我们就可以剪切并粘贴到浏览器中。在这个示例中，4的正确率为66.66%，10的正确率为50%，8的正确率为50%——我如何让R为我生成这些数字？另外，谢谢你的建议。下次我会记得的。所以在这种情况下，下面的答案是有效的。似乎根本不需要

V2

。请给我们一个示例，说明您希望得到的结果。另外，当你给我们示例数据（这很好）时，使用

dput（df）

其中

df

是你的

数据。frame

，这样我们就可以剪切并粘贴到浏览器中。在这个示例中，4的正确率为66.66%，10的正确率为50%，8的正确率为50%——我如何让R为我生成这些数字？另外，谢谢你的建议。下次我会记得的。所以在这种情况下，下面的答案是有效的。似乎根本不需要

V2

。