r - 如何更改 R 中小提琴图中的边框厚度？

Question

我想增加 R 中小提琴图的边框厚度。我尝试使用 lwd = x，但无论我用什么数字替换 x，它都会变得非常厚。明确地说，我希望实际小提琴的边框更厚。

示例 df：

variable value
group1    26
group1    36
group1    26
group1    26
group1    27
group1    27
group2   100
group2   95
group2   120
group2   135
group2   88
group2   102

我正在使用以下代码绘制图表：

ggplot(df, aes(x = variable, y = value)) + 
  geom_violin(aes(fill = variable)) + 
  stat_summary(fun.y=median, geom="point") + 
  scale_fill_manual(values = c("blue", "green")) + 
  scale_y_continuous(trans = "log2") + 
  ylab("Quantity") + 
  scale_x_discrete(labels = c("group1", "group2")) + 
  theme(legend.position = "none")

我使用lwd如下：+ geom_violin(aes(fill = variable, lwd = 1))但是我替换的任何数字都会使边框非常粗。我只是想要它稍微厚一点。