R语言绘制五颜六色的自定义图片布局和多种几何绘图

library(gridExtra)
library(ggplot2)
#建立数据集
df <- data.frame(
  x = c(3, 1, 5),
  y = c(2, 4, 6),
  label = c("a","b","c")
)  

p <- ggplot(df, aes(x, y, label = label)) +
  # 去掉横坐标信息
  labs(x = NULL, y = NULL) +
  # 切换主题
  theme_linedraw()

p1 <- p + geom_point(color='red') + ggtitle("point") 
p2 <- p + geom_text(color='red') + ggtitle("text")
p3 <- p + geom_bar(stat = "identity",fill='red') + ggtitle("bar")
p4 <- p + geom_tile(fill='red') + ggtitle("raster")
p5 <- p + geom_line(color='red') + ggtitle("line")
p6 <- p + geom_area(fill='red') + ggtitle("area")
p7 <- p + geom_path(color='red') + ggtitle("path")
p8 <- p + geom_polygon(fill='red') + ggtitle("polygon")

# 构造ggplot图片列表
plots <- list(p1, p2, p3, p4, p5, p6, p7, p8)
# 自定义图片布局
gridExtra::grid.arrange(grobs = plots, ncol = 4)

p1 <- p + geom_point(color='blue') + ggtitle("point") 
p2 <- p + geom_text(color='blue') + ggtitle("text")
p3 <- p + geom_bar(stat = "identity",fill='blue') + ggtitle("bar")
p4 <- p + geom_tile(fill='blue') + ggtitle("raster")
p5 <- p + geom_line(color='blue') + ggtitle("line")
p6 <- p + geom_area(fill='blue') + ggtitle("area")
p7 <- p + geom_path(color='blue') + ggtitle("path")
p8 <- p + geom_polygon(fill='blue') + ggtitle("polygon")

p1 <- p + geom_point(color='blueviolet') + ggtitle("point") 
p2 <- p + geom_text(color='blueviolet') + ggtitle("text")
p3 <- p + geom_bar(stat = "identity",fill='blueviolet') + ggtitle("bar")
p4 <- p + geom_tile(fill='blueviolet') + ggtitle("raster")
p5 <- p + geom_line(color='blueviolet') + ggtitle("line")
p6 <- p + geom_area(fill='blueviolet') + ggtitle("area")
p7 <- p + geom_path(color='blueviolet') + ggtitle("path")
p8 <- p + geom_polygon(fill='blueviolet') + ggtitle("polygon")

p1 <- p + geom_point(color='brown') + ggtitle("point") 
p2 <- p + geom_text(color='brown') + ggtitle("text")
p3 <- p + geom_bar(stat = "identity",fill='brown') + ggtitle("bar")
p4 <- p + geom_tile(fill='brown') + ggtitle("raster")
p5 <- p + geom_line(color='brown') + ggtitle("line")
p6 <- p + geom_area(fill='brown') + ggtitle("area")
p7 <- p + geom_path(color='brown') + ggtitle("path")
p8 <- p + geom_polygon(fill='brown') + ggtitle("polygon")

p1 <- p + geom_point(color='cadetblue') + ggtitle("point") 
p2 <- p + geom_text(color='cadetblue') + ggtitle("text")
p3 <- p + geom_bar(stat = "identity",fill='cadetblue') + ggtitle("bar")
p4 <- p + geom_tile(fill='cadetblue') + ggtitle("raster")
p5 <- p + geom_line(color='cadetblue') + ggtitle("line")
p6 <- p + geom_area(fill='cadetblue') + ggtitle("area")
p7 <- p + geom_path(color='cadetblue') + ggtitle("path")
p8 <- p + geom_polygon(fill='cadetblue') + ggtitle("polygon")

