使用ggplot在背景图像上绘制数据

Question

我正在尝试在背景图像上绘制一些数据。问题是两个层最终都使用相同的比例。不幸的是，这有问题。

一个例子。

我想在此image上绘制一些数据。

右。所以我将它绘制在ggplot中就像这样。

img <- readJPEG("image.jpg")
image <- apply(img, 1:2, function(v) rgb(v[1], v[2], v[3]))
image <- melt(image)
ggplot(image, aes(row, -column, fill=fill)) + geom_tile() + scale_fill_identity()

效果很好。所以，让我们在顶部添加一些数据。

df <- data.frame(x=sample(1:64, 1000, replace=T), 
  y=sample(1:64, 1000, replace=T))
ggplot(df, aes(x,y)) + stat_bin2d()

绘制样本数据，我得到this。

所以我只想把这个数据图分层放在渐变图像上。

ggplot(image, aes(row, -column, fill=fill)) + geom_tile() + 
  scale_fill_identity() + geom_point(data=df2, aes(x=x, y=-y))

但它最终会像this

尝试指定第二个填充比例会引发错误。我看到this说它无法完成，但我希望有一种解决方法或我忽略的东西。

Answer 1

试试这个，（或者annotation_raster）

library(ggplot2)
library(jpeg)
library(grid)

img <- readJPEG("image.jpg")

df <- data.frame(x=sample(1:64, 1000, replace=T), 
                 y=sample(1:64, 1000, replace=T))

ggplot(df, aes(x,y)) + 
  annotation_custom(rasterGrob(img, width=unit(1,"npc"), height=unit(1,"npc")), 
                    -Inf, Inf, -Inf, Inf) +
  stat_bin2d() +
  scale_x_continuous(expand=c(0,0)) +
  scale_y_continuous(expand=c(0,0))