ggplot2绘制散点图：进阶可视化技巧

p <- ggplot(penguins,aes(bill_length_mm,
                    bill_depth_mm,color=species,fill=species)) +
  geom_point(aes(size = body_mass_g),
             shape = 21,alpha = 0.3)+
  scale_color_manual(values = c("#FBA72A","#78B7C5", "#7294D4")) +
  scale_fill_manual(values = c("#FBA72A","#78B7C5", "#7294D4")) +
  theme_classic()

ggMarginal(p, type = "densigram", groupColour = TRUE, groupFill = TRUE, alpha = 0.5)  # 添加密度图到主图的边缘