gseaplot2中的pvalue_table定制化

来自于GitHub中的需求，两个问题：

• 只画一条通路，不想要pvalue_table的rowname

• 希望pvalue_table可定制，比如可以把NES放进去。

先跑个示例：

library(DOSE)
data(geneList)
x <- gseDO(geneList)

那么我在gseaplot2这个函数里加了两个参数，分别应对这两个问题：

• pvalue_table_columns：用于指定什么信息放进表格里展示

• pvalue_table_rownames：用于指定那个信息拿来当rownames

默认行为保持不变：

gseaplot2(x, 1, pvalue_table=T)

去掉rownames，只需将pvalue_table_rownames设为NULL:

gseaplot2(x, 1, pvalue_table=T, pvalue_table_rownames=NULL)

可以指定rownames用什么信息，比如此处用ID，表格通过pvalue_table_columns可以自由指定：

gseaplot2(x, 1, pvalue_table=T, 
    pvalue_table_rownames="ID", 
    pvalue_table_columns=c("NES", "p.adjust"))

像上面这个图，也可以不要rownames，然后把这个信息放到table里：

gseaplot2(x, 1, pvalue_table=T, 
    pvalue_table_rownames=NULL, 
    pvalue_table_columns=c("ID", "NES", "p.adjust"))