RMarkdown不在图形中打印汉字 --- 标题： 输出： pdf\U文件： 乳胶引擎：Xeletex 字体大小：11磅 #主字体：Calibri 类选项：字母 几何尺寸：左=0.5英寸，右=0.5英寸，顶部=0.6英寸，底部=1.25英寸 分段：是 标题包括： -\usepackage[UTF8]{ctex} -\usepackage{setspace} -\usepackage{tocloft} -\usepackage{anyfontsize} -\usepackage{fancyhdr} -\usepackage{fontspec} -\usepackage{sectsty} -\sectionfont{\ground} -\subsectionfont{\fontsize{14}{16.8}\selectfont} -\pagestyle{fancy} -\renewcommand{\headrulewidth}{0pt} --- ```{r} 图书馆（GG2） 打印（“中文") df

TL；DR:这似乎不是knitr/rmarkdown问题，而是与字体和输出设备相关的问题。我不确定原因，但下面的解决方法涉及更改输出字体（Batang为我工作）和输出设备（

pdf

是默认设置，但更改为

cairo\u pdf

或

png

对我来说都很有效）

---

首先，确定R将正确呈现字符的字体系列。一般来说，我不确定如何在没有尝试和错误的情况下确定这一点，但在过去，我发现Symbola和Batang字体似乎经常与非英语字符和各种unicode符号一起使用。如果需要，您需要在计算机上安装字体没有，您可能还需要在R中注册字体。然后您可以在控制台中运行绘图代码，查看汉字是否正确呈现

使用Batang字体，我发现我能够在正确渲染汉字的情况下将绘图输出到控制台。但是，标准的

pdf

设备无法渲染字符，无论是以交互方式保存绘图还是在编织时。相反，我尝试了

cairo\u pdf

和

png

设备和se都有效。下面是示例代码（使用与您的问题相同的

yaml

）：

`{r，include=FALSE}
knitr:：opts_chunk$set（echo=FALSE）
图书馆（GG2）
```
```{r，dev=“cairo\u pdf”}
df谢谢。我尝试使用
dev=“cairo\u pdf”
，安装了
extrafonts
软件包，加载了它，添加了
family=“Batang"
到我的ggplot调用，生成的.pdf现在显示了一些汉字，但其他汉字仍然没有正确显示。是否有其他方法来修复此问题？或者您认为可能有用的任何其他字体？我不确定。希望有人会提供更系统的信息，了解哪些字体可以呈现汉字以及如何使用让他们使用输出PDF的设备之一。（为了确定，在加载
extrafont
后，是否运行了
font\u import（）
？除非在此之后启动新的R会话，否则您可能还需要运行
loadfonts（）
）如果您在这里得不到所需的帮助，您可以尝试在上问这个问题。我没有，但我碰巧尝试了
family=“Heiti SC Light”
，并且该字体对我有效。谢谢！
---
title: 

output: 
 pdf_document:
    latex_engine: xelatex

fontsize: 11pt
#mainfont: Calibri
classoption: letter
geometry: left=0.5in, right=0.5in, top=0.6in, bottom=1.25in
subparagraph: yes

header-includes:
- \usepackage[UTF8]{ctex}
- \usepackage{setspace}
- \usepackage{tocloft}
- \usepackage{anyfontsize}
- \usepackage{fancyhdr}
- \usepackage{fontspec}
- \usepackage{sectsty}
- \sectionfont{\huge}
- \subsectionfont{\fontsize{14}{16.8}\selectfont}
- \pagestyle{fancy}

- \renewcommand{\headrulewidth}{0pt}
---

```{r}
library(ggplot2)
print("中文")
df <- data.frame(
  gp = factor(rep(letters[1:3], each = 10)),
  y = rnorm(30)
)
ds <- plyr::ddply(df, "gp", plyr::summarise, mean = mean(y), sd = sd(y))

# The summary data frame ds is used to plot larger red points on top
# of the raw data. Note that we don't need to supply `data` or `mapping`
# in each layer because the defaults from ggplot() are used.
ggplot(df, aes(gp, y)) +
  geom_point() +
  geom_point(data = ds, aes(y = mean), colour = 'red', size = 3) +
  labs(x = "中文")
```

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

```{r, dev="cairo_pdf"}
df <- data.frame(
  gp = factor(rep(letters[1:3], each = 10)),
  y = rnorm(30)
)
ds <- plyr::ddply(df, "gp", plyr::summarise, mean = mean(y), sd = sd(y))

ggplot(df, aes(gp, y)) +
  geom_point() +
  geom_point(data = ds, aes(y = mean), colour = 'red', size = 3) +
  labs(x = "中文", title="cairo_pdf device") +
  #theme(axis.title.x=element_text(family="Batang")) # To change font only for x-axis title
  theme(text=element_text(family="Batang", size=15)) 
```

```{r, dev="png", dpi=400}
ggplot(df, aes(gp, y)) +
  geom_point() +
  geom_point(data = ds, aes(y = mean), colour = 'red', size = 3) +
  labs(x = "中文", title="png device") +
  theme(text=element_text(family="Batang", size=15)) 
```