#LPSC 批量查询高等植物的学名、中文名、科、属、种、分布区以及濒危等级等。
install.packages("devtools")
devtools::install_github("helixcn/LPSC", build_vignettes = TRUE)#LPSC包的安装
library(LPSC)
library(openxlsx)
show_iucn_status("矮牡丹")
#植物学名查询
data <- read.csv("D:/R/plant.csv")
data2 <- show_detail(data$物种)
write.csv(data2,"a.csv")#输出