R中xtabs()表中的数学操作

Question

如何将一个表中的两个因素级别相加？举个例子，我想把云杉色+处女膜相加.

t1 <- xtabs(~Species, iris)

> t1
# Species
#    setosa versicolor  virginica 
#        50         50         50 

然后去掉云杉色和处女色，留下新的层次"sumV“和它的价值。

Answer 1

t1 <- xtabs(~Species, iris)

#Species
#    setosa versicolor  virginica 
#        50         50         50 

然后将您想要的值和起来，并将它们分配到一个新的级别：

t1["sumV"]  = t1["versicolor"] + t1["virginica"]

#    setosa versicolor  virginica       sumV
#        50         50         50        100 

最后，删除不想保留的值：

t1[-c(2,3)]

#setosa   sumV 
#    50    100 

Answer 2

我们可以通过将'versicolor‘和'virginica’更改为一个新的值'sumV‘，然后执行xtabs来获取数据集。

xtabs(~Species,transform(iris, Species= c('setosa', 
           'sumV')[(Species %in% c('versicolor', 'virginica'))+1L]))
#Species
#setosa   sumV 
#    50    100 

或者像@Ananda建议的那样，我们可以在grep中使用grep

xtabs(~ Species, transform(iris, Species = 
  replace(as.character(Species), grepl("^v", Species), "sumV")))