data <- read.csv(“gsea.csv”,stringsAsFactors = F)
    ggplot(aes(x = NES , y = -log10(FDR.q.val)),data = data) + geom_point(size = 3,aes(fill = risk),color = “red”,)+
    ylab(“-log10(FDR.q.val)”) + xlab(“NES”) +
    geom_text(aes(label = NAME),hjust = “left”,size = 3) +
    theme(panel.grid.major =element_blank(),
    panel.grid.minor = element_blank(),
    panel.background = element_blank(),
    axis.line = element_line(colour = “black”),
    axis.text.x = element_text(size=12),
    axis.text.y = element_text(size=12),
    axis.title.y = element_text(angle=90, colour=”darkred”,size=14),
    axis.title.x = element_text(angle=0, colour=”darkred”,size=14))