如何避免在同一散点图上使用geom_vline()和geom_hline在图例中产生交叉效应？

library(ggplot2)

# 创建数据集
data <- data.frame(x = rnorm(100), y = rnorm(100))

# 添加垂直线和水平线
p <- ggplot(data, aes(x = x, y = y)) +
  geom_point() +
  geom_vline(xintercept = 0, linetype = "dashed", color = "red") +
  geom_hline(yintercept = 0, linetype = "dashed", color = "blue")

# 自定义图例
p + guides(colour = guide_legend(override.aes = list(linetype = c("blank", "blank", "dashed", "dashed"),
                                                      shape = c(NA, NA, 19, 19),
                                                      size = c(0.5, 0.5, 0.5, 0.5),
                                                      color = c("red", "blue", "red", "blue"))))