mac下ggplot2作图汉字不能随图保存

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

如下代码：
library(sysfonts)
library(showtext)
library(ggplot2)
dev.new()
showtext.begin()
p<-ggplot(diamonds,aes(x=carat,y=depth))
p+geom_point()+labs(title="钻石")#可以显示汉字
ggsave("pp.png")#不能显示汉字
请问如何处理

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：ggplot2 gplot plot GPL Mac 汉字

我的系统是os yosemite

楼主问题解决了吗

lxy444 发表于 2016-7-28 15:25
楼主问题解决了吗

已解决

hanson.don 发表于 2016-7-28 20:32
已解决

请问是怎么解决的啊？我遇到了和你相同的问题

lxy444 发表于 2016-7-28 21:55
请问是怎么解决的啊？我遇到了和你相同的问题

x = 'X   ', y = '   Count') +
theme(text = element_text(family = 'SimSun'))

hanson.don 发表于 2016-7-29 07:36
x = 'X   ', y = '   Count') +
theme(text = element_text(family = 'SimSun'))

嗯，我试了一下，存成 png 确实可以，但是存成 pdf 或者 eps 的矢量图格式不行。

lxy444 发表于 2016-7-29 08:36
嗯，我试了一下，存成 png 确实可以，但是存成 pdf 或者 eps 的矢量图格式不行。

这个问题，解决方法是利用showtext包，加载字体文件来解决，如：
library(sysfonts)
library(showtext)
showtext.auto(enable=T)
font.add('SimSun','华文仿宋.ttf')
library(ggplot2)
xy<-data.frame(x=c(1:10),y=c(1:10)^2)
p<-ggplot(xy,aes(x,y))+geom_line()+xlab("横轴")
ggsave("xy.pdf")

hanson.don 发表于 2016-7-29 16:29
这个问题，解决方法是利用showtext包，加载字体文件来解决，如：
library(sysfonts)
library(showtext) ...

赞，非常感谢！

lxy444 发表于 2016-7-29 17:00
赞，非常感谢！

不客气