p1 <- p + geom_point(color='chartreuse') + ggtitle("point") 
p2 <- p + geom_text(color='chartreuse') + ggtitle("text")
p3 <- p + geom_bar(stat = "identity",fill='chartreuse') + ggtitle("bar")
p4 <- p + geom_tile(fill='chartreuse') + ggtitle("raster")
p5 <- p + geom_line(color='chartreuse') + ggtitle("line")
p6 <- p + geom_area(fill='chartreuse') + ggtitle("area")
p7 <- p + geom_path(color='chartreuse') + ggtitle("path")
p8 <- p + geom_polygon(fill='chartreuse') + ggtitle("polygon")

p1 <- p + geom_point(color='cornflowerblue') + ggtitle("point") 
p2 <- p + geom_text(color='cornflowerblue') + ggtitle("text")
p3 <- p + geom_bar(stat = "identity",fill='cornflowerblue') + ggtitle("bar")
p4 <- p + geom_tile(fill='cornflowerblue') + ggtitle("raster")
p5 <- p + geom_line(color='cornflowerblue') + ggtitle("line")
p6 <- p + geom_area(fill='cornflowerblue') + ggtitle("area")
p7 <- p + geom_path(color='cornflowerblue') + ggtitle("path")
p8 <- p + geom_polygon(fill='cornflowerblue') + ggtitle("polygon")

p1 <- p + geom_point(color='cyan') + ggtitle("point") 
p2 <- p + geom_text(color='cyan') + ggtitle("text")
p3 <- p + geom_bar(stat = "identity",fill='cyan') + ggtitle("bar")
p4 <- p + geom_tile(fill='cyan') + ggtitle("raster")
p5 <- p + geom_line(color='cyan') + ggtitle("line")
p6 <- p + geom_area(fill='cyan') + ggtitle("area")
p7 <- p + geom_path(color='cyan') + ggtitle("path")
p8 <- p + geom_polygon(fill='cyan') + ggtitle("polygon")

p1 <- p + geom_point(color='darkblue') + ggtitle("point") 
p2 <- p + geom_text(color='darkblue') + ggtitle("text")
p3 <- p + geom_bar(stat = "identity",fill='darkblue') + ggtitle("bar")
p4 <- p + geom_tile(fill='darkblue') + ggtitle("raster")
p5 <- p + geom_line(color='darkblue') + ggtitle("line")
p6 <- p + geom_area(fill='darkblue') + ggtitle("area")
p7 <- p + geom_path(color='darkblue') + ggtitle("path")
p8 <- p + geom_polygon(fill='darkblue') + ggtitle("polygon")

p1 <- p + geom_point(color='darkcyan') + ggtitle("point") 
p2 <- p + geom_text(color='darkcyan') + ggtitle("text")
p3 <- p + geom_bar(stat = "identity",fill='darkcyan') + ggtitle("bar")
p4 <- p + geom_tile(fill='darkcyan') + ggtitle("raster")
p5 <- p + geom_line(color='darkcyan') + ggtitle("line")
p6 <- p + geom_area(fill='darkcyan') + ggtitle("area")
p7 <- p + geom_path(color='darkcyan') + ggtitle("path")
p8 <- p + geom_polygon(fill='darkcyan') + ggtitle("polygon")

p1 <- p + geom_point(color='darkgoldenrod') + ggtitle("point") 
p2 <- p + geom_text(color='darkgoldenrod') + ggtitle("text")
p3 <- p + geom_bar(stat = "identity",fill='darkgoldenrod') + ggtitle("bar")
p4 <- p + geom_tile(fill='darkgoldenrod') + ggtitle("raster")
p5 <- p + geom_line(color='darkgoldenrod') + ggtitle("line")
p6 <- p + geom_area(fill='darkgoldenrod') + ggtitle("area")
p7 <- p + geom_path(color='darkgoldenrod') + ggtitle("path")
p8 <- p + geom_polygon(fill='darkgoldenrod') + ggtitle("polygon")

