r语言-植物拉丁名查询

library(plantlist)
sp<-c(" Phaius flavus " ,
" Thevetia peruviana " ,
" Utricularia aurea " ,
" Hoya fusca " ,
" Isodon sculponeatus " ,
" Gonocarpus chinensis " ,
" Echinacanthus lofouensis " ,
" Tricyrtis pilosa " ,
" Oenotheraglazioviana " ,
" Senna surattensis " ,
" Impatiens siculifer " ,
" Vitex negundo " ,
" Stauntonia brachyanthera " ,
" Boniodendron minus " ,
" Coptis chinensis " ,
" Pistacia chinensis " ,
" Agrimonia pilosa var. nepalensis " ,
" Berberis amurensis " ,
" Corchorus capsularis " ,
" Grewia henryi " ,
" Rubus xanthoneurus ") #括号内填物种名，用英文状态的双引号和逗号隔开，在excel内列出，无需合并，直接粘贴进来。
sp2<-TPL(sp)
res <- taxa.table(sp2)
taxa.table(res)
writeLines(res,"taxa.table.txt") # 输出的是TXT格式的文件。可以做谱系多样性分析。
setwd("D:\\") #"D:\\"为自己设定的工作空间。
getwd()# 查看当前的工作空间。
write.table(res,"daochushuju.csv",sep=",")#res是R生成的数据，sample.csv是存到本地的文件名，最后在自己设定的工作空间找到导出的CSV文件。
###以上可以做谱系多样性分析。

devtools::install_github("jinyizju/V.PhyloMaker")
install.packages(V.PhyloMaker)

 

library(plantlist)
sp<-c("马棘", "多花泡花树", "粗毛牛膝菊") #括号内填物种名，用英文状态的双引号和逗号隔开，引号中间不能有空格。在excel内列出，无需合并，直接粘贴进来。
res <- CTPL(sp)
taxa.table(res)
writeLines(res,"taxa.table.txt") # 输出的是TXT格式的文件。
setwd("D:\\") #"D:\\"为自己设定的工作空间。
getwd()# 查看当前的工作空间。
write.table(res,"daochushuju4.csv",sep=",")#res是R生成的数据，sample.csv是存到本地的文件名，最后在自己设定的工作空间找到导出的CSV文件。