在R中叠加具有透明度的2个图像

install.packages("ggplot2")

library(ggplot2)

# 准备图像数据（示例数据）
image1 <- data.frame(x = c(1, 2, 3), y = c(1, 2, 3), z = c(1, 2, 3))
image2 <- data.frame(x = c(1, 2, 3), y = c(1, 2, 3), z = c(2, 3, 1))

# 创建第一个图像的图层
layer1 <- ggplot(image1, aes(x, y, fill = z)) +
  geom_tile(alpha = 0.5) +
  labs(title = "Image 1")

# 创建第二个图像的图层
layer2 <- ggplot(image2, aes(x, y, fill = z)) +
  geom_tile(alpha = 0.5) +
  labs(title = "Image 2")

# 叠加两个图层并保存图像
final_plot <- layer1 + layer2
ggsave("merged_image.png", plot = final_plot, width = 6, height = 6)