1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
|
root <- "C:/"
#plot
par(mar = c(2, 2, 2, 2))
Al= readShapeLines("adm0.shp")
require(rgeos)
simple.output <- gSimplify(Al, topologyPreserve = TRUE, tol = 3)
plot(simple.output,col="black")
(tab <- read.delim(file = paste(root, "/ville.txt", sep = "")))
dat <- SpatialPoints(coords = tab[, 2:3])
(dat <- SpatialPointsDataFrame(coords = tab[, 2:3], data = tab[,c(1, 4)]))
# Rajout des capitales
plot(dat, pch =20, add = T,col="red")
# Extraction des coordonnees
lon <- dat@coords [, "lon"]
lat <- dat@coords [, "lat"]
# Extraction du nom des villes
labs <- as.character(dat@data[, "ville"]) |
Partager