hall.path <- scan('mh.all.v2023.1.Mm.symbols.gmt',sep='\n',what="c")
hall.path <- strsplit(hall.path, "\t")
names(hall.path) <- sapply(hall.path, `[[`, 1)
hall.path <- lapply(hall.path, `[`, c(-1,-2))
通过以下代码将hallmark的名称改为小写且去除“HALLMARK”前缀
names(hall.path) <- stringr::str_to_title(substring(names(hall.path),10))
names(hall.path) <- gsub(pattern="_", replacement=" ", x=names(hall.path))
