在ggplot2

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()合作。