（14）R和GBIF制作物种在全球范围的分布图

一、准备工作

要获得XX物种的世界分布图，需要知道该物种学名，以及本实验室或已查询到的采集表（因为GBIF上数据有的不太全）

二、打开R，开始啦

使用脚本为my R with GBIF.R，以下为脚本内容

#此代码用于下载GBIF中物种信息以及在绘制在全球范围分布图，全球年均气温图自己后期制作

#每次需要改开始的两个物种名，保存数据的文件名，这边更改了R中可以自动更新
setwd(dir="E:/R and GBIF/TEST3") # 设置工作目录#首先需要这个文件夹存在才能设置这个目录
#调用R包
library(rgbif)
library(dplyr)
library(raster)
library(maptools)
library(CoordinateCleaner)
library(ggmap)
library(ggplot2)
library(maps)
key <- name_suggest(q="Umbilicaria deusta", rank='species')$data$key
key#物种识别号#不同物种需要更改这里的物种名
occ_count(taxonKey=key, georeferenced=TRUE, basisOfRecord= "PRESERVED_SPECIMEN")#GBIF中可查到的记录数
data <- occ_search(scientificName = "Umbilicaria