获得GSEA软件需要的表达矩阵

ex <- rownames_to_column(ex)
ex$DESCRIPTION <- 'na'
ex <- relocate(ex, DESCRIPTION, .after = rowname)
write.table(ex, 'ex.txt', sep = '\t',quote = FALSE,row.names = F)

GSEA 软件需要输入有一列DESCRIPTION。可以用‘NA’填充。