मैं ggplot2 का उपयोग कर पृष्ठभूमि ग्रिड कैसे जोड़ सकता हूं?

Question

मैं साजिश के केंद्र में पृष्ठभूमि ग्रिड जोड़ना चाहता हूं और फिर मानक ग्रिडलाइन को छुपा सकता हूं। ग्रिड के कोने पॉइंट्स को पीटीएस डेटा फ्रेम में संग्रहीत किया जाता है और मैंने geom_tile का उपयोग करने का प्रयास किया है, लेकिन यह निर्दिष्ट बिंदुओं का उपयोग नहीं करता है। आपकी सहायता के लिये पहले से ही धन्यवाद।

library(ggplot2) 
pts <- data.frame(
     x=c(170,170,170,177.5,177.5,177.5,185,185,185), 
     y=c(-35,-25,-15,-35,-25,-15,-35,-25,-15)) 
ggplot(quakes, aes(long, lat)) + 
    geom_point(shape = 1) + 
    geom_tile(data=pts,aes(x=x,y=y),fill="transparent",colour="black") + 
    opts(
     panel.grid.major=theme_blank(), 
     panel.grid.minor=theme_blank() 
    ) 

Answer 1

आप मैन्युअल रूप से टूट जाता है निर्दिष्ट कर सकते हैं:

ggplot(quakes, aes(long, lat)) + geom_point(shape = 1) + 
    scale_x_continuous(breaks = c(170, 177.5, 185)) + 
    scale_y_continuous(breaks = c(-35, -25, -15)) + 
    opts(panel.grid.minor = theme_blank(), 
     panel.grid.major = theme_line("black", size = 0.1)) 

तो, यह तुम क्या चाहते है?

pts <- data.frame(x=c(170, 170, 170, 170, 177.5, 185), 
        y=c(-35, -25, -15, -35, -35, -35), 
        xend=c(185, 185, 185, 170, 177.5, 185), 
        yend=c(-35, -25, -15, -15, -15, -15)) 
ggplot(quakes, aes(long, lat)) + geom_point(shape = 1) + 
    geom_segment(data=pts, aes(x, y, xend=xend, yend=yend)) + 
    opts(panel.grid.minor = theme_blank(), 
     panel.grid.major = theme_blank()) 

Answer 2

सुरुचिपूर्ण नहीं है लेकिन यह कुछ त्वरित और गंदा है जो मैं आया था। दुर्भाग्य से मैं एक निश्चित बिंदु पर लाइन को नहीं रोक सकता, यह किनारे पर सभी तरह से जाता है।

ggplot(quakes, aes(long, lat)) + geom_point(shape = 1) 
+ opts(panel.grid.major=theme_blank(), 
     panel.grid.minor=theme_blank()) 
+ geom_vline(aes(xintercept =seq(165,185,by=5))) 
+ geom_hline(aes(yintercept=seq(-35,-15,by=5)))