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

あなたはscale_shape_manualで使用するshape美学を設定する必要があります。たとえば：

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'))