a=read.table(file = "H_V75_ENSG,T,P_type-mart_export.txt",header = TRUE,sep = "\t")#以數據框格式讀取原文件pro_cod=a[a$Gene.Biotype=="protein_coding",]#篩選出數據框中第四列爲protein_coding的子數據框write.table(pro_cod,file = "pro_cod_selected.txt")#從新寫入篩選後文件it