在 ggplot2 的 annotation_custom 中指定 x 和 y 坐标

Question

我使用以下代码在 ggplot2 中创建了一个条形图。

g <- ggplot(mpg, aes(class))
# Number of cars in each class:
g + geom_bar()

我使用诸如

之类的代码创建了一个图像对象

img <- png::readPNG("./watermark.png")
rast <- grid::rasterGrob(img, interpolate = T)

现在我正在尝试使用诸如

之类的命令将此图像粘贴到绘图上

g + annotation_custom(rast, xmin=-Inf, xmax=Inf,ymin=-Inf,ymax=Inf)

创建以下情节 https://imgur.com/a/epOcDQV

我了解 annotation_custom 中的 x 和 y 坐标与绘制在 x 和 y 轴上的数据相关。

在我的情况下，我在 X 轴上有离散数据，并想将此图像粘贴到右上角，请有人建议我如何做到这一点。

Answer 1

虽然，不完全是您正在寻找的答案，但请检查这些相关答案，1、2 和 3

library(grid)
library(png)
mypngfile <- download.file('http://upload.wikimedia.org/wikipedia/commons/thumb/c/c1/Rlogo.png/200px-Rlogo.png', destfile = 'mypng.png', mode = 'wb')
mypng <- readPNG('mypng.png')
p + annotation_custom(rasterGrob(mypng))+
  geom_bar()

不知何故，我无法让annotation_raster 与geom_bar() 合作。