указание координат x и y в annotate_custom в 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

Я понимаю, что координаты x и y в annotation_custom относятся к данным, нанесенным на оси 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().