使用ggarange()时，隐藏绘图并仅显示某些绘图的图例

library(ggplot2)

data <- data.frame(
  x = c(1, 2, 3, 4, 5),
  y1 = c(2, 4, 6, 8, 10),
  y2 = c(1, 3, 5, 7, 9),
  y3 = c(3, 6, 9, 12, 15)
)

plot <- ggplot(data, aes(x = x))

plot <- plot + geom_line(aes(y = y1), color = "blue")
plot <- plot + geom_line(aes(y = y2), color = "red")
plot <- plot + geom_line(aes(y = y3), color = "green")

plot <- plot + guides(color = guide_legend(override.aes = list(
  linetype = c("solid", "blank", "solid"),
  shape = c(16, NA, 16)
)))

print(plot)