2012-06-11 97 views
2

我已經碰到了一堵牆,並且相信我錯過了一些非常簡單的東西。打印輸出結果摘要在R

我有一個包含多個Wilcoxon檢驗的結果(Bonferroni校正的),並想用multcomp(即產生一個外觀類似的表Dunnett的測試的輸出,沒有行號顯示出來,並很好地名單間隔)。

Example Table

當我打印出來的數據幀,行號顯示出來,並在列文本值右對齊。

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) 

我如何格式化這個成印刷體面看錶:

名單由產生的?

回答

3

相反格式化爲list的,格式設置爲data.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") 
+0

在這裏,我想,這將是更爲複雜的。感謝你! – sinclairjesse