p1 <- p + geom_point(color='darkgray') + ggtitle("point") 
p2 <- p + geom_text(color='darkgray') + ggtitle("text")
p3 <- p + geom_bar(stat = "identity",fill='darkgray') + ggtitle("bar")
p4 <- p + geom_tile(fill='darkgray') + ggtitle("raster")
p5 <- p + geom_line(color='darkgray') + ggtitle("line")
p6 <- p + geom_area(fill='darkgray') + ggtitle("area")
p7 <- p + geom_path(color='darkgray') + ggtitle("path")
p8 <- p + geom_polygon(fill='darkgray') + ggtitle("polygon")

p1 <- p + geom_point(color='darkgreen') + ggtitle("point") 
p2 <- p + geom_text(color='darkgreen') + ggtitle("text")
p3 <- p + geom_bar(stat = "identity",fill='darkgreen') + ggtitle("bar")
p4 <- p + geom_tile(fill='darkgreen') + ggtitle("raster")
p5 <- p + geom_line(color='darkgreen') + ggtitle("line")
p6 <- p + geom_area(fill='darkgreen') + ggtitle("area")
p7 <- p + geom_path(color='darkgreen') + ggtitle("path")
p8 <- p + geom_polygon(fill='darkgreen') + ggtitle("polygon")

p1 <- p + geom_point(color='darkkhaki') + ggtitle("point") 
p2 <- p + geom_text(color='darkkhaki') + ggtitle("text")
p3 <- p + geom_bar(stat = "identity",fill='darkkhaki') + ggtitle("bar")
p4 <- p + geom_tile(fill='darkkhaki') + ggtitle("raster")
p5 <- p + geom_line(color='darkkhaki') + ggtitle("line")
p6 <- p + geom_area(fill='darkkhaki') + ggtitle("area")
p7 <- p + geom_path(color='darkkhaki') + ggtitle("path")
p8 <- p + geom_polygon(fill='darkkhaki') + ggtitle("polygon")

p1 <- p + geom_point(color='darkmagenta') + ggtitle("point") 
p2 <- p + geom_text(color='darkmagenta') + ggtitle("text")
p3 <- p + geom_bar(stat = "identity",fill='darkmagenta') + ggtitle("bar")
p4 <- p + geom_tile(fill='darkmagenta') + ggtitle("raster")
p5 <- p + geom_line(color='darkmagenta') + ggtitle("line")
p6 <- p + geom_area(fill='darkmagenta') + ggtitle("area")
p7 <- p + geom_path(color='darkmagenta') + ggtitle("path")
p8 <- p + geom_polygon(fill='darkmagenta') + ggtitle("polygon")

p1 <- p + geom_point(color='darkolivegreen') + ggtitle("point") 
p2 <- p + geom_text(color='darkolivegreen') + ggtitle("text")
p3 <- p + geom_bar(stat = "identity",fill='darkolivegreen') + ggtitle("bar")
p4 <- p + geom_tile(fill='darkolivegreen') + ggtitle("raster")
p5 <- p + geom_line(color='darkolivegreen') + ggtitle("line")
p6 <- p + geom_area(fill='darkolivegreen') + ggtitle("area")
p7 <- p + geom_path(color='darkolivegreen') + ggtitle("path")
p8 <- p + geom_polygon(fill='darkolivegreen') + ggtitle("polygon")

p1 <- p + geom_point(color='darkorange') + ggtitle("point") 
p2 <- p + geom_text(color='darkorange') + ggtitle("text")
p3 <- p + geom_bar(stat = "identity",fill='darkorange') + ggtitle("bar")
p4 <- p + geom_tile(fill='darkorange') + ggtitle("raster")
p5 <- p + geom_line(color='darkorange') + ggtitle("line")
p6 <- p + geom_area(fill='darkorange') + ggtitle("area")
p7 <- p + geom_path(color='darkorange') + ggtitle("path")
p8 <- p + geom_polygon(fill='darkorange') + ggtitle("polygon")

