更改图例线型颜色

Question

我使用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使它们变为蓝色，这没有任何意义）。有人知道怎么做吗？