R语言绘制省份地图

旧城等待， 2023-07-20 12:27 4阅读 0赞

# 绘制世界指定区域的地图数据 #

#install.packages("maps")
    library(maps)
    library(ggplot2)
    world_map <- map_data("world")
    euro <- map_data("world", region = c("UK","France", "Spain","Germany", "Italy"))
    ggplot(euro, aes(x=long, y = lat, group=group,fill=region)) + geom_polygon(colour="black") + scale_fill_brewer(palette = "Set2") + scale_y_continuous(limits=c(40,60)) + scale_x_continuous(limits=c(-25,25)) + labs(title = " Euorpes Big Five Football Leagues")

![在这里插入图片描述][watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3RhbmRlbGlu_size_16_color_FFFFFF_t_70]

# 美国省份地图绘制 #

#### 安装包准备 ####

\#install.packages(“maps”)  
library(maps)  
library(ggplot2)

#### 调出美国的国家地图 ####

states\_map <- map\_data(“state”)

#### 查看美国国家地图数据的区域 ####

table(states\_map$region)

#### 提取美国国家地图省份的数据 ####

euro <- map\_data(“state”, region = c(“new york”,“vermont”,  
“new hampshire”,“massachusetts”, “connecticut”))

#### ggplot绘制省份地图的数据 ####

ggplot(euro, aes(x=long, y = lat, group=group,fill=region)) +  
geom\_polygon(colour=“black”) +  
scale\_fill\_brewer(palette = “Set2”) +  
labs(title = " Euorpes Big Five Football Leagues")  
![在这里插入图片描述][watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3RhbmRlbGlu_size_16_color_FFFFFF_t_70 1]

# 中国省份地图绘制 #

library ( maps ) 
    library ( mapdata )
    setwd("C:\\Users\\Administrator\\Desktop\\map")
    data=read_excel("PMDiff2017.xlsx")
    map ( "china" , col = "darkgray" , ylim = c ( 18 , 54 ) , panel.first = grid ( ) )
    points ( data$slon , data$slat, pch = 19 , col = rgb ( 0 , 0 , 0 , 0.5 ) )

![在这里插入图片描述][watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3RhbmRlbGlu_size_16_color_FFFFFF_t_70 2]

[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3RhbmRlbGlu_size_16_color_FFFFFF_t_70]: /images/20230528/193e9cb0b56e4d6184bbdd080a348f73.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3RhbmRlbGlu_size_16_color_FFFFFF_t_70 1]: /images/20230528/67aa18fe98b74607aad76ee137dd0284.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3RhbmRlbGlu_size_16_color_FFFFFF_t_70 2]: /images/20230528/fe3b9c59870c4dddbf578189255b9289.png