想问一下这怎么解决？

可以贴一下代码吗

可以贴一下代码或者拍张完整点儿的图，上面的图有效信息能掌握的并不多，比较难判断。

kegg_diff_dt <- as.data.frame(kk.diff)
kegg_down_dt <- as.data.frame(kk.down)
kegg_up_dt <- as.data.frame(kk.up)
是geo数据的kegg分析，用的菜鸟生信的代码