Skip to content

Instantly share code, notes, and snippets.

@yuchiyama8712

yuchiyama8712/wamei-gakumei.R

Created September 24, 2020 19:41
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save yuchiyama8712/47bc5ab303ebaf1c301d044c0143feab to your computer and use it in GitHub Desktop.
Save yuchiyama8712/47bc5ab303ebaf1c301d044c0143feab to your computer and use it in GitHub Desktop.
Download ZIP
Make Japanese name - scientific name relationship list by iNaturalist
Raw
wamei-gakumei.R
# Requirements.
# packages: data.table, dplyr
library(data.table)
library(dplyr)
taxa <- fread("taxa.csv")
setkeyv(taxa, "id")
ja_names <- fread("VernacularNames-japanese.csv")
setkeyv(taxa, "id")
ja_names <- ja_names %>%
left_join(taxa, by = "id")
fwrite(ja_names, "wamei-gakumei.csv")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment