r - 在 ggplot2 中围绕 `geom_line` 创建边框

Question

在 geom_point 中，使用 pch = 21 和填充和颜色命令可以轻松地在点 (geom_point) 周围添加黑色边框。

例子:

ggplot(iris, aes(Sepal.Width, Sepal.Length)) +
  geom_point(aes(fill=Species), pch=21, color="black")

但这不适用于线图 (geom_line):

df <- data.frame(Group=rep(c("G1", "G2"), each=3),
                  X_Value= seq(1,3,1),
                  Y_Value=c(6.9, 15, 1.5, 2.2, 12, 29.7))

ggplot(data=df, aes(x=X_Value, y=Y_Value, fill=Group)) +
  geom_line(size=2, aes(colour= Group))+
  geom_point(pch=21, colour= "black", size=4, aes(colour=Group))+
  scale_fill_brewer(palette = "Set1")

#This does not work:

ggplot(data=df, aes(x=X_Value, y=Y_Value, fill=Group)) +
  geom_line(size=2, aes(colour= Group))+
  geom_point(pch=21, colour= "black", size=4, aes(colour=Group))+
  scale_fill_brewer(palette = "Set1")

有没有办法让线图周围也有黑色边框？

Answer 1

一个简单的解决方案是在您已有的线后面绘制一条稍宽的黑线。

library(ggplot2)

df <- data.frame(Group=rep(c("G1", "G2"), each=3),
                 X_Value= seq(1,3,1),
                 Y_Value=c(6.9, 15, 1.5, 2.2, 12, 29.7))

ggplot(data=df, aes(x=X_Value, y=Y_Value, fill=Group)) +
  geom_line(size=2 * 1.5, aes(group= Group), colour = "black")+
  geom_line(size=2, aes(colour= Group))+
  geom_point(pch=21, colour= "black", size=4, aes(colour=Group))+
  scale_fill_brewer(palette = "Set1")

^{由 reprex package 创建于 2022-08-29 (v2.0.0)}

您可能喜欢的另一个解决方案是 {ggborderline}包，虽然我自己没有使用过它。