ggplot2 में, मैं अतिरिक्त किंवदंती कैसे जोड़ सकता हूं?

Question

मैं अलग डेटा फ्रेम से डेटा का उपयोग कर ggplot2 में एक नक्शा बनाने की कोशिश कर रहा हूं।

library(maptools) 

xx <- readShapePoly(system.file("shapes/sids.shp", package="maptools")[1], IDvar="FIPSNO", proj4string=CRS("+proj=longlat +ellps=clrk66")) 

xx.sub1 <- subset(xx, xx$FIPSNO < 37010) 
xx.sub2 <- subset(xx, xx$FIPSNO > 37010) 

xx.sub1@data$id <- rownames(xx.sub1@data) 
xx.sub1.points <- fortify(xx.sub1, region="id") 
xx.sub1.df = join(xx.sub1.points, xx.sub1@data, by="id") 

xx.sub2@data$id <- rownames(xx.sub2@data) 
xx.sub2.points <- fortify(xx.sub2, region="id") 
xx.sub2.df = join(xx.sub2.points, xx.sub2@data, by="id") 

ggplot(xx.sub2.df) + 
    aes(long, lat, fill = (SID79/BIR79)*1000, group = group) + 
    geom_polygon() + geom_path(color="grey80") + 
    coord_equal() + 
    scale_fill_gradientn(colours = brewer.pal(7, "YlOrBr")) + 
    geom_polygon(data = xx.sub1.df, fill = "grey50") + 
    geom_path(data = xx.sub1.df, color="grey80") + 
    labs(fill = "Mapped value", title = "Title") 

इस बिंदु सब कुछ उम्मीद के रूप में काम करता है और मैं एक अच्छा नक्शा प्राप्त करने के लिए ऊपर

:

मैं तथापि बदलने के लिए क्या करना चाहते हैं xx.sub1.df से डेटा के लिए अलग कथा को जोड़ने के लिए है - के बाद से सभी बहुभुज सिर्फ भूरे रंग से भरे हुए हैं, मुझे उम्मीद है कि यह एक अतिरिक्त प्रविष्टि होगी।

मैं इसे कैसे प्राप्त कर सकता हूं?

Answer 1

मुझे 100% यकीन नहीं है कि यह वही है जो आप चाहते हैं, लेकिन यहां मैं समस्या को समझने के तरीके से कैसे संपर्क करूंगा। अगर हम xx.sub1.df से किसी भी डेटा के साथ कुछ अप्रयुक्त geom को मानचित्र करते हैं, लेकिन इसे साजिश पर अदृश्य बनाते हैं, तो हम अभी भी geom के लिए एक किंवदंती प्राप्त कर सकते हैं। यहां मैंने geom_point का उपयोग किया है, लेकिन आप इसे दूसरों को बना सकते हैं।

p <- ggplot(xx.sub2.df) + 
    aes(long, lat, fill = (SID79/BIR79)*1000, group = group) + 
    geom_polygon() + geom_path(color="grey80") + 
    coord_equal() + 
    scale_fill_gradientn(colours = brewer.pal(7, "YlOrBr")) + 
    geom_polygon(data = xx.sub1.df, fill = "grey50") + 
    geom_path(data = xx.sub1.df, color="grey80") + 
    labs(fill = "Mapped value", title = "Title") 

#Now we add geom_point() setting shape as NA, but the colour as "grey50", so the 
#legend will be displaying the right colour 

p2 <- p + geom_point(data = xx.sub1.df, aes(size="xx.sub1", shape = NA), colour = "grey50") 

अब हम सिर्फ आकार और कथा पर बिंदु के आकार को बदलने के लिए, और कथा का नाम बदलने (जो इस earlier प्रदर्शन किया @DizisElferts करने के लिए धन्यवाद) की जरूरत है।

p2 + guides(size=guide_legend("Source", override.aes=list(shape=15, size = 10))) 

बेशक आप जिस तरह से लेबल काम करते हैं या जो कुछ भी उजागर करने के लिए आप क्या दिखाना चाहते हैं बदल सकते हैं।

यदि यह नहीं है, तो आप मुझे बताएं!