在barplot中的一個酒吧繪製圖像r

Question

我想在R中創建一個barplot，其中每個酒吧都有一個圖形。

有沒有辦法讓我可以做到這一點？我已經做了（可怕的）例子

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)