merge函数会对rowname重新排序
data_fdr_transed <- merge(row_name_dt,data_fdr,by.x="col_name")
保持原有顺序
1.join函数
tmp<- plyr::join(row_name_dt,data_fdr,by="col_name")
2.创建一个变量,它给出row_name_dt中的行号。然后,一旦合并了数据,就可以根据这个变量对新的数据集进行排序。
##按照row_name_dt的row_name顺序合并两个数据集
row_name_dt$id <- 1:nrow(row_name_dt)
data_fdr_transed <- merge(row_name_dt,data_fdr, by = "col_name")
data_fdr_transed <- data_fdr_transed[order(data_fdr_transed$id), ]
3.inner_join函数
inner_join(row_name_dt,data_fdr)