Как показать цвет и непрозрачность в легенде в ggplot2?

Question

Это график, который я пытаюсь создать, как тот, который был показан в nytimes .

Мой код :

ggplot(gwsj, aes(x = Year, y = Freq, color = Gender)) + 
  geom_line(size = 1.2, aes(alpha = Functn)) + 
  geom_point(aes(alpha = Functn)) + 
  scale_color_manual(values = c("Female" = "#d81b60", "Male" = "#1976d2")) +
  facet_wrap(~OrgType, scales = "free_y") +
  theme_pubclean()

Что я получаю :

Что я хочу

Шкала, показывающая счет gender и легенду Functn с цветами и непрозрачностью, подобными показанным в nytimes. Я много чего перепробовал, но где-то чего-то не хватает