vision.plot <- function(vision.obj, groupName, signature.names = NULL, title = "", subgroup = T, fontsize = 10, dot.size = 1, wid = 2, hei = 4, jitter.size = 0.3){
    require(ggsci)
    if(is.null(signature.names)){
        sigScore <- as.data.frame(vision.obj@SigScores)
    }else{
        sigScore <- as.data.frame(vision.obj@SigScores[, signature.names])
    }
    sigScore <- scale(sigScore)

    sigScore$group <- vision.obj@metaData[, groupName]
    require(reshape2)
    vision.group.score <- melt(sigScore, id.vars = "group", variable.name = "Type", value.name = "Score")
    
    #box plot
    p1 <- ggboxplot(vision.group.score, x = "group", y = "Score", color = "Type", xlab = "", palette = "npg", title = title, ylab = "Score", add="jitter", add.params = list(size = jitter.size)) + theme(axis.text.x = element_text(angle = 30, hjust = 1)) + stat_compare_means(aes(group = Type))
    print(p1)
    umap <- as.data.frame(vision.obj@Projections$Seurat_umap)
    umap.data <- cbind(umap, sigScore)
    if(subgroup){
        subgroup.label <- colnames(sigScore)[-ncol(sigScore)]
        for(i in subgroup.label){
            index <- which(vision.group.score$Type == i)
            p2 <- ggboxplot(vision.group.score[index,], x = "group", y = "Score", palette = "npg", color = "group", xlab = "", title = i, ylab = "Score", add="jitter", add.params = list(size = jitter.size)) + theme(legend.position="none", axis.text.x = element_text(angle = 30, hjust = 1)) + stat_compare_means(label.y = max(vision.group.score[index,"Score"]))
            print(p2)

            p3 <- ggscatter(umap.data, x = "UMAP_1", y = "UMAP_2", color = i, fill = i, alpha = 0.6, size = dot.size) + gradient_color(c("lightgrey", "red"))
            print(p3)
        }
    }

    #heatmap plot
    vision.meanScore <- apply(sigScore[,-ncol(sigScore)], 2, function(x) {
        a <- tapply(x, vision.obj@metaData[, groupName], mean)
        return(a)
    })
    require(ComplexHeatmap)
    require(circlize)
    p4 <- Heatmap(vision.meanScore, width = unit(wid, "cm"), height = unit(hei, "cm"), show_column_dend = F, show_row_dend = F, row_names_gp = gpar(fontsize = fontsize), column_names_gp = gpar(fontsize = fontsize))
    print(p4)
}