从表排除如果=

Question

如果我使用的是table()我可以通过做排除元素：

b <- factor(rep(c("A","B","C"), 10)) 
table(b, exclude="B") 

现在，如果我要排除一切，但“B”？我试过 table(b, exlcude=!"B")但它没有奏效。 table()函数是否允许此功能？

Answer 1

您需要首先收集具有“B”级别的特定因子变量中的所有可能级别。可能有更简单的方法来做到这一点，但假设其所需的排斥发生的因素是“FAC1”，那么也许是这样的：

with(datafrm, table(fac1, fac2, fac3, exclude=setdiff(levels(fac1), "B"))) 

，我可能会做它不那么“双负”与subset：

with(subset(datafrm, fac1 == "B"), table(fac1, fac2, fac3)) 

Answer 2

您可以使用setdiff：

table(iris$Species,exclude=setdiff(iris$Species,"virginica"))  
virginica 
     50 

当然，你可能也只是子集的表对象：

table(iris$Species)["virginica"] 
virginica 
     50 

Answer 3

就这么简单

table(b)['B'] 

但对于数一个值的出现次数，就没有必要使用表。更简单的是：

sum(b=='B')