新手求助，在用ggplot2画基因差异火山图过程中，r出现如下错误：这是用ggplot2运行出来的图

这是用volcano运行出来的图


但结果是错误的，求大神看看代码错在哪了，还有请问ggplot2作图能否把图像下面一些空白部分也补充上，谢谢。
代码如下：data <- read.table("05gene.foldchange.txt",header = T,sep="\t")
data$threshold <- as.factor(ifelse(data$adj.P.Val < 0.05 & data$logFC >1,ifelse(data$ adj.P.Val < 0.05 & data$logFC<(-1),"UP","Down"),"Not"))


请各位大神不吝指教，谢谢！