1、重现CB中的采样方案图
首先,小编先用R重现一下CB中的采样方案图,该文的链接如下:
https://doi.org/10.1038/s42003-021-02907-3
1)加载需要的安装包:
rm(list = ls())
#setwd(choose.dir())
library(raster)
library(rgdal)
library(RColorBrewer)
library(reshape2)
library(tidyverse)
2)加载需要的数据
load("China-map.RData")
3)设置绘图细节
main_theme = theme(panel.background=element_blank(),
panel.grid=element_blank(),
axis.line.x=element_line(size=0.5, colour="black"),
axis.line.y=element_line(size=0.5, colour="black"),
axis.ticks=element_line(color="black"),
axis.text=element_text(color="black", size=12),
legend.p