R：表1输出

Question

几天前，我发现 table1 库来获得漂亮的表格。

唯一的一个问题（对我来说），它的输出是一个 HTML 表格。我正在使用 rtf 库将 R 表导出到 word，但我不知道如何将此输出表 (HTML) 导出到 word 。

我想知道是否存在一些获得不同输出的可能性。或转换为 R 表的不同方式。我没有使用 R-studio。

提前致谢。

library(table1)

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

Answer 1

请注意，您可以使用其他一些软件包对输出进行更多控制。在下面的示例中，我使用的是 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 输出：

Answer 2

感谢@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))