ggplot2

Question

我正在尝试将估计值和间隔设置为黑色（如果间隔的下限大于1）或灰色（如果间隔的下限小于1）。这是我的代码：

p <- ggplot(plot.data)+ scale_y_continuous(breaks = c(0, 1, 2),labels = c("1","2.7","7.4"),name="Odds Ratio")
p <- p + geom_hline(yintercept = 0, colour = gray(1/2), lty = 2)
p <- p + geom_pointrange(aes(x = DV, y = Estimate, ymin = Lower,
                             ymax = Upper),
                         lwd = 1/2, position = position_dodge(width = 1/2),
                         shape = 16,color=ifelse(plot.data$Lower<0,"gray60","black")) #+ facet_grid(Missing ~.)+ theme_classic()
p <- p + xlab(label="Predictor Variable") + theme(axis.text.x=element_text(angle=45,hjust=1,vjust=.6))+theme(strip.text.x = element_blank())
p <- p +  theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank()) + facet_grid(vars(Missing),vars(Number),scales = "free_x",space="free_x")
p

由于某些原因，此代码仅部分起作用：

具体来说，似乎有一些情况似乎没有遵守规则。例如，在下一行中将“ PT”作为预测变量。即使间隔的下限越过零，它也会被涂成黑色。

上面的行似乎没有任何问题，所以这可能与在facet_grid上应用规则有关吗？也就是说，它不能将规则平等地应用于所有方面吗？

编辑：此问题已解决。请参阅下面的评论部分。