Ms word Rmd中的htmlTable-转换为Word docx

Ms word Rmd中的htmlTable-转换为Word docx,ms-word,html-table,r-markdown,Ms Word,Html Table,R Markdown,我有下面的Rmd文件,它生成一个html文件,然后我将其复制粘贴到一个docx文件中(供协作者使用)。以下是我想知道如何处理这些表格的一些事情,但我在这些小插曲中找不到答案: a.我想知道如何删除在CGROUP 1和CGROUP 2之间插入Word中的空白列。 B.我想知道如何使用行名称设置列的宽度(“第一行”,…) C.如何更改字体和字号?我尝试了以下内容,但没有输出:word\u文档和htmlTable() D.为了简化到Word的转换,是否有方法指定分页符?景观定位 非常感谢你 ---

我有下面的Rmd文件,它生成一个html文件,然后我将其复制粘贴到一个docx文件中(供协作者使用)。以下是我想知道如何处理这些表格的一些事情,但我在这些小插曲中找不到答案:

a.我想知道如何删除在CGROUP 1和CGROUP 2之间插入Word中的空白列。 B.我想知道如何使用行名称设置列的宽度(“第一行”,…)

C.如何更改字体和字号?我尝试了以下内容,但没有输出:word\u文档和htmlTable()

D.为了简化到Word的转换,是否有方法指定分页符?景观定位

非常感谢你

---
title: "Example"
output: 
  Gmisc::docx_document:
    fig_caption: TRUE
    force_captions: TRUE
---

Results
=======

```{r, echo = FALSE}
library(htmlTable)
library(Gmisc)
library(knitr)
mx <-
  matrix(ncol=6, nrow=8)
rownames(mx) <- paste(c("1st", "2nd",
                        "3rd",
                        paste0(4:8, "th")),
                      "row")
colnames(mx) <- paste(c("1st", "2nd",
                        "3rd", 
                        paste0(4:6, "th")),
                      "hdr")

for (nr in 1:nrow(mx)){
  for (nc in 1:ncol(mx)){
    mx[nr, nc] <-
      paste0(nr, ":", nc)
  }
}

htmlTable(mx,
          cgroup = c("Cgroup 1", "Cgroup 2"),
          n.cgroup = c(2,4))

```
---
标题:“示例”
输出:
Gmisc::docx_文件:
图(小标题)真
force_字幕:正确
---
结果
=======
```{r,echo=FALSE}
图书馆(htmlTable)
图书馆(Gmisc)
图书馆(knitr)

mx行名称的样式似乎已关闭,现在已在1.10.1版中修复,您可以使用
devtools
包下载:
devtools::install_github(“gforge/htmlTable”,ref=“develope”)

关于样式,该功能允许几乎任何您可以看到的图像。不幸的是,它需要复制粘贴到Word中,而这项功能并不是微软的最高优先级。您可以使用css.cell轻松调整示例以适应所需的更改:

library(htmlTable)
library(knitr)
mx <-
  matrix(ncol=6, nrow=8)
rownames(mx) <- paste(c("1st", "2nd",
                        "3rd",
                        paste0(4:8, "th")),
                      "row")
colnames(mx) <- paste(c("1st", "2nd",
                        "3rd", 
                        paste0(4:6, "th")),
                      "hdr")

for (nr in 1:nrow(mx)){
  for (nc in 1:ncol(mx)){
    mx[nr, nc] <-
      paste0(nr, ":", nc)
  }
}

css.cell = rep("font-size: 1.5em;", times = ncol(mx) + 1)
css.cell[1] = "width: 4cm; font-size: 2em;"
htmlTable(mx,
          css.cell=css.cell,
          css.cgroup = "color: red",
          css.table = "color: blue",
          cgroup = c("Cgroup 1", "Cgroup 2"),
          n.cgroup = c(2,4))
库(htmlTable)
图书馆(knitr)

mx行名称的样式似乎已关闭,现在已在1.10.1版中修复,您可以使用
devtools
包下载:
devtools::install_github(“gforge/htmlTable”,ref=“develope”)

关于样式,该功能允许几乎任何您可以看到的图像。不幸的是,它需要复制粘贴到Word中,而这项功能并不是微软的最高优先级。您可以使用css.cell轻松调整示例以适应所需的更改:

library(htmlTable)
library(knitr)
mx <-
  matrix(ncol=6, nrow=8)
rownames(mx) <- paste(c("1st", "2nd",
                        "3rd",
                        paste0(4:8, "th")),
                      "row")
colnames(mx) <- paste(c("1st", "2nd",
                        "3rd", 
                        paste0(4:6, "th")),
                      "hdr")

for (nr in 1:nrow(mx)){
  for (nc in 1:ncol(mx)){
    mx[nr, nc] <-
      paste0(nr, ":", nc)
  }
}

css.cell = rep("font-size: 1.5em;", times = ncol(mx) + 1)
css.cell[1] = "width: 4cm; font-size: 2em;"
htmlTable(mx,
          css.cell=css.cell,
          css.cgroup = "color: red",
          css.table = "color: blue",
          cgroup = c("Cgroup 1", "Cgroup 2"),
          n.cgroup = c(2,4))
库(htmlTable)
图书馆(knitr)

mx谢谢!非常有用。我可以更改字体和行宽。但是,许多列不再考虑行宽度,有没有办法解决这个问题?如果有帮助的话,我可以在另一个问题中加入一个例子?谢谢!非常有用。我可以更改字体和行宽。但是,许多列不再考虑行宽度,有没有办法解决这个问题?如果有帮助的话,我可以在另一个问题中加入一个例子?