【R语言】【ggplot2】给多曲线图手动添加legend

ggplot(raw_em, aes(x=ymd(date))) +
  #color添加到aes()中，color = ‘legend里显示的分类名称’
  geom_line(aes(y = PM2_5/1000,color="PM2.5"),size = 0.5) + 
  geom_line(aes(y = NOx/10^5,color= 'NOx'),size = 0.5)+
  geom_line(aes(y = HC/1000,color= 'HC'),size = 0.5)+
  geom_line(aes(y = CO/10^5,color= 'CO'),size = 0.5)+
  xlab("date")+
  scale_y_continuous(expand = c(0,0),
                     name = 'emission(kg)',
                     sec.axis = sec_axis(~.*100))+   #调整坐标系
  theme(axis.line = element_line(size = 1,color = 'black'),    #调整坐标轴和标题文字
        axis.title = element_text(size = 8,color = 'black',face = 'bold'),
        plot.title = element_text(size = 10))+
  scale_x_date(date_breaks = '1 month',date_labels = '%m%d')+
  labs(title = '2017年威海港港口货运车四种污染物排放时间变化曲线',)+
  #标签的名称和颜色设置
  scale_colour_manual(name="pollution",values = 
                     c('PM2.5'='#69b3a2','NOx'='#B33F2D','HC'='#806d9e','CO'='#2376b7'))