R 在不使用“缩放颜色”手册的情况下，为hline指定与图表中其他线条不同的颜色？

对R来说是相当陌生的，所以如果这是一个简单的问题，请原谅我。我创建了一个图表，跟踪数据提供者的丢失率百分比。我使用刻度\颜色\布鲁尔“蓝色”指定“数据提供程序”线的颜色。在上一次迭代中，我曾使用scale_color_manual为数据提供程序分配颜色，但这不能再使用，因为数据提供程序现在是代码中的变量，使用IF语句，如果在代码的前面分配了1，则仅包括在闪亮的报告中

我试着在.85处画一条水平线，我试着把颜色改成红色。代码的“蓝色”部分似乎覆盖了“红色”线，这意味着它是一条粗蓝线，在图例中有“红色”的名称。我如何纠正这个问题？示例代码如下：

LR_Graph_Plot  <- ggplot() +
          geom_hline(aes(yintercept = 0.85, color ="red"), size = 1.25) +
          geom_line(data = LR_Graph(), aes(x = YM1_DATE, y = ELR, group = Data.Provider, color = Data.Provider), size = 0.75) +
          # geom_hline(aes(yintercept = 0)) +
          scale_colour_brewer("Blues") +
          labs(y = "Loss Ratio (%)") +
          ggtitle("Earned Loss Ratio: Loss Ratio Monthly split by Data Provider") + 
          scale_y_continuous(labels = scales ::percent) + 
          scale_x_date(breaks = "months", date_labels = "%Y-%m") + 
          theme_bw() +
          theme(axis.title.x = element_blank(), legend.title = element_blank(), panel.border = element_blank(),
                axis.line.y = element_line(color='black'), axis.line.x = element_line(color='black'),
                legend.position = "right" , axis.text.x = element_text(angle = 90)) +
          theme(
            panel.background = element_rect(fill="#cccccc", color="#000000",size = 2, linetype = "solid"),
            panel.grid.major = element_line(size = 0.5, linetype = "solid", colour = "white"),
            panel.grid.minor = element_line(size = 0.5,linetype = "solid", colour = "white")
          )

        ELR_Graph_Plot <- ggplotly(LR_Graph_Plot)

---

LR\u Graph\u Plot将颜色分配移出美学映射
aes（）
。然后，线条使用固定的颜色，而不是提供的颜色比例

您的线路
geom\u hline（aes（yintercept=0.85，color=“red”），size=1.25）
应该是
geom\u hline（aes（yintercept=0.85，color=“red”，size=1.25）