Với RI muốn tạo một bản đồ choropleth hoạt hình với rMaps
gói và bản đồ tùy chỉnh. Tôi đã cố gắng làm theo ví dụ của Diego Valle được mô tả ở đây và sử dụng thông tin bản đồ tùy chỉnh cho Datamaps .
Tuy nhiên, bản đồ không hiển thị . Nhưng, huyền thoại với phím điền thích hợp xuất hiện cùng với thanh hoạt hình năm. Các tập tin topoJson có vẻ là tốt.
library(rCharts);library(rMaps);library(rgdal)
map = readOGR("https://raw.githubusercontent.com/gupierre/GHA_vol/master/Data/GHA_adm/GHA_adm1.topo.json", layer="admin_1",stringsAsFactors=F)
#Data:
SDLOG<-read.table("https://raw.githubusercontent.com/gupierre/GHA_vol/master/Data/sdlog.csv", header=T,stringsAsFactors=F, sep =",")
head(SDLOG)
year name sdlog type
>1 2004 Greater Accra 0.20030687 urban
>2 2005 Greater Accra 0.15322712 urban
>3 2006 Greater Accra 0.10782677 urban
#Map:
library(rCharts);library(rMaps)
d1 <- ichoropleth(sdlog ~ name, data = SDLOG[SDLOG$type=="rural",], ncuts = 7, pal = 'YlOrRd', animate = 'year', map = 'admin_1')
d1$set(
geographyConfig = list(
dataUrl = "https://raw.githubusercontent.com/gupierre/GHA_vol/master/Data/GHA_adm/GHA_adm1.topo.json"
),
scope = 'admin_1',
setProjection = '#! function( element, options ) {
var projection, path;
projection = d3.geo.mercator()
.center([8, -1]).scale(element.offsetWidth)
.translate([element.offsetWidth / 2, element.offsetHeight / 2]);
path = d3.geo.path().projection( projection );
return {path: path, projection: projection};
} !#'
)
d1
Lưu ý: câu hỏi này đã được hỏi trên stackoverflow mà không thành công. Tôi không biết chính sách về GIS để đăng câu hỏi từ SO. Xin vui lòng tư vấn trong các ý kiến nếu tôi sai chỉ đơn giản là sao chép dán câu hỏi ban đầu của tôi.