- 已编辑
我在如下的R Markdown文档中写了一段使用ggplot2
画图的代码。其中图形的标签是中文的。我想在html中输出svg矢量图。因此我使用了{r ,dev='svg'}。但knit
后中文无法显示出来。COS论坛上这个六年前的帖子,似乎问了同样的问题,但没有给出具体方法。我经过百度、谷歌多次之后并未找到正确的方法。
期待各位大神的帮助!
---
title: "大众车定量"
subtitle: " "
author: " "
date: "2019/06/07"
output:
html_document
---
# 购车放弃原因
```{r, echo=F,message=F,warning=F,fig.cap=" ", out.width = '100%',fig.align='center',fig.asp = 0.618,dev='svg'}
setwd("C:/Users/xsong/Desktop")
library(ggplot2)
library(readr)
bar <- read_csv("C:/Users/xsong/Desktop/bar.csv")
ggplot(bar,aes(reorder(tag,value),value,color=car,fill=car)) +
geom_bar(stat = 'identity',width = 0.3,position = 'dodge') +
coord_flip()+
geom_text(aes(label = value,position='right',hjust=-1),size=2.7,color='black') +
facet_wrap(~car, nrow = 1) +
labs(x=" ",y=" ") +
theme_classic() +
theme(legend.position='none')
```
最后输出的html如下所示:
画图所用的数据已上传到这里。
此外,恕我愚钝,我在网页版的《现代统计图形》的第四章 无意间发现了一幅中文显示正确的SVG图:
经github查看源代码后,并未搞清如何实现。我相信这应该不是个困难问题。还劳烦有经验R用户点拨。