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

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

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)

enter image description here

我知道我可以制作两个传说，但这似乎是多余的 . 是否可以将形状的位置移动到图例中线条的末尾？我尝试使用虚线，但这没有多大帮助 .

（*在我的实际代码中，我使用的是scale_colour_brewer）

r ggplot2