ggplot合併兩個疊加圖的形狀在傳說

Question

我有一個類似的問題，也提出了在這裏：How to merge color, line style and shape legends in ggplot

我想從虹膜數據集與我進行了聚類在一起繪製物種。爲簡單起見，我們假設通過

c(rep(1,45),rep(2,59),rep(3,46))) 

不知何故給出的集羣IST，從上面引述的帖子建議不要對我

library(ggplot2) 
library(scales) 

ggplot(iris, aes(Petal.Length, Petal.Width, color = Species)) + 
geom_point(shape = 18, size = 7) + 
geom_point(shape = 15, size = 3,data = iris, 
    aes(iris$Petal.Length, iris$Petal.Width, 
     color = as.factor(c(rep(1,45),rep(2,59),rep(3,46))))) + 
scale_color_manual(values=rep(alpha(c("#00B6EB","#F8766D", "#53B400"),0.5),2)) + 
scale_shape_manual("",values=c(18,18,18,15,15,15)) 

在傳說中的工作，我想塑造15（盒）用於物種的羣集1,2,3和18（鑽石）。

Answer 1

這裏是一個非常不雅的解決方案：

library(ggplot2) 
library(scales) 
iris$clust <- factor(c(rep(1,45),rep(2,59),rep(3,46))) 

p <- ggplot(iris, aes(Petal.Length, Petal.Width, color = Species))+ 
geom_point(shape=18, size=7) + 
geom_point(shape=15, size=3, data=iris, 
      aes(iris$Petal.Length, iris$Petal.Width, color=clust)) + 
scale_color_manual(values=rep(alpha(c("#00B6EB","#F8766D", "#53B400"),0.5),2))+ 
scale_shape_manual("",values=c(18,18,18,15,15,15)) 

# Generate a ggplot2 plot grob 
g <- ggplotGrob(p) 

# Set the color of unwanted shapes in legend to background color 
g$grobs[[15]][[1]][[1]][[1]][[4]]$gp$col <- NA 
g$grobs[[15]][[1]][[1]][[1]][[7]]$gp$col <- NA 
g$grobs[[15]][[1]][[1]][[1]][[10]]$gp$col <- NA 

g$grobs[[15]][[1]][[1]][[1]][[14]]$gp$col <- NA 
g$grobs[[15]][[1]][[1]][[1]][[17]]$gp$col <- NA 
g$grobs[[15]][[1]][[1]][[1]][[20]]$gp$col <- NA 

library(grid) 
grid.draw(g)