使用Rmd文件（knitR）

Question

我在R Markdown中使用sj个包。但是，我遇到了编码问题。

我的问题： 如果运行以下行，您将获得一个包含编码问题的交叉表和第二个交叉表，从而解决了这个问题。

library(sjPlot)
library(sjmisc)
library(sjlabelled)

Var1 <- factor(sample(1:6, 200, replace = T))
Var1 <- factor(Var1,
           levels = c("1","2","3","4","5", "6"),
           labels = c("Zu Hause", 
                      "Am Im Büro", 
                      "In der Schule bzw. an der Universität",
                      "An einem öffentlichen Ort",
                      "Unterwegs",
                      "Außer Haus"))
sjt.xtab(Var1, Var1)
sjt.xtab(Var1, Var1, encoding = "UTF-8")

Pic1：没有encoding=UTF8

Pic2：encoding=UTF8 [] [

但是，如果您尝试在Rmd文件中运行此文件，则encoding = "UTF-8"的解决方案将不再有效。

```{r echo = FALSE}
library(sjPlot)
library(sjmisc)
library(sjlabelled)

Var1 <- factor(sample(1:6, 200, replace = T))
Var1 <- factor(Var1,
           levels = c("1","2","3","4","5", "6"),
           labels = c("Zu Hause", 
                      "Am Im Büro", 
                      "In der Schule bzw. an der Universität",
                      "An einem öffentlichen Ort",
                      "Unterwegs",
                      "Außer Haus"))
sjt.xtab(Var1, Var1)
sjt.xtab(Var1, Var1, encoding = "UTF-8")
```

输出看起来像Pic1，但应该看起来像Pic2

或者

      `r sjt.xtab(Var1, Var1, 
       title = "<br/><h1> Ort /h1> <br/>Beschreibung: Bla Bla.",
       wrap.labels = 5555,
       encoding = "UTF-8",
       no.output=TRUE)$knitr`

输出看起来像Pic1，但应该看起来像Pic2

rmarkdown::render("File_in.Rmd", output_file = "File_out.html", encoding = "UTF-8")也无济于事。

我认为，当sjt.xtab()中的第二个变量（给出行）的标签得到变音符号（ä，ü，ö，ß）时，问题总会发生。

听到你的解决方案会很棒！ 朱利安