筛选文件名为Tgra.chr.intron.stat.length.total中， 内含子长度大于90000且小于100001的数据

library(tidyverse)                      #加载软件包
t <- filter(Tgra.chr.intron.stat.length.total, Intron1_length > 90000 & Intron1_length < 100001)                        #不能直接写到文件里，需要给他一个变量存放
write.table(t,file="文件名")            write.table(t,file="D:/name")#指定本地存放路径

双表关联

left_join(表1, 表2, by="相同的列名")     #列名以左边的表格（表1）为标准，若表2中有的表1中没有就不会显示,若表1中有的表2中没有表2那一列就显示NA
full_join(表1, 表2, by="相同的列名")     #表1和表2取并集
inner_join(表1， 表2, by="相同的列名")    #表1和表2取交集
inner_join(表1, 表2, by=c("表1列名"="表2列名"))

筛选

 t <- select(less_1kb, Chr.ID,GeneID,Intron1_length,gen,jing,ye,qingguo,qingpi,zhongke,zhongren,total)      #less_1kb为表格名，Chr.ID,GeneID,Intron1_length,gen,jing,ye,qingguo,qingpi,zhongke,zhongren,total是less_1kb表格中需要保留的列名
 write.table(t,file="D:/FPKM.less_1kb.txt")