Изображение участка над баром в barplot в r

Question

Я хочу создать барплот в R, где над каждым баром есть фигура.

Есть ли способ, которым я могу это сделать? Я сделал (плохо) пример

Answer 1

Вы можете сделать это с помощью plot и png

library(png) 
library(grid) 
library(ggplot2) 

img <- readPNG(system.file("img", "Rlogo.png", package="png")) 
g <- rasterGrob(img, interpolate=TRUE) 

qplot(x=sample(1:10,20,replace=TRUE), geom="blank") + 
    annotation_custom(g, xmin=4.5, xmax=5.5, ymin=3, ymax=4) + 
    geom_bar() 

, а также слегка расширенную версию, которая показывает - тот же самый пример, используя график - вычисляет местоположение изображения для определенного места

library(png) 
library(grid) 
library(ggplot2) 
img <- readPNG(system.file("img", "Rlogo.png", package="png")) 
g <- rasterGrob(img, interpolate=TRUE) 

p<- ggplot(data.frame(x=x), aes(x=x)) + 
    geom_bar() 

stats <- p$layers[[1]]$stat$compute_group(p$data) 

loc=5 
val=max(c(stats[stats$x==loc,]$count,0)) 
p+annotation_custom(g, xmin=loc-0.5, xmax=loc+0.5, ymin=val, ymax=val+1)+ylim(0,6)