Кросс-таблица для подмножества в R

Question

У меня есть следующий фрейм данных (упрощенно):

IPET Task Type
1      1    1
1      2    2
1      3    1
2      1    1
2      1    2

Как создать перекрестную таблицу (используя функцию перекрестной таблицы в gmodels, потому что мне нужно выполнить тест хи-квадрат), но только если Type равен 1.

Answer 1

Вы, вероятно, хотите этого.

library(gmodels)
with(df.1[df.1$Type==1, ], CrossTable(IPET, Task))

Уступая

   Cell Contents
|-------------------------|
|                       N |
| Chi-square contribution |
|           N / Row Total |
|           N / Col Total |
|         N / Table Total |
|-------------------------|


Total Observations in Table:  3 


             | Task 
        IPET |         1 |         3 | Row Total | 
-------------|-----------|-----------|-----------|
           1 |         1 |         1 |         2 | 
             |     0.083 |     0.167 |           | 
             |     0.500 |     0.500 |     0.667 | 
             |     0.500 |     1.000 |           | 
             |     0.333 |     0.333 |           | 
-------------|-----------|-----------|-----------|
           2 |         1 |         0 |         1 | 
             |     0.167 |     0.333 |           | 
             |     1.000 |     0.000 |     0.333 | 
             |     0.500 |     0.000 |           | 
             |     0.333 |     0.000 |           | 
-------------|-----------|-----------|-----------|
Column Total |         2 |         1 |         3 | 
             |     0.667 |     0.333 |           | 
-------------|-----------|-----------|-----------|

Данные

df.1 <- read.table(header=TRUE, text="IPET Task Type
1      1    1
1      2    2
1      3    1
2      1    1
2      1    2")