library(tidyverse)
ggplot(mpg)+
geom_point(aes(x=displ,y=cty,color=drv))+
geom_line(aes(x=displ,y=cty,color=drv))
以下是结果
现在，我希望图例中的点和线具有不同的 colored颜色 .具体来说，例如，对于DRV为4的分类，点 colored颜色 为红色，线 colored颜色 为绿色，并且要求在图例中显示
Please avoid using 'fill' aesthetics to fill the points and 'color' aesthetics to draw the lines，因为我会对点的形状有要求.
Use package ggnewscale, function new_scale_colour to replace the existing, active scale with another one. See also this SO post and this R-bloggers post .
Two notes:
library(tidyverse)
library(ggnewscale)
clr_lines <- setNames(c("green", "cyan", "magenta"), c("4", "f", "r"))
clr_points <- setNames(c("red", "black", "yellow"), c("4", "f", "r"))
ggplot(mpg) +
geom_line(aes(x = displ, y = cty, color = drv), linewidth = 3) +
scale_color_manual(values = clr_lines) +
# start a new scale
new_scale_colour() +
geom_point(aes(x = displ, y = cty, color = drv)) +
scale_color_manual(values = clr_points)
创建于2023-12-21，共reprex v2.0.2个