如何在R markdown中获得文字浮动/文字等包围？

Question

我目前正在用LaTeX写一些报告。由于我的大部分分析都是用R做的，所以我切换到Rmarkdown，到目前为止我对此非常满意，除了一件事，即在pdf输出中包含数字时。

我的一些情节是浮动的，所以它们被文本和其他类型的输出所包围，把我的其他一些数字放在pdf文档中整整一页，尽管它们并不那么大。我完全不知道为什么会这样。有谁知道这个问题或解决方案？

我想转而使用Rmarkdown，但如果图像问题仍然存在，我就无法将其用于更严肃的报告，而且表格也很重要。

示例：

---
title: "Multivariate Analysis"
subtitle: "written report"
author: "by XXX"
date: "24.10.2017"
output: 
   pdf_document:
      fig_caption: yes
---

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

...
some more R and Latex stuff which works well, approx. 6 pages
...

These eigenvalues determine the proportion of the total variance explained by the i-th component.

```{r, fig.cap="individual and total proportion of total variance explained by the regarding principal components"}
ggplot() + ...
```

```{r}
options(digits=2)
```

So the first principal component contains already `r eig.val[1]/sum(eig.val)*100`% of the information. 
more text text text text text text text text text text text text text text text text text text text text 
text text text text text text text text text text text text text text 

$$
\begin{aligned}
&Y_1=`r eig.vec[1,1]` ...  some latex equations
\end{aligned}
$$

$Y_1$ seems to be text text text text text text text text text text text text text text text text text text text text text text text
text text text text **PAGEBREAK PAGEBREAK** text text text text text text text text text text text text text 

在这种情况下，我在文本的第二部分有一个分页符，其中显示了PAGEBREAK。 在下一页我从上面得到了我的数字，只占该页面空间的50％，但该页面上仍然没有其他内容。 在图之后的下一页文本连续。

这就像是在整个页面分隔的句子中间的一个严厉的中断，这是半空的。

为什么会那样？对我来说，似乎是随机的图像漂浮在文本中，而不是总共30-50％具有上述问题。

有没有人有任何想法如何解决？每一个提示都是受欢迎的我真的很绝望...

我也尝试设置fig.pos ='h'，但没有改变。

Answer 1

我倾向于按以下方式组织我的文件夹

• images
• 表格
• 数据

这些文件夹可以放在markdown（或sweave）脚本所在的文件夹的顶部。它们用于放置由xtable或其他生成的图像，表格，以及保存的数据和模型。

在我的脚本中，我总是有一个初始块，我将路径放到这些目录中，这样我就可以轻松指向文件夹，如下例所示。

在乳胶前言中，请注意指向图像文件夹的 \ graphicspath {{./ images /}} 。

在knitr中，使用参数 fig.show ='hide'可以避免直接打印输出。使用 image_dir 参数将图形打印在图像文件夹中。

由于您使用的是乳胶，因此可以使用pdf（）代替png（）来保存图片。最后，您可以使用乳胶中的数字环境来按照您想要的方式处理您的数字。

\documentclass{article}
\graphicspath{{./images/}}
\usepackage{graphicx}
\title{Test example to show how to handle figure placements}
\date{} % no date
\begin{document}
\maketitle{}

<<include=FALSE>>=
library(knitr)
opts_chunk$set(
concordance=TRUE
)
@

<<init, echo = FALSE, results = 'hide'>>=
require(stringr)
# here I set the path to my directories
image_dir <- str_c(getwd(),"/images/",sep="")
@

<<print_figure, echo = FALSE, results = 'hide',fig.show='hide'>>=    
png(file=str_c(image_dir,"random.png"))
plot(rnorm(20))
dev.off()
@

Here is the Figure \ref{test_plot}.
\begin{figure}[htbp]
  \begin{center}
  \includegraphics[width=0.8\textwidth]{random.png}
  \caption{Test plot output.}
  \label{test_plot}
  \end{center}
\end{figure}
\end{document}