2

我碰壁了，相信我错过了一些非常简单的东西。

我有一个列表，其中包含来自多个 wilcoxon 测试的结果（带有 Bonferroni 校正），并且希望使用 Dunnett 测试的输出生成一个外观相似的表格multcomp（即，没有显示行号并且间隔很好）。

示例表

当我将其打印为数据框时，会显示行号，并且列中的文本值是右对齐的。

该列表由以下人员创建：

for (i in 2:length(split.set)) {
  wrs.mod <- suppressWarnings(wilcox.test(split.set[[1]]$VALUE, split.set[[i]]$VALUE))
  stn.results[i - 1] <- as.character(unique(split.set[[i]]$TREATMENT))
  stat.results[i - 1] <- as.numeric(wrs.mod$statistic)
  p.results[i - 1] <- signif(wrs.mod$p.value, 3)
  if (wrs.mod$p.value < 0.05/(length(split.set) - 1)) sig.results[i - 1] <- "*" else sig.results[i - 1] <- NA
}
wrs.results <- list(Treatment = stn.results, Statistic = stat.results, p = p.results, Significant = sig.results)

如何将其格式化为一个看起来不错的打印表格？

4

1 回答 1

3

与其将其格式化为 a list，不如将其格式化为 adata.frame并打印：

wrs.results <- data.frame(Treatment = stn.results, Statistic = stat.results, Pvalue = p.results, Significant = sig.results)
print(wrs.results)

您可以通过多种方式自定义数据框的结构（以及外观）。您可能更喜欢治疗是行名称：

wrs.results <- data.frame(row.names = stn.results, Statistic = stat.results, Pvalue = p.results, Significant = sig.results)

或自定义列名：

colnames(wrs.results) = c("Treatment", "Statistic", "P(>|t|)", "Significance")
于 2012-06-11T16:30:42.323 回答