R语言【paleobioDB】——pbdb_map()：根据化石记录绘制地图

ALittleHigh2024-01-13 22:51

Package paleobioDB version 0.7.0

paleobioDB 包在2020年已经停止更新，该包依赖PBDB v1 API。

可以选择在Index of /src/contrib/Archive/paleobioDB (r-project.org)下载安装包后，执行本地安装。

Usage

R 复制代码

pbdb_map (data, col.int="white" ,pch=19, col.ocean="black", main=NULL,
col.point=c("light blue","blue"), ...)

Arguments

参数【data】：输入的数据，数据帧格式。可以通过 **pbdb_occurrences()**函数传参 **show = "coords"**获得数据。

参数【col.int】：大陆的颜色。

参数【pch】：详见 par。

参数【col.ocean】：大洋的颜色。

参数【main】：地图标题。详见 par。

参数【col.point】：两种及以上颜色。用来在地图上通过渐变色展示化石记录点。

参数【...】：其他参数。详见 par 和 map。

Details

此函数打开一个新窗口展示地图。

Value

地图上显示了化石记录的分布，根据每个栅格中分布的记录数量，通过渐变色展示。

Example

R 复制代码

> data<- pbdb_occurrences (limit="all", vocab= "pbdb",
+                          base_name="Canis", show="coords")
> X11(width=12, height=8)
> pbdb_map(data)

R 复制代码

pbdb_map(data, pch=1)

R 复制代码

pbdb_map(data,pch=19,col.point=c("pink","red"), col.ocean="light blue",
main="canis")

Page

R 复制代码

function (data, col.int = "white", pch = 19, col.ocean = "black", 
    main = NULL, col.point = c("light blue", "blue"), ...) 
{
    if (sum((colnames(data) %in% c("lat", "lng"))) != 2) {
        stop("Invalid data input. Use in \"pbdb_occurrences\" function the argument: show=\"coords\". e.g. pbdb_occurrences(..., show=\"coords\").\n             See \"pbdb_map\" help page")
    }
    .add.ColOcean(col.ocean, col.int, ...)
    Y <- .extract.LatLong(data)
    Y1 <- .add.Points(Y, col.point, pch, ...)
    title(main = main, line = 1, ...)
    .add.Legend(Y1, col.int, pch, ...)
}