以数据帧形式获取cor.test的输出

# 假设我们有两个变量x和y
x <- c(1, 2, 3, 4, 5)
y <- c(5, 4, 3, 2, 1)

# 进行相关性检验
cor_result <- cor.test(x, y)

# 将结果转换为数据帧
cor_df <- data.frame(
  statistic = cor_result$statistic,
  parameter = cor_result$parameter,
  p.value = cor_result$p.value,
  estimate = cor_result$estimate,
  null.value = cor_result$null.value,
  alternative = cor_result$alternative,
  method = cor_result$method,
  data.name = cor_result$data.name
)

# 查看数据帧
print(cor_df)

# 去除缺失值
x <- na.omit(x)
y <- na.omit(y)

# 再次进行相关性检验并转换为数据帧
cor_result <- cor.test(x, y)
cor_df <- data.frame(
  statistic = cor_result$statistic,
  parameter = cor_result$parameter,
  p.value = cor_result$p.value,
  estimate = cor_result$estimate,
  null.value = cor_result$null.value,
  alternative = cor_result$alternative,
  method = cor_result$method,
  data.name = cor_result$data.name
)