setwd("D:\\FreeVideo\\99vol_plot")
library(ggplot2)
biowolf<-read.table(file="tcga_volcano_plot.txt",header=TRUE,row.names = 1)
volcano<-ggplot(biowolf,aes(x=logFC,y=-log10(FDR)))
volcano+geom_point(aes(color=significant))
+scale_color_manual(values=c("blue","grey","red"))
+labs(title="Volcanoplot",x="logFC",y="-log10(FDR)")
+geom_hline(yintercept=2,linetype=3)
+geom_vline(xintercept=c(-2,2),linetype=3)
|