![]() ![]() ![]() P1 2.5, 'gold', 'black')) lour <- 'black' names(lour) <- 'high' names(lour) <- 'mid' names(lour) <- 'low' p2 <- EnhancedVolcano(res, lab = rownames(res), x = 'log2FoldChange', y = 'pvalue', selectLab = rownames(res), xlab = bquote( ~Log ~ 'fold change'), title = 'Custom shape & colour over-ride', pCutoff = 10e-14, FCcutoff = 1.0, pointSize = 5.5, labSize = 0.0, shapeCustom = keyvals.shape, colCustom = lour, colAlpha = 1, legendPosition = 'right', legendLabSize = 15, legendIconSize = 5.0, drawConnectors = TRUE, widthConnectors = 0.5, colConnectors = 'grey50', gridlines.major = TRUE, gridlines.minor = FALSE, border = 'full', borderWidth = 1.0, borderColour = 'black') library(gridExtra) library(grid) grid.arrange(p1, p2, ncol= 2, top = textGrob( 'EnhancedVolcano', just = c( 'center'), gp = gpar( fontsize = 32)))
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |