如何使word_document输出中的边框宽度具有可弯曲性？减缩

Question

我在Rmarkdown中使用flextable()来创建表。我将代码编织到word_document输出中。有没有人知道如何将表的宽度与word_document输出中的边框宽度相匹配，而不是将其与内容相匹配？

---
title: ""
output: word_document
---

```{r setup, include=FALSE}

knitr::opts_chunk$set(echo =真)

图书馆(可弯曲)

图书馆(Dplyr)

## R Markdown

This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see <http://rmarkdown.rstudio.com>.

When you click the **Knit** button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:

```{r cars}

头(Cars)%>%

柔性()%>%

theme_box()%>%

自动装配()

下面我附上两张照片：

• 第一个-我的代码产生了什么，

​

• 第二个-我想要生产的东西

。

谢谢!

Answer 1

基于word_document输出中列内容和边边框拟合列宽的解决方案

---

title: ""
output: word_document
---

```{r setup, include=FALSE}

knitr::opts_chunk$set(echo =真)

图书馆(可弯曲)

图书馆(Dplyr)

## R Markdown

This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see <http://rmarkdown.rstudio.com>.


```{r cars}

I= word_document输出中边框的16.5 #宽度(厘米)

W= i*0.3937 #边框宽度在word_document输出中(以英寸为单位)

df <- data.frame('model‘=行名(Mtcar)，mtcars 1:5)

T<-可弯曲(头(df，3))

没有安装的桌子，所有的科尔都有相同的基座宽度。

t<-autofit(t)

T#自动安装，cols具有基于col含量的宽度。

#从自动安装表中获取列宽比例

auto_widths <- dim(T)$宽度/sum(dim(T)$widths)

word_document输出中基于col内容和边边框的拟合宽度

T<-宽度(t，width=w*auto_widths)

T

​

​

Answer 2

听着，那里，David为这个任务做了一个很好的函数:)

给您举一个例子：

```{r cars}

头(Cars) %>%

柔性%>%

宽度(.，宽度= 3.35) %>%

theme_box()

​

​

Answer 3

基于芒洛解决方案，无论表中有多少列，我都编写了一个代码，该代码生成一个具有给定宽度的表。这也是我的目标，我可能在我的问题中没有清楚地解释。

```{r cars}

I= word_document输出中边框的16.5 #宽度(厘米)

W= i*0.3937 #边框宽度在word_document输出中(以英寸为单位)

# Table 1 with 2 columns 

head(cars,3) %>% 

  flextable %>%

  width(., width = (w/(ncol(cars)))) %>% 

  theme_box() 

# Table 2 with 5 columns

head(iris,3) %>% 

  flextable %>%

  width(., width = (w/(ncol(iris)))) %>% 

  theme_box() 

​

​