`get_data_from_KEGG_db`函数少了这一步: `PATHID2NAME.df[,2] <- sub("\\s-\\s[^-]+$", "", PATHID2NAME.df[, 2])`