如何在 R 中组合多个 ggplot2 图?
在本文中,我们将讨论如何在 R 编程语言中组合多个 ggplot2 绘图。
使用“+”号将多个 ggplot2图组合到最终图
在这种组合多个绘图的方法中,用户可以在单个绘图中添加不同类型的绘图或具有不同数据的绘图,用户只需使用“+”号将绘图与每个绘图合并为最终绘图,此外,最终的绘图将是 R 编程语言中单个 ggplot2 绘图中多个绘图的组合。
语法:
ggplot(NULL, aes(x, y)) +geom_line(data 1)+geom_line(data 2)+……+geom_line(data n)
示例 1:
在此示例中,我们将使用“+”符号形式将 3 个 ggplot2 线图与不同的数据组合在一起,并将它们组合成 R 编程语言中的单个图。
R
# load the package
library("ggplot2")
# create dataframe
gfg1 < -data.frame(x=c(4, 5, 1, 7, 8),
y=c(1, 4, 8, 6, 9))
# create dataframe
gfg2 < -data.frame(x=c(5, 1, 4, 3, 7),
y=c(7, 8, 9, 1, 2))
# create dataframe
gfg3 < -data.frame(x=c(4, 8, 6, 3, 5),
y=c(3, 4, 5, 8, 7))
# plot the data with dataframes with green
# red and blue colors
gfg_plot < -ggplot(NULL, aes(x, y)) +
geom_line(data=gfg1, col="green") +
geom_line(data=gfg2, col="blue")+
geom_line(data=gfg3, col="red")
# display the plot
gfg_plot
R
# load the package
library("ggplot2")
# create 5 dataframes
gfg1 < -data.frame(x=c(4, 5, 1, 7, 8),
y=c(1, 4, 8, 6, 9))
gfg2 < -data.frame(x=c(5, 1, 4, 3, 7),
y=c(7, 8, 9, 1, 2))
gfg3 < -data.frame(x=c(4, 8, 6, 3, 5),
y=c(3, 4, 5, 8, 7))
gfg4 < -data.frame(x=c(8, 6, 7, 2, 1),
y=c(8, 6, 4, 1, 9))
gfg5 < -data.frame(x=c(6, 1, 6, 5, 4),
y=c(6, 8, 7, 6, 4))
# plot the data with 5 dataframes
# with 5 different colors
gfg_plot < -ggplot(NULL, aes(x, y)) +
geom_line(data=gfg1, col="green") +
geom_line(data=gfg2, col="blue")+
geom_line(data=gfg3, col="red")+
geom_point(data=gfg4, col="purple") +
geom_point(data=gfg5, col="black")
# display the plot
gfg_plot
输出:
示例 2:
在这个例子中,我们将结合 3 个 ggplot2 线图和 2 个散点图 ggplot2 共 5 个具有不同数据的图,使用“+”符号形式将它们组合成 R 编程语言中的单个图。
R
# load the package
library("ggplot2")
# create 5 dataframes
gfg1 < -data.frame(x=c(4, 5, 1, 7, 8),
y=c(1, 4, 8, 6, 9))
gfg2 < -data.frame(x=c(5, 1, 4, 3, 7),
y=c(7, 8, 9, 1, 2))
gfg3 < -data.frame(x=c(4, 8, 6, 3, 5),
y=c(3, 4, 5, 8, 7))
gfg4 < -data.frame(x=c(8, 6, 7, 2, 1),
y=c(8, 6, 4, 1, 9))
gfg5 < -data.frame(x=c(6, 1, 6, 5, 4),
y=c(6, 8, 7, 6, 4))
# plot the data with 5 dataframes
# with 5 different colors
gfg_plot < -ggplot(NULL, aes(x, y)) +
geom_line(data=gfg1, col="green") +
geom_line(data=gfg2, col="blue")+
geom_line(data=gfg3, col="red")+
geom_point(data=gfg4, col="purple") +
geom_point(data=gfg5, col="black")
# display the plot
gfg_plot
输出: