https://blog.csdn.net/dashenghuahua/article/details/53884649
查询
#subset(data,group=="black") #查询#data[which(data$group=="black"),]
