R语言如何合并本地图片

邓飞

发布于 2024-07-05 14:50:16

760

发布于 2024-07-05 14:50:16

文章被收录于专栏：育种数据分析之放飞自我育种数据分析之放飞自我

今天介绍一下如何将本地图片读入到R语言中，并进行合并。

为何会有这种应用场景呢？本地有图片，如果用PS之类的软件，像素太模糊。所以用R语言读取，然后合并，就很方便，这里介绍一下，像素没有变化，非常方便。

合并后的效果：

这里用到的R包是magick，可以在CRAN中通过install.packages直接安装。

读取函数，用image_read函数，直接读取，读取的对象直接可以在R中显示：

分别读取，然后可以用image_append进行图片的叠加，这里，想把图片叠加为2*3的形式，即上面3个图，下面三个图。

合并后的图片如下：

代码汇总：

library(tidyverse)

set.seed(123)

# 创建一个数据框
df = data.frame(
  x = rnorm(100),
  y = rnorm(100)
)

# 创建散点图
ggplot(df, aes(x=x, y=y)) + geom_point() + xlab("育种")
ggsave("plot1.tiff")

ggplot(df, aes(x=x, y=y)) + geom_point() + xlab("数据")
ggsave("plot2.tiff")

ggplot(df, aes(x=x, y=y)) + geom_point() + xlab("分析")
ggsave("plot3.tiff")

ggplot(df, aes(x=x, y=y)) + geom_point() + xlab("之")
ggsave("plot4.tiff")


ggplot(df, aes(x=x, y=y)) + geom_point() + xlab("放飞")
ggsave("plot5.tiff")

ggplot(df, aes(x=x, y=y)) + geom_point() + xlab("自我")
ggsave("plot6.tiff")



## 读取
library(magick)
a1 = image_read("plot1.tiff")
a2 = image_read("plot2.tiff")
a3 = image_read("plot3.tiff")
a4 = image_read("plot4.tiff")
a5 = image_read("plot5.tiff")
a6 = image_read("plot6.tiff")

p1 = image_append(c(a1,a2,a3))
p2 = image_append(c(a4,a5,a6))

re_final = image_append(c(p1,p2),stack = T)

image_write(re_final,"combine_total.tiff")

本文参与腾讯云自媒体同步曝光计划，分享自微信公众号。

原始发表：2024-07-01，如有侵权请联系 cloudcommunity@tencent.com 删除

数据