r仅在底部的可弹性水平线

发布于 2025-02-10 20:44:48 字数 787 浏览 0 评论 0 原文

我正在尝试从2x2矩阵中创建一个简单的弹力，其中第二列包括底部的水平线。输出需要是从.RMD文件创建的Word文档。第一行的顶部有一条额外的水平线，我不想要。它似乎在HTML输出中正常工作。

---
output: 
  word_document
---

```{r setup, message=FALSE, warning=FALSE}
knitr::opts_chunk$set(echo = FALSE)
library(flextable)
library(dplyr)

tab <- data.frame(
  x = c('Row1', 'Row2:'),
  y = c(NA, NA)
)

flextable::flextable(tab) %>%
  flextable::border_remove() %>%
  flextable::hline(i = 1:2, j = 2, part = 'body') %>%
  flextable::delete_part(part = 'header') 
```

输出在Word中看起来像这样：

=“ nofollow noreferrer”>

原文

I'm trying to create a simple flextable from a 2x2 matrix where the second column includes horizontal lines on the bottom. The output needs to be a Word document created from a .Rmd file. There is an extra horizontal line at the top of the first row, which I do not want. It seems to work fine in html output.

---
output: 
  word_document
---

```{r setup, message=FALSE, warning=FALSE}
knitr::opts_chunk$set(echo = FALSE)
library(flextable)
library(dplyr)

tab <- data.frame(
  x = c('Row1', 'Row2:'),
  y = c(NA, NA)
)

flextable::flextable(tab) %>%
  flextable::border_remove() %>%
  flextable::hline(i = 1:2, j = 2, part = 'body') %>%
  flextable::delete_part(part = 'header') 
```

The output looks like this in Word: