使R标记表边框在kniting到.doc后可见

Question

我有这样定义的桌子

```{r results='asis'}

图书馆(Ryacas)

图书馆(招待员)

(c(“x”，"x^2")，c("y"，"y^2"))

Apycs<-函数(M){

图书馆(Ryacas)

m1<-m

for (k in 1:nrow(m)){ for (l in 1:ncol(m)){

m.2<-yacas(TeXForm(m[k,l]))[[2]]

m1[k,l]<-substr(m.2,2,nchar(m.2)-2)}}

返回(M1)}

m<-Apycs(m)

pandoc.table(m，style=“网格”)

如何使分隔表单元格的行可见(在.doc中打印预览)

没有手工操作的文件？

Answer 1

它将涉及两个步骤，两个步骤都需要kableExtra包，没有一个需要pander包。保持不变，直到下面的代码：

pandoc.table(m, style="grid")

在第一步:创建一个带有边框的LaTeX表，保持书签为FALSE，并使用kable_styling form kableExtra。将kable_as_image表转换为具有LaTeX form kableExtra的图像，以便在第二步的重标记文档中使用。然后编织成pdf。正如所指出的kableExtra包，这是一个“总比没有”的解决方案，以打印高质量的表格在重量级Word文档。

```{r results='asis'}

图书馆(KableExtra)

图书馆(Ryacas)

(c(“x”，"x^2")，c("y"，"y^2"))

Apycs<-函数(M){

m1<-m

for (k in 1:nrow(m)){ for (l in 1:ncol(m)){

m.2<-yacas(TeXForm(mk，l))[2]

m1k，l<-substr(m-2，2，nchar(M.2)-2)}

返回(M1)}

m<-Apycs(m)

针织品：：kable(m，“胶乳”，书签= F) %>%

   column_spec(1, border_left = T) %>%

   column_spec(2, border_right = T) %>%

   kable_as_image("my_latex_table")

注意，kable_as_image是一个纯乳胶的函数，这个特性要求您安装magick (install.packages("magick"))。此外，如果您计划在Windows计算机上使用它，则需要安装Ghostscript。

我们所追求的输出称为my_latex_table.png，可以找到工作目录所在的位置。

在第二步:我们简单地将my_latex_table.png包含在要编织到.doc的.Rmd文件中。

![Bordered Table](my_latex_table.png)