编织到.doc后使R标记表边框可见

我有这样定义的表

```{r results='asis'}
library(Ryacas)
library(pander)
m<-rbind(c("x","x^2"),c("y","y^2"))
Apycs<-function(m){
  library(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)}}
  return(m1)}
m<-Apycs(m)
pandoc.table(m, style="grid")

```

`{r results='asis'}
图书馆（Ryacas）
图书馆（潘德尔）
m它将涉及两个步骤，两个步骤都需要软件包，没有一个步骤需要迎合软件包。保持一切不变，直到代码如下：

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

在第一步中：创建一个带有边框的LaTeX表，使booktabs保持为FALSE，并使用kable_样式设置form kableExtra。将LaTeX表转换为带有kable_as_image表单kableExtra的图像，以便在第二步的rmarkdown文档中使用。然后将其编织成pdf。如前所述，这是一个“总比没有好”的解决方案，可以在rmarkdown Word文档中打印高质量的表格

```{r results='asis'}
library(kableExtra)
library(Ryacas)

m<-rbind(c("x","x^2"),c("y","y^2"))
Apycs<-function(m){
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)}}
return(m1)}
m<-Apycs(m)

knitr::kable(m, "latex", booktabs = F) %>%
       column_spec(1, border_left = T) %>%
       column_spec(2, border_right = T) %>%
       kable_as_image("my_latex_table")

```

字体、段落的样式取决于提供的
——reference docx
样式参考，这可能也会对结果表产生影响——但我对此表示怀疑：2012年pandoc邮件列表上有一个样式参考，但从未实施过。看潘多克的。
![Bordered Table](my_latex_table.png)