使用 ggplot2 和 ggpattern 将图像添加到 R 图中 - 图像丢失了吗？

Question

我第一次在 R 中使用 ggpattern 包，我无法让图像在我的绘图中工作。我的代码的简化版本在这里：

x = seq(-1.5, 3.5, 0.1)

y = c( rep(1.0, 22), rep(0.2, 12), rep(0.7, 7), rep(1,10))

ref = data.frame(x = x, y = y)

library(dplyr)
library(ggplot2)
library(ggpattern)

coral = system.file("Coral", "coral.jpg", package="ggpattern")

p = ggplot(ref, aes(x = x, y = y))+
scale_y_reverse(lim = c(1, 0))+
theme_classic()+
geom_ribbon_pattern(aes(x = x, ymin = 1, ymax = y),
color = "darkblue",
fill = NA,
size = 1.5,
pattern = 'image',
pattern_type = 'squish',
pattern_filename = coral) +
geom_ribbon(aes(x = x, ymin = 0, ymax = y), fill = "lightblue")

当我运行这段代码时，我得到的是：缺少图像填充的绘图

但是使用这段代码，我认为曲线下的白色区域应该用珊瑚图像填充。有谁知道我在这里做错了什么？我搜索了 Whosebug 和 GitHub，但找不到答案。

Answer 1

我认为这里的问题是在ggpattern的img文件夹中没有“coral.jpg”文件。

当我使用文件夹中的其中一张图片编辑您的代码时，它工作正常。

x = seq(-1.5, 3.5, 0.1)

y = c( rep(1.0, 22), rep(0.2, 12), rep(0.7, 7), rep(1,10))

ref = data.frame(x = x, y = y)

library(dplyr)
library(ggplot2)
library(ggpattern)

coral = system.file("img", "magpie.jpg", package="ggpattern")

p = ggplot(ref, aes(x = x, y = y))+
    scale_y_reverse(lim = c(1, 0))+
    theme_classic()+
    geom_ribbon_pattern(aes(x = x, ymin = 1, ymax = y),
                        color = "darkblue",
                        fill = NA,
                        size = 1.5,
                        pattern = 'image',
                        pattern_type = 'squish',
                        pattern_filename = coral) +
    geom_ribbon(aes(x = x, ymin = 0, ymax = y), fill = "lightblue")

p

使用 ggplot2 和 ggpattern 将图像添加到 R 图中 - 图像丢失了吗？

Adding images to R plots using ggplot2 and ggpattern - image is missing?

plot

r

ggplot2

geom