帮助！卡方检验

Question

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

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

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

我应该如何在 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))

橙色前后无显着差异

帮助！卡方检验

R Help! chisquare test

r

statistics

chi-squared

statistical-test