누락 된 데이터가있는 영역은 geom_sf/ggplot2 map에서 삭제됩니다. 왜?

Question

누락 된 데이터가있는지도를 인쇄하는 데 문제가 있습니다.

는 나는 "빈"Shape 파일을 생성 할 수 있어요 : 다음 Shape 파일

df.shape <- dplyr::left_join(BiH.shape.sf, data, by="ID_3") 

에 데이터를 추가하고 새로운지도를 만들어

empty.shape.sf <- 
    ggplot(BiH.shape.sf)+ 
    geom_sf(fill="grey",colour="black")+ 
    theme(legend.position="none", 
     axis.title=element_blank(), 
     axis.text=element_blank(), 
     axis.ticks = element_blank(), 
     strip.text.y = element_text(size = 10), 
     panel.background=element_rect(fill="white")) 

print(empty.shape.sf) 

.

data.map <- df.shape%>% 
    filter(year==2000|year==2004)%>% 
    ggplot()+ 
    geom_sf(aes(fill=res), colour="black")+ 
    theme(legend.position="none", 
     axis.title=element_blank(), 
     axis.text=element_blank(), 
     axis.ticks = element_blank(), 
     strip.text.y = element_text(size = 10), 
     panel.background=element_rect(fill="white"))+ 
    scale_fill_gradient(low="blue", high="red", limits=c(0,100))+ 
    facet_wrap(~year) 

print(data.map) 

왜 투영 된 데이터가 국경없이 실종되는 분야입니다/떨어졌다? left_join을 사용하면 모든 테두리/영역이 그대로 유지된다고 가정했을 것입니다. 이 경계선/구역을 어떻게 유지할 수 있습니까? 각 누락 된 영역에 대해 NA가있는 행을 포함하는 '완전한'데이터 세트를 만드는 것 외에 다른 방법이 있습니까?

Answer 1

scale_fill_gradient 호출에 na.value 인수를 간단하게 추가 할 수 있습니다. 나는 특정 예를 재현 할 수 없기 때문에

library(ggplot2) 
library(sf) 
nc <- sf::st_read(system.file("shape/nc.shp", package = "sf"), quiet = TRUE) 
nc$BIR74[1] <- NA 
nc %>% ggplot()+ 
    geom_sf(aes(fill=BIR74), colour="white")+ 
    theme(legend.position="none", 
     axis.title=element_blank(), 
     axis.text=element_blank(), 
     axis.ticks = element_blank(), 
     strip.text.y = element_text(size = 10), 
     panel.background=element_rect(fill="white"))+ 
    scale_fill_gradient(low="blue", high="red",na.value = "black") 

, 당신이 다른 유형을 사용하려는 추측에는 요 : 여기에 sf 패키지에 포함 된 노스 캐롤라이나 Shape 파일을 사용하여 재현 예입니다 join인데, 그렇지 않으면 shapefile은 누락 된 행 (및 누락 된 모양)을 언급 된대로 유지합니다.