没有条目时计算条目数

Question

我有一个表，可以跟踪数据收集过程中发生的错误。如果没有错误，Error列中的条目为“无”。我正在尝试计算Error != 'None'数据框中的条目数 这可行：

ErrorCount<-subset(df, Error != 'None')
ErrorCount <- ErrorCount$Error
ErrorCount <- as.data.frame(table(ErrorCount))
ErrorCount <- sum(ErrorCount[,2])

除非根本没有错误。它无法统计空表。有什么建议如何在没有Error != 'None'的结果时返回0？

Answer 1

使用常规子集。我创建了一个创建随机表的函数：

set.seed(313)

make_error_table <- function(prob){

data.frame(Data = rnorm(10),
           Error = sample(c("Error", "None"), replace = TRUE, prob = prob))
} 

tab1 <- make_error_table(c(0.5, 0.5))
tab2 <- make_error_table(c(1, 0))

sum(tab1$Error == "None")
[1] 5
sum(tab2$Error == "None")
[1] 0