R 帮助！卡方检验

如何解决R 帮助！卡方检验

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

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

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

解决方法

dat=data.frame(red=c(1,2,1,0),yellow=c(2,2),blue=c(1,orange=c(2,1),purple=c(2,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,c(1,2))

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

t.test(c(2,2))

前后黄色无显着差异。

t.test(c(1,2))

前后蓝色无显着差异。

t.test(c(2,1))

橙色前后无显着差异。