使用 ggplot 将图形保存为 .eps 的问题：线条、消失和填充消失，数据排序发生变化

如何解决使用 ggplot 将图形保存为 .eps 的问题：线条、消失和填充消失，数据排序发生变化

我正在尝试使用 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

复制了代码