从图例中删除NA元素以获取构面中的额外数据元素

Question

通常，我知道我可以在breaks命令中使用scale_color_manual来删除特定标签。但是由于某种原因，这在我的情况下不起作用，并且我看不到错误。如果我尝试设置中断（取消注释行注释），则会删除整个图例。

我忽略了什么吗？可能不是整体数据框架吗？问题是我只想在其中一个方面设置阈值。

library(ggplot2)
threshold <- log2(c(1.5,2))
ggplot() +
  geom_hline(data=data.frame(category=c('contains virus IDs', 
                                        rep('enriched',4)),
                             threshold=c(NA, threshold, -threshold),
                             color=c(NA, rep(2^threshold, 2))),
             aes(yintercept=threshold, color=as.factor(color)), 
             na.rm=TRUE) +
  scale_color_manual('threshold', 
                     values=c(`2`='red', `1.5`='orange')
                     # , breaks=c(`2`='2 fold', `1.5`='1.5 fold')
                     ) +
  facet_grid(~ category, scales='free_x', space='free_x')