在一个函数中返回多个对象-一个整洁的Chisq.Test Tibble和Ggplot

library(ggplot2)
library(tidyr)
library(dplyr)

perform_chisq_test <- function(data, variable) {
  # 进行卡方检验
  chisq_result <- chisq.test(data[[variable]])
  
  # 构建整洁的Chisq.Test Tibble
  chisq_tibble <- tibble(
    Variable = variable,
    Chi_square = chisq_result$statistic,
    Degrees_of_freedom = chisq_result$parameter,
    P_value = chisq_result$p.value
  )
  
  # 绘制Ggplot图形
  ggplot_data <- data %>%
    count({{ variable }}) %>%
    mutate(Expected = chisq_result$expected) %>%
    pivot_longer(cols = c(n, Expected), names_to = "Type", values_to = "Value")
  
  ggplot_plot <- ggplot(ggplot_data, aes(x = Type, y = Value, fill = Type)) +
    geom_bar(stat = "identity", position = "dodge") +
    labs(title = "Chisq Test Result", x = "Variable", y = "Frequency") +
    theme_minimal()
  
  # 返回结果
  return(list(chisq_tibble, ggplot_plot))
}

# 创建示例数据
data <- data.frame(
  Variable = c("A", "B", "C", "A", "B", "C"),
  Category = c("X", "X", "Y", "Y", "X", "Y")
)

# 调用函数进行卡方检验并获取结果
result <- perform_chisq_test(data, Variable)

# 访问Chisq.Test Tibble
chisq_tibble <- result[[1]]
print(chisq_tibble)

# 显示Ggplot图形
ggplot_plot <- result[[2]]
print(ggplot_plot)