如何将R中DescTools包ConoverTest的列表输出转为数据框？

核心方法 #

ConoverTest() 返回的列表中，核心结果存储在 $result 元素里，直接提取该元素并整理列名，就能得到目标格式的数据框。

单数据集处理示例 #

# 加载依赖包
library(DescTools)

# 构造测试数据
set.seed(123)
df <- data.frame(
  group = rep(c("A", "B", "C"), each = 10),
  value = rnorm(30)
)

# 运行Conover检验
test_res <- ConoverTest(value ~ group, data = df)

# 转换为目标数据框
output_df <- as.data.frame(test_res$result)
# 添加分组对比名称列
output_df$cross <- rownames(output_df)
# 调整列顺序并保留需要的字段
output_df <- output_df[, c("cross", "mean.rank.diff", "p.val")]
# 去除p值中的显著性星号（可选）
output_df$p.val <- as.numeric(gsub("[*]+", "", output_df$p.val))

# 查看结果
print(output_df)

批量运行处理方法 #

如果要批量处理多个数据集，可以用循环生成结果后合并：

# 构造多个测试数据集
data_list <- list(
  df1 = df,
  df2 = transform(df, value = value + 1),
  df3 = transform(df, value = value - 0.5)
)

# 批量运行并转换格式
batch_output <- lapply(names(data_list), function(data_name) {
  res <- ConoverTest(value ~ group, data = data_list[[data_name]])
  temp_df <- as.data.frame(res$result)
  temp_df$cross <- rownames(temp_df)
  temp_df$data_set <- data_name  # 添加数据集标识
  temp_df[, c("data_set", "cross", "mean.rank.diff", "p.val")]
})

# 合并所有结果
final_df <- do.call(rbind, batch_output)
final_df$p.val <- as.numeric(gsub("[*]+", "", final_df$p.val))

关键说明 #

• test_res$result 本身就是结构化的表格数据，转为数据框后只需补充分组对比名称即可
• 批量处理时通过循环生成单数据集结果，最后用 rbind 合并，便于后续统一分析

内容的提问来源于stack exchange，提问作者confusedindividual