面板边框不会使用ggplot2

Question

我正在尝试为我的情节添加一个面板边框 - 但是边框一直在x轴下方。有没有人有任何建议让面板边框的底线直接落在x轴上。

f<- ggplot(nadph, aes(x = reorder(DGRP.Line, MEN), y = MEN)) +
geom_bar(stat = "identity") +
xlab("DGRP Line") + ylab ("MEN activity (standardized)") +
theme(axis.text.x=element_blank(),
    panel.background = element_blank(),
    panel.grid.major = element_blank(),
    panel.grid.minor = element_blank(),
    axis.ticks.x = element_blank(),
    panel.border = element_rect(color = "black", fill= NA, size=1))