救命！卡方检验

Question

我有一个看起来像这样的数据集

我正在运行卡方检验以查看是否...

1. 在之前和之后观察到的所有颜色的频率存在显着差异。
2. 之前的黄色和之后的蓝色在频率上有显着差异
3. 如果之前的黄色、蓝色和橙色的频率明显低于或高于之后。

我应该如何在 R 中做到这一点？我只是添加所有颜色来制作主列吗？

这是我目前所拥有的

colors$combined <-  colors$yellow + colors$blue + colors$red + colors$orange + colors$purple


x1 <- chisq.test(colors$combined,colors$before/after)
x1

Answer 1

dat=data.frame(red=c(1,2,0,1,2,0),
               yellow=c(2,1,2,2,1,2),
               blue=c(1,2,2,1,1,2),
               orange=c(2,2,0,0,1,1),
               purple=c(2,2,1,1,1,1),
               when=c(rep("before", 4), "after", "after"))
library(dplyr)
tab=dat %>%
  group_by(when) %>%
  summarize(across(red:purple, mean)) %>%
  select(-when)
chisq.test(as.matrix(tab))
    Pearson's Chi-squared test

data:  as.matrix(tab)
X-squared = 0.075374, df = 4, p-value = 0.9993

不，前后颜色没有显着差异。

t.test(c(2,1,2,2), c(1,2))

之前的黄色和之后的蓝色没有显着差异。

t.test(c(2,1,2,2), c(1,2))

前后黄色无显着差异。

t.test(c(1,2,2,1), c(1,2))

前后蓝色无显着差异。

t.test(c(2,2,0,0), c(1,1))

橙色前后没有显着差异。