R 在html文件中嵌入ggsave svg时删除边框

我使用

ggplot2:：ggsave（）

创建了一个svg。我将svg内嵌到html文件中。但是，我发现svg周围有一个边界。如何删除此边界

tl；dr版本：，如何删除内联svg周围的边框

以下是我用来创建svg的代码：

统计数据的
dput
：

statistics_data <-
 structure(list(Category = structure(c(5L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 5L, 5L, 5L, 5L, 2L, 2L, 3L, 3L, 3L, 3L, 
4L, 5L, 3L, 5L, 5L, 5L, 1L, 1L, 1L), .Label = c("Online Presence", 
"Social Presence", "Web Design", "Web Development", "Website Content"
), class = "factor"), Category_count = c(9L, 14L, 14L, 14L, 14L, 
14L, 14L, 14L, 14L, 14L, 14L, 14L, 9L, 9L, 9L, 9L, 2L, 2L, 5L, 
5L, 5L, 5L, 1L, 9L, 5L, 9L, 9L, 9L, 14L, 14L, 14L), Category_name = c("Website Content (9)", 
"Online Presence (14)", "Online Presence (14)", "Online Presence (14)", 
"Online Presence (14)", "Online Presence (14)", "Online Presence (14)", 
"Online Presence (14)", "Online Presence (14)", "Online Presence (14)", 
"Online Presence (14)", "Online Presence (14)", "Website Content (9)", 
"Website Content (9)", "Website Content (9)", "Website Content (9)", 
"Social Presence (2)", "Social Presence (2)", "Web Design (5)", 
"Web Design (5)", "Web Design (5)", "Web Design (5)", "Web Development (1)", 
"Website Content (9)", "Web Design (5)", "Website Content (9)", 
"Website Content (9)", "Website Content (9)", "Online Presence (14)", 
"Online Presence (14)", "Online Presence (14)")), .Names = c("Category", 
"Category_count", "Category_name"), row.names = c(NA, -31L), class = "data.frame")

使用
ggsave
保存饼图：

ggsave("test_pie_chart.svg", width = 5, height = 3, dpi = 300, bg = "transparent")

然后将svg嵌入到html文件中

svg周围有一个边框！我如何摆脱它？
这是一个挑战，亚历克斯！不幸的是，没有参数可以传递给grDevices来控制边界，因此您必须在尝试时设置主题中的透明度。我尝试了以下选项的element_blank（），认为它可以工作：

panel.background = element_blank(),
plot.background = element_blank(),
legend.background = element_rect(fill = 'transparent'),
panel.border = element_blank()) +

也许你可以试一下，确认它是否能正常工作？
我有一个我一直在使用的黑客程序

首先，您需要在
svg
文件中确定绘制边框的违规线的位置。使用文本文件打开输出
svg
文件。它通常位于前20行左右，格式如下：

<rect x='2.26' y='0.00' width='355.47' height='216.00' style='stroke-width: 1.07; stroke: #FFFFFF;'/>



数字可能不同，但这告诉它在坐标（2.26，0）处绘制一个宽度为355.47、高度为216的白色边框矩形

您可以手动删除此行。如果您想自动删除它，请说有问题的行是第15行。然后在绘图后添加以下行

afile
<rect x='2.26' y='0.00' width='355.47' height='216.00' style='stroke-width: 1.07; stroke: #FFFFFF;'/>