问题描述
我正在尝试使用 ggplot 作为 .eps
文件在箱线图上保存带有单个样本点和线的箱线图。通过取消注释要保存的最后两行之一,可以将其保存为 .png
或 .eps
文件。但是对比保存的两个图,png文件有几个问题:
- 首先(对我来说最重要的一点):样本之间的线条消失了
- 箱线图的填充消失了
- 数据的顺序发生了变化。
我们如何修复它,使 .eps
图形看起来与 .png
文件完全相同
library(dplyr)
library(ggplot2)
width = 7
height = 4
dpi = 100
df <- data.frame(
result = rnorm(48,1,3),time = rep(c('t1','t2','t3','t4'),12 ),subject = rep(c(1:12),each=4),gender = rep (c('M','F'),6,each=4) )
pd = ggplot2::position_jitterdodge(dodge.width = 0.75,jitter.width = 0.3,seed = 1)
df %>%
ggplot (aes(x= time,y=result,fill=gender))+
geom_Boxplot(alpha=0.2)+
geom_point(aes(color = gender,group=subject),position = pd)+
geom_line(aes(color=gender,position=pd,alpha=0.3)+
scale_fill_brewer(palette = 'Set1')+
scale_color_brewer(palette = 'Set1')
ggsave(("try.png"),dpi = dpi,width = width,height = height)
#ggsave(("try.eps"),height = height,device = "eps")
结果.png
:
结果.eps
:
注意:我从 this question
复制了代码解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)