在表格中顯示事后 Tukey 分析的問題

Question

我認為這是一個愚蠢的問題，但我有點卡住了。 我想將我的 posthoc Tukey 分析放在一個表格中，但是，我無法做到這一點。 我遵循的步驟是：首先，我將 posthoc Tukey 結果轉換為數據框，然后使用 gt 包制作表格。

問題是我無法在表格中顯示我的組，在這種情況下是島嶼的名稱

這是我正在使用的代碼

Tuk_anova1 <- TukeyHSD(AnovaModel.1)
Tuk_anova1 <- TukeyHSD(AnovaModel.1)
Tuk_anova1
TK <-as.data.frame(Tuk_anova1$Island)
gt_tbl <- gt(TK)
gt_tbl

我得到TukeyHSD 結果的表

Answer 1

您需要使用rownames_to_stub=TRUE參數。 下面是一個例子：

library(gt)
data(iris)
iris.aov <- aov(Sepal.Width~Species, iris)
iris.hsd <- TukeyHSD(iris.aov)
iris.df <- as.data.frame(iris.hsd$Species)
gt_tbl <- gt(iris.df, rownames_to_stub=TRUE)
gt_tbl