好多天没更新了，刚才在一个微信群里有人问如何查看两个dataset的相同或不同数据，我尝试做了一下。
微信图片_20210511114206.png
library(dplyr)
a <- c( "扁蓿","草食蚕", "车前","臭蒿", "垂穗鹅冠草", "垂穗披碱草" ,"刺儿菜" ,
"点地梅" , "独活", "多枝黄芪" , "鹅绒委玲菜" ,"繁缕")
b <- c("点地梅", "独活" , "多枝黄芪", "鹅绒委玲菜", "繁缕" ,
"防风" , "风毛菊" , "凤毛菊" , "狗娃花" ,"蒿", "堇菜" , "巨头棘" )
a <- as.data.frame(a)
b <- as.data.frame(b)
colnames(b) <- c("a")
##合并两个数据集
df <- as.data.frame(dplyr::bind_rows(a,b))
##查看不同的物种
unique(df$a)
###[1] "扁蓿" "草食蚕" "车前" "臭蒿" "垂穗鹅冠草" "垂穗披碱草" "刺儿菜" "点地梅" "独活"
##[10] "多枝黄芪" "鹅绒委玲菜" "繁缕" "防风" "风毛菊" "凤毛菊" "狗娃花" "蒿" "堇菜"
##[19] "巨头棘"
dif <- as.data.frame(unique(df$a))
###查看相同的物种
df$a[duplicated(df$a)]
###[1] "点地梅" "独活" "多枝黄芪" "鹅绒委玲菜" "繁缕"
same <- as.data.frame(df$a[duplicated(df$a)])
