Trong ggplot2, làm cách nào để thêm chú thích bổ sung?

Question

Tôi đang cố gắng xây dựng bản đồ ở số ggplot2 bằng cách sử dụng dữ liệu từ các khung dữ liệu riêng biệt.

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

Tính đến thời điểm này mọi thứ hoạt động như mong đợi và tôi nhận được một bản đồ đẹp:

Những gì tôi muốn thay đổi tuy nhiên là thêm huyền thoại riêng cho dữ liệu từ xx.sub1.df - kể từ tất cả các đa giác chỉ đầy màu xám Tôi hy vọng nó sẽ là một mục bổ sung.

Làm cách nào để đạt được điều đó?

Answer 1

Tôi không chắc chắn 100% đây là những gì bạn muốn, nhưng đây là cách tôi tiếp cận vấn đề khi tôi hiểu. Nếu chúng tôi lập bản đồ một số không sử dụng geom với bất kỳ dữ liệu nào từ xx.sub1.df, nhưng làm cho nó ẩn trên cốt truyện, chúng tôi vẫn có thể nhận được một huyền thoại cho rằng geom. Ở đây tôi đã sử dụng geom_point, nhưng bạn có thể làm cho người khác.

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

Bây giờ chúng ta chỉ cần thay đổi kích thước và hình dạng của các điểm trên truyền thuyết, và thay đổi tên của huyền thoại (nhờ @DizisElferts ai chứng minh điều này earlier).

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

Tất nhiên bạn có thể thay đổi cách thức các nhãn làm việc hoặc bất cứ điều gì để làm nổi bật những gì bạn muốn hiển thị.

Nếu đây không phải là những gì bạn đang theo dõi, hãy cho tôi biết!