是否有R函数用于查找ChiSqr结果中的差异

# 创建一个观察频数的矩阵
observed <- matrix(c(762, 327, 468, 452), nrow = 2)

# 执行卡方检验
chisq_result <- chisq.test(observed)

# 查看结果
print(chisq_result)

# 提取卡方统计量和p值
chisq_statistic <- chisq_result$statistic
p_value <- chistest$p.value

# 提取期望频数和观察频数
expected <- chisq_result$expected
observed <- chisq_result$observed

# 打印提取的信息
print(paste("卡方统计量:", chisq_statistic))
print(paste("p值:", p_value))
print("期望频数:")
print(expected)
print("观察频数:")
print(observed)

# 创建一个数据框来存储观察频数和期望频数
data <- data.frame(
  Category = c("A", "B", "C", "D"),
  Observed = observed,
  Expected = expected
)

# 绘制条形图
barplot(height = cbind(data$Observed, data$Expected), beside = TRUE,
        col = c("blue", "red"), names.arg = data$Category,
        legend.text = c("观察频数", "期望频数"))