我在写我的论文降价,它包括了“结果”一节中有很多数字。由于我确实需要所有图表和表格保持其顺序和小节,因此我将它们保持在适当的位置,YAML中的\floatplacement{figure}{H}
用于图表,kable_styling(latex_options = c("hold_position")
用于表格。
我的问题是,是否有一种方法可以使文字围绕数字浮动而不改变数字的顺序/部分?一旦我将floatplacement
设置为h
而不是H
,他们就不再停留在自己的区域中。
我在代码块选项中尝试了, out.width="1\\textwidth", wrapfigure = list("C", 1)
,这使文本位于图形的顶部(很好),但是即使有足够的空间可以将图形放在下一页上它在当前页面上:
我的YAML:
---
output:
bookdown::pdf_document2:
toc: no
fig_caption: yes
includes:
in_header: header.tex
lang: de
geometry: "left=3cm, right=2.5cm, top=2.5cm, bottom=2.5cm"
fontsize: 12pt
bibliography: library.bib
csl: science-modified1.csl
link-citations: yes
linkcolor: black
urlcolor: black
header-includes:
- \usepackage{placeins} #definiert den Befehl \FloatBarrier
- \usepackage{fancyhdr}
- \usepackage[doublespacing]{setspace}
- \usepackage{chngcntr}
- \counterwithout{figure}{section}
- \counterwithout{table}{section}
- \usepackage{microtype}
- \usepackage{amsmath}
- \usepackage{float}
- \floatplacement{figure}{H}
- \usepackage{wrapfig}
- \setlength{\parindent}{1cm}
---
图中的我的代码块的选项:
```{r, include = F}
defOut <- knitr::knit_hooks$get("plot") # save the default plot hook
knitr::knit_hooks$set(plot = function(x, options) { # set new plot hook ...
x <- defOut(x, options) # first apply the default hook
if(!is.null(options$wrapfigure)) { # then, if option wrapfigure is given ...
# create the new opening string for the wrapfigure environment ...
wf <- sprintf("\\begin{wrapfigure}{%s}{%g\\textwidth}", options$wrapfigure[[1]], options$wrapfigure[[2]])
x <- gsub("\\begin{figure}", wf, x, fixed = T) # and replace the default one with it.
x <- gsub("{figure}", "{wrapfigure}", x, fixed = T) # also replace the environment ending
}
return(x)
})
```
```{r figure-USB-J01-DDD-absolut-line, fig.cap = "Absoluter Verbrauch von J01-Antibiotika DDDs am USB (auf 30 Tage normiert)", out.width="1\\textwidth", wrapfigure = list("C", 1)}
```
有没有一种方法可以让文本放在图形的顶部(例如,如果上一页有空格,但是图形没有空间),而图形却不离开它们的部分或像我的示例一样奇怪地运行?