NES排序问题

[tu12dou]

你好，老俊俊! 感谢你开发的这个包，非常棒! 在实际使用的过程中我发现有些小问题。 代码如下 dotplotGsea(data = GSEA_reactome, order.by = "NES", topn=5 ) 使用这个函数画图，所画的抑制的信号通路，并不是NES值最小的5个。我查看了你的源代码。发现了问题所在 if (!is.null(topn)) { df <- df %>% dplyr::group_by(type) %>% dplyr::arrange(dplyr::desc(.data[[order.by]])) %>% dplyr::slice_head(n = topn) } 这行代码，dplyr::desc(.data[[order.by]])应改为 dplyr::desc(abs(.data[[order.by]]))。加上abs函数，按照ES的绝对值排序便可以。 谢谢！如有不对，请指正!

[junjunlab]

感谢建议,已修正,请重新安装测试。