R 带有形状和线型的图例不清晰

我正在绘制一个图，在图中我区分了两类数据。除了颜色*，我想使用点的形状和平滑的线型，以便打印是打印机等友好

情节很好，但图例很难——点几乎完美地填补了虚线中的空白

library(tidyverse)

set.seed(44)
data_frame(x = rep(1:10, 2), y = rnorm(20), z = gl(n = 2, k = 10)) %>% 
  ggplot(aes(x = x, y = y, colour = z, shape = z, linetype = z)) +
  geom_point() +
  geom_smooth(se = FALSE)

我知道我可以创造两个传奇，但这似乎是多余的。是否可以将形状的位置移动到图例中线条的末端？我试着用虚线，但没有多大帮助

---

（*在我的实际代码中，我使用的是scale\u color\u brewer）

一个选项是改变痕迹本身的大小，以及图例的大小，以使事情更加清楚。例如，

geom_平滑（se=FALSE，size=0.5）+主题（legend.key.width=unit（1，'cm'））

。另一种方法是放弃自动图例，使用geom_线、geom_点和geom绘制自己的图例_text@dww谢谢

legend.key.width

可以满足我的需求