dt <- dt[!dt$Description %in% c("Neuronal System","Neurotransmitter receptors and postsynaptic signal transmission"),]
dt <- dt[!dt$Description %in% c("Transmission across Chemical Synapses","Muscle contraction","Axon guidance","HIV Life Cycle" ,"HIV Infection","Late Phase of HIV Life Cycle","Host Interactions of HIV factors"),]
dt$name <- ifelse(dt$Description == "HDR through Homologous Recombination (HRR) or Single Strand Annealing (SSA)", 'HDR through HRR or SSA',dt$Description )
dt$Name <- dt$name #paste0(dt$ID, '-' ,dt$name)
l <- c('Hematopoiesis','Metabolic process','Gene expression regulation','DNA repair','Cell cycle',
R-HSA-162599 Late Phase of HIV Life Cycle 132 0.339928852536529 1.54555271194018 0.00216919739696312 0.0150638708122439 0.00951402367089089 5981 tags=52%, list=33%, signal=35% CHMP4C/CDK7/VPS4B/CHMP5/TAF9/TAF7L/POLR2L/TAF9B/POLR2K/CCNH/NCBP2/TSG101/POLR2J/UBAP1/POLR2B/GTF2B/GTF2A1/TAF10/ELOC/GTF2H5/GTF2A2/UBB/POLR2F/TAF12/TAF7/GTF2E1/ERCC3/AAAS/NUP160/GTF2H2/CHMP2A/MNAT1/CHMP2B/VTA1/RANBP2/NUP88/SUPT16H/SEH1L/POLR2G/RPS27A/GTF2F2/NUP188/NUP107/PDCD6IP/POLR2I/ELOB/TBP/CCNT2/RNMT/PPIA/NUP54/NUP85/SUPT5H/NUP155/TAF11/UBA52/TAF1/SEC13/RNGTT/GTF2E2/NUP205/RAN/GTF2H1/NUP35/CHMP6/NUP42/ELOA/CHMP3/GTF2F1