R语言根据不同颜色十六进制值绘制带边缘密度图的分组散点图

ggscatterhist(
  iris, x = "Sepal.Length", y = "Sepal.Width",
  color = "Species", size = 3, alpha = 0.6,
  palette = c("#B22222", "#FFFAF0", "#228B22"),
  margin.params = list(fill = "Species", color = "black", size = 0.2)
)

ggscatterhist(
  iris, x = "Sepal.Length", y = "Sepal.Width",
  color = "Species", size = 3, alpha = 0.6,
  palette = c("#FF00FF", "#DCDCDC", "#F8F8FF"),
  margin.params = list(fill = "Species", color = "black", size = 0.2)
)

ggscatterhist(
  iris, x = "Sepal.Length", y = "Sepal.Width",
  color = "Species", size = 3, alpha = 0.6,
  palette = c("#FFD700", "#DAA520", "#808080"),
  margin.params = list(fill = "Species", color = "black", size = 0.2)
)

ggscatterhist(
  iris, x = "Sepal.Length", y = "Sepal.Width",
  color = "Species", size = 3, alpha = 0.6,
  palette = c("#008000", "#ADFF2F", "#F0FFF0"),
  margin.params = list(fill = "Species", color = "black", size = 0.2)
)

ggscatterhist(
  iris, x = "Sepal.Length", y = "Sepal.Width",
  color = "Species", size = 3, alpha = 0.6,
  palette = c("#FF69B4", "#CD5C5C", "#4B0082"),
  margin.params = list(fill = "Species", color = "black", size = 0.2)
)

ggscatterhist(
  iris, x = "Sepal.Length", y = "Sepal.Width",
  color = "Species", size = 3, alpha = 0.6,
  palette = c("#FFFFF0", "#F0E68C", "#E6E6FA"),
  margin.params = list(fill = "Species", color = "black", size = 0.2)
)

ggscatterhist(
  iris, x = "Sepal.Length", y = "Sepal.Width",
  color = "Species", size = 3, alpha = 0.6,
  palette = c("#FFF0F5", "#7CFC00", "#FFFACD"),
  margin.params = list(fill = "Species", color = "black", size = 0.2)
)

ggscatterhist(
  iris, x = "Sepal.Length", y = "Sepal.Width",
  color = "Species", size = 3, alpha = 0.6,
  palette = c("#ADD8E6", "#F08080", "#E0FFFF"),
  margin.params = list(fill = "Species", color = "black", size = 0.2)
)

ggscatterhist(
  iris, x = "Sepal.Length", y = "Sepal.Width",
  color = "Species", size = 3, alpha = 0.6,
  palette = c("#FAFAD2", "#90EE90", "#D3D3D3"),
  margin.params = list(fill = "Species", color = "black", size = 0.2)
)

ggscatterhist(
  iris, x = "Sepal.Length", y = "Sepal.Width",
  color = "Species", size = 3, alpha = 0.6,
  palette = c("#FFB6C1", "#FFA07A", "#20B2AA"),
  margin.params = list(fill = "Species", color = "black", size = 0.2)
)

ggscatterhist(
  iris, x = "Sepal.Length", y = "Sepal.Width",
  color = "Species", size = 3, alpha = 0.6,
  palette = c("#87CEFA", "#778899", "#B0C4DE"),
  margin.params = list(fill = "Species", color = "black", size = 0.2)
)

ggscatterhist(
  iris, x = "Sepal.Length", y = "Sepal.Width",
  color = "Species", size = 3, alpha = 0.6,
  palette = c("#FFFFE0", "#00FF00", "#32CD32"),
  margin.params = list(fill = "Species", color = "black", size = 0.2)
)

ggscatterhist(
  iris, x = "Sepal.Length", y = "Sepal.Width",
  color = "Species", size = 3, alpha = 0.6,
  palette = c("#FAF0E6", "#FF00FF", "#800000"),
  margin.params = list(fill = "Species", color = "black", size = 0.2)
)

ggscatterhist(
  iris, x = "Sepal.Length", y = "Sepal.Width",
  color = "Species", size = 3, alpha = 0.6,
  palette = c("#66CDAA", "#0000CD", "#BA55D3"),
  margin.params = list(fill = "Species", color = "black", size = 0.2)
)