p1 <- p + geom_point(color='darkorchid') + ggtitle("point") 
p2 <- p + geom_text(color='darkorchid') + ggtitle("text")
p3 <- p + geom_bar(stat = "identity",fill='darkorchid') + ggtitle("bar")
p4 <- p + geom_tile(fill='darkorchid') + ggtitle("raster")
p5 <- p + geom_line(color='darkorchid') + ggtitle("line")
p6 <- p + geom_area(fill='darkorchid') + ggtitle("area")
p7 <- p + geom_path(color='darkorchid') + ggtitle("path")
p8 <- p + geom_polygon(fill='darkorchid') + ggtitle("polygon")

p1 <- p + geom_point(color='darkred') + ggtitle("point") 
p2 <- p + geom_text(color='darkred') + ggtitle("text")
p3 <- p + geom_bar(stat = "identity",fill='darkred') + ggtitle("bar")
p4 <- p + geom_tile(fill='darkred') + ggtitle("raster")
p5 <- p + geom_line(color='darkred') + ggtitle("line")
p6 <- p + geom_area(fill='darkred') + ggtitle("area")
p7 <- p + geom_path(color='darkred') + ggtitle("path")
p8 <- p + geom_polygon(fill='darkred') + ggtitle("polygon")

p1 <- p + geom_point(color='darkslateblue') + ggtitle("point") 
p2 <- p + geom_text(color='darkslateblue') + ggtitle("text")
p3 <- p + geom_bar(stat = "identity",fill='darkslateblue') + ggtitle("bar")
p4 <- p + geom_tile(fill='darkslateblue') + ggtitle("raster")
p5 <- p + geom_line(color='darkslateblue') + ggtitle("line")
p6 <- p + geom_area(fill='darkslateblue') + ggtitle("area")
p7 <- p + geom_path(color='darkslateblue') + ggtitle("path")
p8 <- p + geom_polygon(fill='darkslateblue') + ggtitle("polygon")

p1 <- p + geom_point(color='darkslategray') + ggtitle("point") 
p2 <- p + geom_text(color='darkslategray') + ggtitle("text")
p3 <- p + geom_bar(stat = "identity",fill='darkslategray') + ggtitle("bar")
p4 <- p + geom_tile(fill='darkslategray') + ggtitle("raster")
p5 <- p + geom_line(color='darkslategray') + ggtitle("line")
p6 <- p + geom_area(fill='darkslategray') + ggtitle("area")
p7 <- p + geom_path(color='darkslategray') + ggtitle("path")
p8 <- p + geom_polygon(fill='darkslategray') + ggtitle("polygon")

p1 <- p + geom_point(color='darkviolet') + ggtitle("point") 
p2 <- p + geom_text(color='darkviolet') + ggtitle("text")
p3 <- p + geom_bar(stat = "identity",fill='darkviolet') + ggtitle("bar")
p4 <- p + geom_tile(fill='darkviolet') + ggtitle("raster")
p5 <- p + geom_line(color='darkviolet') + ggtitle("line")
p6 <- p + geom_area(fill='darkviolet') + ggtitle("area")
p7 <- p + geom_path(color='darkviolet') + ggtitle("path")
p8 <- p + geom_polygon(fill='darkviolet') + ggtitle("polygon")

p1 <- p + geom_point(color='deeppink') + ggtitle("point") 
p2 <- p + geom_text(color='deeppink') + ggtitle("text")
p3 <- p + geom_bar(stat = "identity",fill='deeppink') + ggtitle("bar")
p4 <- p + geom_tile(fill='deeppink') + ggtitle("raster")
p5 <- p + geom_line(color='deeppink') + ggtitle("line")
p6 <- p + geom_area(fill='deeppink') + ggtitle("area")
p7 <- p + geom_path(color='deeppink') + ggtitle("path")
p8 <- p + geom_polygon(fill='deeppink') + ggtitle("polygon")

p1 <- p + geom_point(color='deepskyblue') + ggtitle("point") 
p2 <- p + geom_text(color='deepskyblue') + ggtitle("text")
p3 <- p + geom_bar(stat = "identity",fill='deepskyblue') + ggtitle("bar")
p4 <- p + geom_tile(fill='deepskyblue') + ggtitle("raster")
p5 <- p + geom_line(color='deepskyblue') + ggtitle("line")
p6 <- p + geom_area(fill='deepskyblue') + ggtitle("area")
p7 <- p + geom_path(color='deepskyblue') + ggtitle("path")
p8 <- p + geom_polygon(fill='deepskyblue') + ggtitle("polygon")

