将图另存为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()直接导出-发生同样的事情。