ggplot2-scale_colour_manual 和 scale_shape 手动问题

Question

我希望将 4 种颜色（红色、蓝色、绿色和黑色）与 4 种不同的形状（形状编号 15、16、17、19）结合起来。这可以分配这些组合吗？我使用下面的代码做到了，虽然颜色改变了形状没有。

这是到目前为止的代码：

Lplot<- ggplot(totdt, aes(x=X1, y=Y2, color = Sp, fill=Sp)) + geom_polygon(data=zone2, alpha=.1)  + geom_point(size = 3)  
Lplot<- Lplot+ scale_shape_manual(values=c(15,16,17,19, 15,16,17,19, 15,16,17,19, 15,16,17,19 ))
Lplot<- Lplot+ scale_colour_manual(values = c("red", "blue", "green", "black","red", "blue", "green", "black","red", "blue", "green", "black","red", "blue", "green", "black","red" ))

Answer 1

您必须将shape 美学设置为与scale_shape_manual 一起使用。例如：

data('"mtcars"')
cars <- mtcars %>% group_by(gear, cyl = as.factor(cyl)) %>% summarise(n = n())

ggplot(cars, aes(x = gear, y = n)) +
    geom_line(aes(color = cyl)) + geom_point(aes(shape = cyl)) +
    scale_shape_manual(values = c(15, 16, 17)) +
    scale_color_manual(values = c('red', 'blue', 'green'))