R语言绘图笔记—火山图

做个R语言绘图笔记，方便以后查看。

火山图：

library(ggplot2)
p1 <- ggplot(res, aes(x =log2FoldChange, 
                      y=-log10(pvalue), 
                      colour=sig)) + 
  geom_point(size=2, shape = 16) +  # 设置节点大小
  # 设置节点对应颜色
  scale_color_manual("significant" ,
                     values=c("#4EBED8", "#858D8D","#EA4C36")) + 
  
  xlim(c(-30, 30)) +  # 设置X轴范围
  # 画图中横线和竖线
  geom_vline(xintercept=c(0),lty=4,col="#858D8D",lwd=0.7) + 
  geom_hline(yintercept = -log10(0.05), lty=4,
             col="#858D8D",lwd=0.7) +  
  # 设置X轴和Y轴标签
  labs(x="log2FC", y="-log10pvalue") + 
  # 设置图例
  theme(plot.title = element_text(hjust = 0.5),
        legend.position="right", 
        legend.title = element_blank()
  ) + theme_bw()
p1 #出图