R语言绘制带制图包的定制欧洲地图3

最新推荐文章于 2024-07-21 23:10:21 发布

「已注销」

最新推荐文章于 2024-07-21 23:10:21 发布

阅读量171

点赞数

分类专栏：可视化机器学习文章标签： r语言开发语言 bash

本文链接：https://blog.csdn.net/m0_38127487/article/details/128375372

版权

可视化同时被 2 个专栏收录

526 篇文章 22 订阅

订阅专栏

机器学习

24 篇文章 1 订阅

订阅专栏

# Cartography Library
library(cartography)
library(sp)

# Upload data attached with the package.
data(nuts2006)

# Now we have a spdf file (shape file) called nuts2.spdf with shape of european regions.
# We also have a dataframe with information concerning every region.Both object have a first column "id" that makes the link between them.
head(nuts2.df)

# Annual growth per region
nuts2.df$cagr <- 100 * (((nuts2.df$pop2008/nuts2.df$pop1999)^(1/9)) -  1)

# Build a color palette
cols <- carto.pal(pal1 = "green.pal", n1 = 2, pal2 = "pink.pal", n2 = 4)

# plot backgroud shapes (sea and world)
plot(nuts0.spdf, border = NA, col = NA, bg = "#00FFFF")
plot(world.spdf, col = "#FAF0E6", border = NA, add = TRUE)

# Add annual growth
choroLayer(spdf = nuts2.spdf, df = nuts2.df, var = "cagr", 
           breaks = c(-2.43, -1, 0, 0.5, 1, 2, 3.1), col = cols, 
           border = "grey40", lwd = 0.5, legend.pos = "right", 
           legend.title.txt = "taux de croissance\nannuel moyen", 
           legend.values.rnd = 2, add = TRUE)

# Add borders
plot(nuts0.spdf, border = "grey20", lwd = 0.75, add = TRUE)

# Add titles, legend ...
layoutLayer(title = "Growth rate in Europe", 
            author = "cartography", sources = "Eurostat, 2008", 
            frame = TRUE, col = NA, scale = NULL, coltitle = "black", 
            south = TRUE)

在这里插入图片描述

# Build a color palette
cols <- carto.pal(pal1 = "green.pal", n1 = 2, pal2 = "purple.pal", n2 = 4)

# plot backgroud shapes (sea and world)
plot(nuts0.spdf, border = NA, col = NA, bg = "#00FFFF")
plot(world.spdf, col = "#FAF0E6", border = NA, add = TRUE)

在这里插入图片描述

# Build a color palette
cols <- carto.pal(pal1 = "green.pal", n1 = 2, pal2 = "purple.pal", n2 = 4)

# plot backgroud shapes (sea and world)
plot(nuts0.spdf, border = NA, col = NA, bg = "#00FFFF")
plot(world.spdf, col = "#C71585", border = NA, add = TRUE)

在这里插入图片描述

# Build a color palette
cols <- carto.pal(pal1 = "green.pal", n1 = 2, pal2 = "purple.pal", n2 = 4)

# plot backgroud shapes (sea and world)
plot(nuts0.spdf, border = NA, col = NA, bg = "#00FFFF")
plot(world.spdf, col = "#808000", border = NA, add = TRUE)