Question

임 테이블 country.txt 파일의 열지도를 만들려고 :

: 나는 등의지도를 볼 수 있다는 사실을 알고

Region Value 
Europe 5 
Africa 6 
America 7 
Asia 8 

을

map.world <- map_data(map = "world") 
mapCountryData(sPDF,nameColumnToPlot = 'continent') 

데이터를지도에 어떻게 적용합니까? 나는. 나는 가장 높은 가치를 가진 대륙이 녹색이라고 말해야하고 가장 낮은 가치를 가진 대륙은 적색이되기를 바란다.

Answer 1

다음은 함께 작업 할 수있는 단순한 대륙 모양 파일입니다. 나는 투사를 변경하고 내가 간행물에 빠뜨리는 것 뭔가 남극 대륙을 제거 할 수 있지만 이것은 당신에게 시작주는 것 다음에 대표로 여기

library(rgdal) 
library(rgeos) 
library(ggplot2) 
library(httr) 

url <- "https://gist.githubusercontent.com/hrbrmstr/91ea5cc9474286c72838/raw/f3fde312c9b816dff3994f39f2bcda03209eff8f/continents.json" 
stop_for_status(GET(url, write_disk("continents.json"))) 
continents <- readOGR("continents.json", "OGRGeoJSON") 
continents_map <- fortify(continents, region="CONTINENT") 

data <- read.table(text="id value 
Europe 5 
Africa 6 
America 7 
Asia 8", header=TRUE, stringsAsFactors=FALSE) 


gg <- ggplot() 
gg <- gg + geom_map(data=continents_map, 
        map=continents_map, 
        aes(x=long, y=lat, map_id=id), 
        color="black") 
gg <- gg + geom_map(data=data, 
        map=continents_map, 
        aes(map_id=id, fill=value), 
        color="black") 
gg <- gg + scale_fill_distiller("PuBu") # needs latest ggplot2 
gg <- gg + coord_equal() 
gg <- gg + theme_bw() 
gg <- gg + labs(x=NULL, y=NULL) 
gg <- gg + theme(panel.border=element_blank()) 
gg <- gg + theme(panel.grid=element_blank()) 
gg 

이 대륙의 이름이됩니다 shapefile :

continents@data$CONTINENT 
## [1] Asia   North America Europe  Africa  South America 
## [6] Oceania  Australia  Antarctica