小编Pat*_*ick的帖子

美好的一天.

我正在尝试使用导出到word文档的rmarkdown文件创建会议摘要提交.我试图找到一种方法在输出的word文档中插入一个空行.我发现可以通过在markdown文件的末尾添加两个空格来插入换行符,但是,当你只想要一个空行时,这个技巧不起作用.下面是示例代码

  ---
title: "HERE IS THE TITLE OF MY ABSTRACT"
output:
  word_document:
    reference_docx: draft-styles.docx
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

```{r, include=FALSE, cache=FALSE, echo=FALSE}
library(rmarkdown)
```


Authors: John H. Curry^1^, Kathy S. James^1^, Patrick S. Curry^1^
Affiliations: ^1^University of Somewhere 

*Presenting author information*  
Name: John H. Curry 
Email: curry@umed.edu  
Affiliation details: Kinesiology, University of Somewhere, Ottawa, Canada  


*Coauthor #2*  
Name: Kathy S. James  
Email: james@umed.edu 
Affiliation details: Kinesiology, University of Somewhere, Ottawa, Canada  

*Coauthor #3*  
Name: Patrick …

我正在为需要补充材料的期刊写一篇文章。我希望使用一个独特的标签，SuppMat:而不是默认的标签fig:来将图表和表格发送到这个部分。

我知道使用乳胶的答案（在这里找到，在这里找到）但我必须在导出时完成这个docx（是的，我知道这很可怕，但合作者总是对的）

--- 
title: "My Title"
output:
  bookdown::word_document2:
    fig_caption: yes
link-citations: no
site: bookdown::bookdown_site
---


```{r setup, include=FALSE, cache=FALSE, echo=FALSE}
#create tables
table1 <- mtcars[1,2]
table2 <- mtcars[3,4]

#set knitr options
library(knitr)
knitr::opts_chunk$set(echo = FALSE, 
                      warning = FALSE, 
                      message = FALSE,
                      include = TRUE,
                      dpi = 300)
```

Table \@ref(tab:table1) and Figure \@ref(fig:figure1) ) should be displayed in ***Figure and Tables*** section

I need Supplementary Table \@ref(SuppMat:table2) and a Supplementary …

我正在尝试创建一个表，其中包含内置于表中的引文。这是我试图实现的目标的视觉效果。

据我所知，您只能在中rowvars或colvars中添加脚注kableExtra（喜欢那个包）。

# Create a dataframe called df
Component <- c('N2','P3')
Latency <- c('150 to 200ms', '625 to 800ms')
Location <- c('FCz, Fz, Cz', 'Pz, Oz')
df <- data.frame(Component, Latency, Location)

以下是我在阅读kableExtraGit 页面后的尝试

# Trying some code taken from the kableExtra guide
row.names(df) <- df$Component
df[1] <- NULL
dt_footnote <- df
names(dt_footnote)[1] <- paste0(names(dt_footnote)[2],
                                footnote_marker_symbol(1))

row.names(dt_footnote)[2] <- paste0(row.names(dt_footnote)[2], 
                                footnote_marker_alphabet(1))
kable(dt_footnote, align = "c", 
      # Remember this escape = F
      escape = F, …

我一直在使用 officedown 来编织到 docx。我遇到了一个问题，我必须在表中创建所需的上标，如下所示

这让我回顾了创建表格的所有方法。我没有在这里输入所有内容，而是在下面创建了一个 Rmd 文档，其中包含所有问题。我很想知道是否有人有任何意见或建议。我的目标很简单。我们想要一个导出到 docx 的表

1. 显示在表格列表中
2. 有标题
3. 文内参考
4. 正确显示分数

请在此处找到带有示例的详细 Rmd

对于 Rmd 文档的长度，我深表歉意，但我想详细展示我试图做的事情以促进答案和建议

更新：在官方GitHub 上有点烤，但目前似乎无法使用分数，但下标正在使用ftExtra

我是 R 新手，我正在尝试做一些我认为应该非常简单的事情，但在线代码没有帮助。

data <- structure(list(Group = c(1, 1, 1, 1, 2, 2, 2, 2, 3, 3, 3, 3), 
Time = c(1, 1, 2, 2, 1, 1, 2, 2, 1, 1, 2, 2), mean_PctPasses = c(68.26, 
60.2666666666667, 62.05, 66.3833333333333, 59.7333333333333, 
69.7714285714286, 57.1888888888889, 63.8875, 61.1833333333333, 
59.775, 66.2666666666667, 62.12), mean_AvgPassing = c(7.3, 
7.01111111111111, 6.35, 9.26666666666667, 6.68333333333333, 
8.78571428571429, 5.87777777777778, 8.3125, 7.63333333333333, 
7.7, 8.38333333333334, 6.89), mean_AvgRush = c(0.3, -0.3, 
3.5, 0.75, 5, 1.47142857142857, 5.71111111111111, 3.3875, 
2.74, 6.6, 4.5, 5), mean_Int = c(0.2, 0.777777777777778, 
0.25, …