在表函数中嵌入子集

Question

与Stata和其他统计软件包不同的是，对R中的数据子集进行交叉列表并不是一件非常直接的事情。让我们假设以下场景:假设我想通过烟草(1 -当前，2-Ex，3-从不)将性别(M，F)列出来，但不包括从未吸烟的类别。在斯塔塔，一个简单的如果烟草！=3就够了。然而，在R中，我们需要在列表之前对数据进行子集：

{r}
#subsetting the data
retinol1<-subset(retinol, tabac!=3)
table(retinol1$Sex, retinol1$tabac)

是否有一种方法可以直接在1步内对数据进行子集？

谢谢

Answer 1

xtabs()有一个子集参数，所以有一个选项是使用它而不是table()。

xtabs(~ Sex + tabac, retinol, subset = tabac != 3)