将绘图另存为SVG删除填充符号上的笔划

我一直在ggplot2中使用填充符号,从未遇到任何导出到png的问题。但是,当我导出到svg时,对于某些形状(三角形和菱形),符号的一侧没有笔划。

这最初是在我绘制一些地图时发生的,所以我尝试用简单的示例图来复制这个问题—它仍然在发生。我无法理解是什么导致符号的一面像这样消失。这是我在作为svg导出时没有指定的吗?或者某个地方有虫子?任何帮助都将不胜感激。

举个例子:

以及创建此图像的代码:

library(tidyverse)

plot = 
  data_frame(x = 1:5, y = 1:5, group = c("tri", "sq", "tri", "sq", "dia")) %>%
  ggplot(aes(x,y, shape = group)) +
  geom_point(fill = "red", colour = "black", size = 4) +
  scale_shape_manual(values = c(23,22,24)) +
  theme_bw()

plot %>% ggsave("test.svg", ., height = 10, width = 10, units = "cm")

注意:我试过使用 svglite() 直接出口-同样的事情发生了。