p1 <- p + geom_point(color='dimgray') + ggtitle("point") 
p2 <- p + geom_text(color='dimgray') + ggtitle("text")
p3 <- p + geom_bar(stat = "identity",fill='dimgray') + ggtitle("bar")
p4 <- p + geom_tile(fill='dimgray') + ggtitle("raster")
p5 <- p + geom_line(color='dimgray') + ggtitle("line")
p6 <- p + geom_area(fill='dimgray') + ggtitle("area")
p7 <- p + geom_path(color='dimgray') + ggtitle("path")
p8 <- p + geom_polygon(fill='dimgray') + ggtitle("polygon")

p1 <- p + geom_point(color='dodgerblue') + ggtitle("point") 
p2 <- p + geom_text(color='dodgerblue') + ggtitle("text")
p3 <- p + geom_bar(stat = "identity",fill='dodgerblue') + ggtitle("bar")
p4 <- p + geom_tile(fill='dodgerblue') + ggtitle("raster")
p5 <- p + geom_line(color='dodgerblue') + ggtitle("line")
p6 <- p + geom_area(fill='dodgerblue') + ggtitle("area")
p7 <- p + geom_path(color='dodgerblue') + ggtitle("path")
p8 <- p + geom_polygon(fill='dodgerblue') + ggtitle("polygon")

p1 <- p + geom_point(color='firebrick') + ggtitle("point") 
p2 <- p + geom_text(color='firebrick') + ggtitle("text")
p3 <- p + geom_bar(stat = "identity",fill='firebrick') + ggtitle("bar")
p4 <- p + geom_tile(fill='firebrick') + ggtitle("raster")
p5 <- p + geom_line(color='firebrick') + ggtitle("line")
p6 <- p + geom_area(fill='firebrick') + ggtitle("area")
p7 <- p + geom_path(color='firebrick') + ggtitle("path")
p8 <- p + geom_polygon(fill='firebrick') + ggtitle("polygon")

p1 <- p + geom_point(color='forestgreen') + ggtitle("point") 
p2 <- p + geom_text(color='forestgreen') + ggtitle("text")
p3 <- p + geom_bar(stat = "identity",fill='forestgreen') + ggtitle("bar")
p4 <- p + geom_tile(fill='forestgreen') + ggtitle("raster")
p5 <- p + geom_line(color='forestgreen') + ggtitle("line")
p6 <- p + geom_area(fill='forestgreen') + ggtitle("area")
p7 <- p + geom_path(color='forestgreen') + ggtitle("path")
p8 <- p + geom_polygon(fill='forestgreen') + ggtitle("polygon")

p1 <- p + geom_point(color='gold') + ggtitle("point") 
p2 <- p + geom_text(color='gold') + ggtitle("text")
p3 <- p + geom_bar(stat = "identity",fill='gold') + ggtitle("bar")
p4 <- p + geom_tile(fill='gold') + ggtitle("raster")
p5 <- p + geom_line(color='gold') + ggtitle("line")
p6 <- p + geom_area(fill='gold') + ggtitle("area")
p7 <- p + geom_path(color='gold') + ggtitle("path")
p8 <- p + geom_polygon(fill='gold') + ggtitle("polygon")

p1 <- p + geom_point(color='goldenrod') + ggtitle("point") 
p2 <- p + geom_text(color='goldenrod') + ggtitle("text")
p3 <- p + geom_bar(stat = "identity",fill='goldenrod') + ggtitle("bar")
p4 <- p + geom_tile(fill='goldenrod') + ggtitle("raster")
p5 <- p + geom_line(color='goldenrod') + ggtitle("line")
p6 <- p + geom_area(fill='goldenrod') + ggtitle("area")
p7 <- p + geom_path(color='goldenrod') + ggtitle("path")
p8 <- p + geom_polygon(fill='goldenrod') + ggtitle("polygon")

