在科研论文的发表过程中，地图其实是一个略显敏感的话题。在很多国际场合，如果你使用我们国家认可的世界地图版本，恰好遇到某些特殊国家和地区的审稿人，可能会提出激烈的意见，而这些意见往往与论文的科研问题无关。不过，大家无需感到紧张，绝大多数杂志的编辑会尊重和保护作者的立场，将问题关注在科研论文本身。
在很多科研文章中，往往需要标记不同地区的数据，或者展示采样点的分布。这个时候如果能将结果展现在地图中，将非常直观和有说服力。我想很多不同专业的同学都有这样的绘图需求，那么今天，我们将通过 R语言 中特别好的两个包，演示如何准确又快速的绘制中国地图以及标记采样数据。
1. 安装和加载必需的R包
library(hchinamap)
2. 调取示例数据
可以点击文末的原文链接下载示例文件"chinadf.rda"
#首先加载包中自带的数据
setwd('C:/R_workspace) #替换为你的文件路径
load(file.path("chinadf.rda"), verbose = T)
#将其保存为表格后重新读取
library(writexl)
# 将数据保存为Excel文件
write_xlsx(chinadf, "chinadf.xlsx")
# 读取Excel文件
library(readxl)
data <- read_excel("chinadf.xlsx")
#作图
hchinamap(
name = data$name, # 省份或城市
value = data$value, # 要可视化的数据
width = "100%",
height = "400px",
title = "China map by hchinamap",
minColor = "#FAEBD7",
maxColor = "#8B8378",
region = "China" # 要绘制的区域
)
3. 标记采样区域
假设分别在不同省份采样了不同数量的样品，现在想要在地图上标记出来， 则将采样省份的样品数更新在Value值中，将没有参与采样的省份标记为空白即可。
#分省采样的标记
setwd('C:/R_workspace') #替换为你的文件路径
Rdata_sample <- read_excel("chinadf_2025.xlsx")
#作图
hchinamap(
name = Rdata_sample$name,
value = Rdata_sample$value,
width = "100%", # 地图的宽度
height = "400px", # 地图的高度
title = "China map by hchinamap", # 地图标题
minColor = "#FFB6C1",
maxColor = "#8B0000",
region = "China"
)
4. 省份作图
当然如果想要展示具体某一省级区域的样品数据，也可以使用这个包简单绘制：
hchinamap(
name = data$name,
value = data$value,
width = "100%",
height = "400px",
title = "山东省地图",
minColor = "#FAEBD7",
maxColor = "#8B8378",
region = "Shandong"
)
参考文献：
https://blog.csdn.net/qq_47054630/article/details/135915760
非常感谢原作者的工作！
小结
希望本教程能够帮助大家更好地理解如何使用R语言绘制符合要求的地图，并展示样品采样点。如果有任何问题或需要进一步帮助，欢迎留言讨论！
感谢关注，你的支持是我不懈的动力！
