R：表1 output

Question

幾天前，我找到了 table1 庫來獲得漂亮的表格。

唯一的一個問題（對我來說），它的 output 是一個 HTML 表。 我正在使用 rtf 庫將 R 表導出到 word，但我不知道如何將這個 output 表（HTML）導出到 word。

我想知道是否存在獲得不同 output 的可能性。 或者以不同的方式轉換為 R 表。 我沒有使用 R-studio。

提前致謝。

library(table1)

table1(~mpg| carb*am,data = mtcars)

Answer 1

感謝@r2evans 提供的信息，我可以得到一個 R 表，也許我丟失了一點格式但是當我用 rtf 庫導出到 word 時沒問題：

library(rvest)
library(table1)

tbl_1=table1(~mpg| carb*am,data = mtcars)
as.data.frame(read_html(tbl_1) %>% html_table(fill=TRUE))

Answer 2

請注意，您可以使用其他一些軟件包對 output 進行更多控制。 在下面的示例中，我使用的是 Tplyr 和記者。 Tplyr 生成統計信息，reporter 將創建 RTF。 它比 table1 需要更多的工作。 但是您會獲得更多類型的統計數據和報告。 您基本上可以制作任何安全報告。

library(Tplyr)
library(reporter)

dt <- tplyr_table(mtcars, am) %>% 
  add_layer(group_count(cyl)) %>% 
  add_layer(group_desc(mpg)) %>% 
  build() 


tbl <- create_table(dt, show_cols = c("ord_layer_index", "row_label1", 
                                      "var1_0", "var1_1")) %>% 
  stub(c("ord_layer_index", "row_label1"), label = "Variables") %>% 
  define(ord_layer_index, label = "Variable", label_row = TRUE,
         format = c("1" = "Cylinders",
                    "2" = "Miles Per Gallon"), 
         dedupe = TRUE, blank_after = TRUE) %>% 
  define(row_label1, label = "", indent = .25) %>% 
  define(var1_0, label = "Automatic", align = "center", n = 19) %>% 
  define(var1_1, label = "Manual", align = "center", n = 13) 

pth <- file.path(tempdir(), "test1.rtf")

rpt <- create_report(pth, 
                     output_type = "RTF",
                     orientation = "portrait") %>% 
  titles("Table 1.0", 
         "Characteristics of MTCars by Transmission Type",
         "Population: All Cars") %>% 
  set_margins(top = 1, bottom = 1) %>% 
  add_content(tbl)

write_report(rpt)

file.show(pth)

這是 RTF output：