Ggplot2 legend.ошибка положения в вершине

Я пытаюсь создать графики с помощью ggplot2, но легенда не отображается. Я пробовал использовать аргумент scale_fill_manual(), но получаю ошибку. Ниже приведен пример codeа с codeом scale_fill_manual() и без него, а также результаты.

Ниже приведен code и ошибка при использовании "legend.position```

Ошибка: Ошибка в ggplot() + geom_line(obs.ushe.after.move, mapping = aes(x = obs, : недопустимая (NULL) левая часть назначения. Трассировка:

ggplot() +
geom_line(obs.ushe.after.move, mapping = aes(x= obs, y = med_wage_diff), col = '#0054E5', linewidth =1.1) + 
geom_line(obs.ushe.after.stayer, mapping = aes(x= obs, y = med_wage_diff), col = '#E5B300', linewidth =1.1) + 
geom_line(obs.ushe.after.non, mapping = aes(x= obs, y = med_wage_diff), col = '#595959', linewidth =1.1) +   

scale_fill_manual(#values =c(colors),
                               #'y4'='#99BEFF', 'y5'= '#FFE599', 'y6'='#AEACAC'),
                     name = "",
                     labels = c('Job-to-Job', 
                                'Job Stayers',
                                'Nonemployed-to-Employed')) +
#  legend('topleft', legend = c(0,1)) +
#  scale_x_discrete(breaks = c('16Q1', '17Q1', '18Q1', '19Q1', '20Q1', '21Q1')) + 
  scale_y_continuous(limits=c(0, 20000), labels = scales::dollar) + 
  theme(panel.background = element_blank(),  legend.text =element_text(size=14)) +
  labs(y = '', x = '')

ggplot() +
geom_line(obs.ushe.after.move, mapping = aes(x= obs, y = med_wage_diff), col = '#0054E5', linewidth =1.1) + 
geom_line(obs.ushe.after.stayer, mapping = aes(x= obs, y = med_wage_diff), col = '#E5B300', linewidth =1.1) + 
geom_line(obs.ushe.after.non, mapping = aes(x= obs, y = med_wage_diff), col = '#595959', linewidth =1.1) +   

scale_fill_manual(#values =c(colors),
                               #'y4'='#99BEFF', 'y5'= '#FFE599', 'y6'='#AEACAC'),
                     name = "",
                     labels = c('Job-to-Job', 
                                'Job Stayers',
                                'Nonemployed-to-Employed')) +
#  legend('topleft', legend = c(0,1)) +
#  scale_x_discrete(breaks = c('16Q1', '17Q1', '18Q1', '19Q1', '20Q1', '21Q1')) + 
  scale_y_continuous(limits=c(0, 20000), labels = scales::dollar) + 
  theme(panel.background = element_blank(),  legend.text =element_text(size=14)) +
  labs(y = '', x = '') +
 legend.position = c('bottom')