R/ggplot2：添加带有透明度信息的 png

Question

我想在 ggplot2 绘图上堆叠 PNG 图像。 其中一个 png 具有 alpha/透明度信息，但它被忽略了。

如何在 bg.png 顶部添加第二个图像 (image1.png)，以便保留透明度并且在黄色背景上仅显示黑色文本？

例子

library(ggplot2)
library(png)
library(patchwork)

img1 <- readPNG("bg.png", native = TRUE)
img2 <- readPNG("image1.png", native = TRUE)

ggp <- ggplot(data.frame()) +
  geom_point() + 
  theme_nothing() +
  inset_element(p = img1,
                left = 0,
                bottom = 0,
                right = 1,
                top = 1,
                align_to = "full") +
  inset_element(p = img2,
                left = 0,
                bottom = 0,
                right = 0.5,
                top = 0.5,
                align_to = "full")

ggp

示例文件：

• bg.png: https://cloud.linuxfabrik.io/index.php/s/3iBTARTtgWBnL5c
• image1.png: https://cloud.linuxfabrik.io/index.php/s/G5P958XpJeEY7No

Answer 1

我认为，alpha通道正在这里推崇。 只是inset_element绘制了一个白色的 canvas 元素。 可以说，您尝试做的不是插图，而是注释。

我认为在这里使用ggplot2 annotation_custom更合适（意味着少加载一个包）。

library(ggplot2)
library(png)

img1 <- grid::rasterGrob(readPNG("bg.png"))
img2 <- grid::rasterGrob(readPNG("image1.png"))

ggp <- ggplot(data.frame()) +
  geom_point() + 
  theme_void() +
  annotation_custom(img1) +
  annotation_custom(img2, xmax = 0.5, ymax = 0.5)

ggp