r导出汇总结果为html或word

Question

在找到如何总结DataFrame后，我做到了。

我可以在我的控制台中看到结果，这是前两行代码后面显示的内容

byTue <- group_by(luckyloss.3,L_byUXR)
( sumMon <- summarize(byTue,count=n()) )

下面是我在控制台上看到的感觉很好，因为它显示我得到了我想要的东西

下面的结果来自234行的列，其中重复了许多值。所以我总结了234行，其中ANA的情况是8次，ARI 14等等

# A tibble: 30 × 2
   L_byUXR count
     <chr> <int>
1      ANA     8
2      ARI    14
3      ATL    16
4      BAL     4
5      BOS     6
6      CHA    12
7      CHN     8
8      CIN    10
9      CLE     4
10     COL     8
# ... with 20 more rows

我想要的是将这个输出分为30行两列，我可以把它带到word文档，甚至可以是HTML

我试图做一个write(byTUE.csv)，但我收到的是原始数据框的234行列表。这就像总结消失了，我已经检查了其他方式，如降价或创建新文件，试图看看knitr包是否有帮助，但没有。

Answer 1

library(stringi) # ONLY NECESSARY FOR DATA SIMULATION
library(officer) # <<= install this
library(tidyverse)

模拟一些数据：

set.seed(2017-11-18)
data_frame(
  L_byUXR = stri_rand_strings(30, 3, pattern="[A-Z]"),
  count = sample(20, 30, replace=TRUE)
) -> sumMon

启动一个新的Word文档并添加表，保存到新的doc：

read_docx() %>%  # a new, empty document
  body_add_table(sumMon, style = "table_template") %>% 
  print(target="new.docx")

Answer 2

我一直在寻找答案并找到了R的“stargazer”软件包，这使我能够将数据框的结果作为文本进行进一步编辑

当您编写R指令时，在“out =”中，将您想要的文件命名为输出，并且观星者会将它放在您的会话文件夹中

我使用的指令是：

    stargazer(count, type = "text", summary = FALSE, title="Any Title", digits=1, out="table1.txt")

即使我找到了答案，但如果没有hrbrmstr的帮助我也无法做到这一点，他们向我展示了有一个软件包可以做到，我只需要更多地工作