小编cal*_*lst的帖子

我有一个类似于以下的图，其中线型和形状映射到同一变量。我想保留连接的图例，但希望图例中的点在线上方，以便我可以更好地看到线型。任何帮助表示赞赏。

library(tidyverse)
library(grid)

ggplot(mtcars, aes(gear, mpg, 
                   shape = factor(cyl), 
                   linetype = factor(cyl),
                   color = factor(cyl))) + 
  geom_point(size = 2) +
  stat_summary(fun = mean, geom = "line", size = 1)+
  theme(legend.key.width  = grid::unit(0.5, "inch"))