形状和线型不清楚的传奇

Question

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

情节很好，但传说很难 - 这一点几乎完美地填补了虚线中的空白。

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_colour_brewer）