R 更改图例线型颜色

我使用R中的qplot函数和以下脚本创建了一个折线图：

qplot(fuclin, fitHYPT2, data=ib, geom=c("smooth"), method="glm", 
      color=ATgroups, linetype=BL_HYPT) +
    theme_classic() + 
    xlab("Time (years)") + ylab("MMSE") + 
    scale_x_continuous(expand=c(0,0)) +
    coord_cartesian(ylim = c(24, 30)) +
    scale_color_manual(values=c("#CC6666", "#9999CC", "#66CC99", "#3399CC")) +
    scale_linetype(guide_legend(title = "Hypertension"))

它将创建以下图形：

---

我想将线型图例中线条的颜色更改为黑色（出于某种原因，R将它们改为蓝色，这毫无意义）。有人知道怎么做吗

+指南（lty=guide\u legend（override.aes=list（col='black'））

太好了！谢谢：）您可能还知道如何更改置信区间的颜色吗？我用geom_ribbon命令试过了，但没有用…使用

fill=I（“red”）

或

fill=ATgroups

inside

qplot

+guides（lty=guide\u legend（override.aes=list（col='black'））

太好了！谢谢：）您可能还知道如何更改置信区间的颜色吗？我用geom_ribbon命令尝试了它，但它不起作用…使用

fill=I（“红色”）

或

fill=ATgroups

inside

qplot