下面这样一条代码,我都看来半天,还一直整不明白,真的才发现注释每个代码是有多么重要。
lhm <- slice(lhm,match(unique(lhm$sciname),lhm$sciname))
下面这样一条代码,我都看来半天,还一直整不明白,真的才发现注释每个代码是有多么重要。
lhm <- slice(lhm,match(unique(lhm$sciname),lhm$sciname))
unique()
函数,将lh变量中的重复项删除match()
函数,将非重复项从含有重复项的向量中提取出来。slice()
函数从lhm数据集中,根据sciname向量,提取出非重复的行