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))