R ggplot2图例中带有组合项目的项目变更单

我使用

ggplot2

绘制散点图，其中包含分组和非分组的

geom_smooth（）

。我希望未分组平滑的条目出现在图例的顶部或底部，但图例是按字母顺序排序的

my.colors <- c('4' = 'red', 'f' = 'green', 'r' = 'blue', 'all' = 'black')
ggplot(mpg, aes(displ, hwy)) +
  geom_point(aes(color = drv), alpha = 1/3) + theme_bw() +
  geom_smooth(aes(color = drv), method = 'lm') +
  geom_smooth(aes(color = 'all'), method = 'lm') +
  scale_color_manual(name = "Drive Types", values = my.colors)

my.colors是否使用中断

my.colors <- c('4' = 'red', 'f' = 'green', 'r' = 'blue', 'all' = 'black')
ggplot(mpg, aes(displ, hwy)) +
  geom_point(aes(color = drv), alpha = 1/3) + theme_bw() +
  geom_smooth(aes(color = drv), method = 'lm') +
  geom_smooth(aes(color = 'all'), method = 'lm') +
  scale_color_manual(name = "Drive Types", values = my.colors, 
                     breaks=c("all", "4", "f", "r"))

my.colors这回答了我的一个类似问题，那就是，“如果我只想展示一些图例怎么办？”在这个例子中，
breaks=c（“all”，“r”）
是我所需要的。