p1 <- p + geom_point(color='green') + ggtitle("point") 
p2 <- p + geom_text(color='green') + ggtitle("text")
p3 <- p + geom_bar(stat = "identity",fill='green') + ggtitle("bar")
p4 <- p + geom_tile(fill='green') + ggtitle("raster")
p5 <- p + geom_line(color='green') + ggtitle("line")
p6 <- p + geom_area(fill='green') + ggtitle("area")
p7 <- p + geom_path(color='green') + ggtitle("path")
p8 <- p + geom_polygon(fill='green') + ggtitle("polygon")

p1 <- p + geom_point(color='hotpink') + ggtitle("point") 
p2 <- p + geom_text(color='hotpink') + ggtitle("text")
p3 <- p + geom_bar(stat = "identity",fill='hotpink') + ggtitle("bar")
p4 <- p + geom_tile(fill='hotpink') + ggtitle("raster")
p5 <- p + geom_line(color='hotpink') + ggtitle("line")
p6 <- p + geom_area(fill='hotpink') + ggtitle("area")
p7 <- p + geom_path(color='hotpink') + ggtitle("path")
p8 <- p + geom_polygon(fill='hotpink') + ggtitle("polygon")

p1 <- p + geom_point(color='indianred') + ggtitle("point") 
p2 <- p + geom_text(color='indianred') + ggtitle("text")
p3 <- p + geom_bar(stat = "identity",fill='indianred') + ggtitle("bar")
p4 <- p + geom_tile(fill='indianred') + ggtitle("raster")
p5 <- p + geom_line(color='indianred') + ggtitle("line")
p6 <- p + geom_area(fill='indianred') + ggtitle("area")
p7 <- p + geom_path(color='indianred') + ggtitle("path")
p8 <- p + geom_polygon(fill='indianred') + ggtitle("polygon")

p1 <- p + geom_point(color='magenta') + ggtitle("point") 
p2 <- p + geom_text(color='magenta') + ggtitle("text")
p3 <- p + geom_bar(stat = "identity",fill='magenta') + ggtitle("bar")
p4 <- p + geom_tile(fill='magenta') + ggtitle("raster")
p5 <- p + geom_line(color='magenta') + ggtitle("line")
p6 <- p + geom_area(fill='magenta') + ggtitle("area")
p7 <- p + geom_path(color='magenta') + ggtitle("path")
p8 <- p + geom_polygon(fill='magenta') + ggtitle("polygon")

p1 <- p + geom_point(color='maroon') + ggtitle("point") 
p2 <- p + geom_text(color='maroon') + ggtitle("text")
p3 <- p + geom_bar(stat = "identity",fill='maroon') + ggtitle("bar")
p4 <- p + geom_tile(fill='maroon') + ggtitle("raster")
p5 <- p + geom_line(color='maroon') + ggtitle("line")
p6 <- p + geom_area(fill='maroon') + ggtitle("area")
p7 <- p + geom_path(color='maroon') + ggtitle("path")
p8 <- p + geom_polygon(fill='maroon') + ggtitle("polygon")

p1 <- p + geom_point(color='steelblue') + ggtitle("point") 
p2 <- p + geom_text(color='steelblue') + ggtitle("text")
p3 <- p + geom_bar(stat = "identity",fill='steelblue') + ggtitle("bar")
p4 <- p + geom_tile(fill='steelblue') + ggtitle("raster")
p5 <- p + geom_line(color='steelblue') + ggtitle("line")
p6 <- p + geom_area(fill='steelblue') + ggtitle("area")
p7 <- p + geom_path(color='steelblue') + ggtitle("path")
p8 <- p + geom_polygon(fill='steelblue') + ggtitle("polygon")

开发工具:RStudio 2023.06.1 Build 524
微信Alt+A截屏工具
参考文献:https://blog.csdn.net/weixin_46587777/article/details/124973766