geneFile="gene_happy.txt" #基因列表文件
gene=read.table(geneFile,sep="\t",header=F,check.names=F)
genelist=as.vector(gene[,1])
data_happy=data.frame()
data_happy=matrix(outTab%>%select(all(is.element(genelist)))
out=cbind(ID=row.names(data_happy),data_happy)
write.table(out,file="panGeneExp_happy.txt",sep="\t",quote=F,row.names=F)
```,
###### 运行结果及报错内容
```r
Error: unexpected symbol in:
"data_happy=matrix(outTab%>%select(all(is.element(genelist)))
write.table"
不用这么复杂,都给看晕了,其实用excel打开直接复制粘贴第一列也不慢,R的话也行不过不算表格了,就一列向量
geneFile="gene_happy.txt" #基因列表文件
gene=read.table(geneFile,sep="\t",header=F,check.names=F)
out=gene[,1]
write.table(out,file = "out.txt",sep = "\t")