用于显示或过滤P值的整齐chisq.test输出的函数

在R语言中，chisq.test函数用于执行卡方检验。为了显示或过滤P值，并使输出更加整齐，你可以编写一个自定义函数来处理chisq.test的输出。以下是一个示例函数，它接受数据和一个P值阈值，并返回一个整齐格式化的输出表：

# 自定义函数来执行卡方检验并过滤P值
chisq_test_with_filter <- function(data, p_threshold = 0.05) {
  # 执行卡方检验
  test_result <- chisq.test(data)
  
  # 提取检验结果
  chi_squared_stat <- test_result$statistic
  p_value <- test_result$p.value
  
  # 创建一个数据框来存储结果
  result <- data.frame(
    Chi_Squared_Stat = chi_squared_stat,
    P_Value = p_value,
    stringsAsFactors = FALSE
  )
  
  # 过滤P值
  if (p_value > p_threshold) {
    result$Conclusion <- "Not Significant"
  } else {
    result$Conclusion <- "Significant"
  }
  
  # 返回整齐格式化的输出
  return(result)
}

# 示例数据
observed <- c(10, 20, 30)
expected <- c(15, 15, 20)

# 使用自定义函数进行卡方检验并过滤P值
result <- chisq_test_with_filter(observed, expected, p_threshold = 0.05)
print(result)

在这个示例中，chisq_test_with_filter函数执行卡方检验，并根据给定的P值阈值过滤结果。输出结果包括卡方统计量、P值和一个结论列，指示结果是否显著。

你可以根据需要调整p_threshold参数来设置不同的P值阈值。这个函数返回一个整齐格式化的数据框，便于查看和进一步处理。