Как разбить легенду на несколько групп по категориальной переменной

Question

У меня есть регионы в качестве категориальной переменной и несколько стран под каждым регионом. Если я строю график с несколькими линиями для каждого региона, используя facet_wrap, я вижу график для каждого региона, но легенда довольно неясна, поскольку не организована в соответствии с регионами. Как я могу разбить легенды для каждого сюжета в facet_wrap, показывая только страны в этой группе.

2. Я попытался вручную раскрасить страны, чтобы сделать их более понятными (по умолчанию одни и те же цвета повторяются, но это не помогло)

Ниже приведен код, который я пробовал для задачи 2, но это не помогло.

ggplot(data = temp_tidy, aes(x= year,y= population)) + 
   geom_point()+geom_line(aes(group=`Country of birth`)) facet_grid(Major_Region_New~. )+
   scale_color_manual(values = c("red","blue","green","brown","yellow","pink","seagreen1",
                                 "gold1","sienna2","tomato","plum4","purple2"))

Фактический сюжет должен состоять из 4 легенд с 3 странами под каждой.