（写给小白）根据表1某列提取表2的具有相同列的行

（加粗字体修改成自己的列）

table1：列依据的表

table2：需提取行的列表

r 语言代码：

new=table2[table1$colname，] #提取该列所在的行

write.table(new,file="newtable.txt",sep="\t",row.names=F)