在r中的barplot中的条形图上绘制图像

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)