ggscatterhist(
  iris, x = "Sepal.Length", y = "Sepal.Width",
  color = "Species", size = 3, alpha = 0.6,
  palette = c("#9370DB", "#3CB371", "#7B68EE"),
  margin.params = list(fill = "Species", color = "black", size = 0.2)
)

ggscatterhist(
  iris, x = "Sepal.Length", y = "Sepal.Width",
  color = "Species", size = 3, alpha = 0.6,
  palette = c("#00FA9A", "#48D1CC", "#C71585"),
  margin.params = list(fill = "Species", color = "black", size = 0.2)
)

ggscatterhist(
  iris, x = "Sepal.Length", y = "Sepal.Width",
  color = "Species", size = 3, alpha = 0.6,
  palette = c("#191970", "#F5FFFA", "#FFE4E1"),
  margin.params = list(fill = "Species", color = "black", size = 0.2)
)

ggscatterhist(
  iris, x = "Sepal.Length", y = "Sepal.Width",
  color = "Species", size = 3, alpha = 0.6,
  palette = c("#FFE4B5", "#FFDEAD", "#000080"),
  margin.params = list(fill = "Species", color = "black", size = 0.2)
)

ggscatterhist(
  iris, x = "Sepal.Length", y = "Sepal.Width",
  color = "Species", size = 3, alpha = 0.6,
  palette = c("#6B8E23", "#FDF5E6", "#808000"),
  margin.params = list(fill = "Species", color = "black", size = 0.2)
)

ggscatterhist(
  iris, x = "Sepal.Length", y = "Sepal.Width",
  color = "Species", size = 3, alpha = 0.6,
  palette = c("#FFA500", "#FF4500", "#DA70D6"),
  margin.params = list(fill = "Species", color = "black", size = 0.2)
)

ggscatterhist(
  iris, x = "Sepal.Length", y = "Sepal.Width",
  color = "Species", size = 3, alpha = 0.6,
  palette = c("#EEE8AA", "#98FB98", "#AFEEEE"),
  margin.params = list(fill = "Species", color = "black", size = 0.2)
)

ggscatterhist(
  iris, x = "Sepal.Length", y = "Sepal.Width",
  color = "Species", size = 3, alpha = 0.6,
  palette = c("#DB7093", "#FFEFD5", "#FFDAB9"),
  margin.params = list(fill = "Species", color = "black", size = 0.2)
)

ggscatterhist(
  iris, x = "Sepal.Length", y = "Sepal.Width",
  color = "Species", size = 3, alpha = 0.6,
  palette = c("#CD853F", "#FFC0CB", "#DDA0DD"),
  margin.params = list(fill = "Species", color = "black", size = 0.2)
)

ggscatterhist(
  iris, x = "Sepal.Length", y = "Sepal.Width",
  color = "Species", size = 3, alpha = 0.6,
  palette = c("#B0E0E6", "#800080", "#FF0000"),
  margin.params = list(fill = "Species", color = "black", size = 0.2)
)

ggscatterhist(
  iris, x = "Sepal.Length", y = "Sepal.Width",
  color = "Species", size = 3, alpha = 0.6,
  palette = c("#BC8F8F", "#4169E1", "#8B4513"),
  margin.params = list(fill = "Species", color = "black", size = 0.2)
)

ggscatterhist(
  iris, x = "Sepal.Length", y = "Sepal.Width",
  color = "Species", size = 3, alpha = 0.6,
  palette = c("#FA8072", "#F4A460", "#2E8B57"),
  margin.params = list(fill = "Species", color = "black", size = 0.2)
)

ggscatterhist(
  iris, x = "Sepal.Length", y = "Sepal.Width",
  color = "Species", size = 3, alpha = 0.6,
  palette = c("#FFF5EE", "#A0522D", "#C0C0C0"),
  margin.params = list(fill = "Species", color = "black", size = 0.2)
)

参考文献：

https://blog.csdn.net/m0_38127487/article/details/125502889

开发环境: RStudio 微信截屏工具