R 如何在ggplot2的图例中显示颜色和不透明度？

这是一个我正在尝试创建的情节，就像图中所示

我的代码：

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()

我得到的：

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中显示的颜色和不透明度相同。我尝试了很多方法，但是我在某个地方遗漏了一些东西

《纽约时报》的情节似乎没有在不透明度中编码任何东西，我也不明白为什么要将分类变量编码为不透明度。你能解释一下你认为当前方法有什么问题吗？这并不是说它错了，只是想确定哪个

Functn

是哪个。现在，此图仅显示

性别

，不透明度将为

函数

。我真正想要的是整个职能部门的性别分布。我希望这是清楚的，据我所知，《纽约时报》的情节只是简单地映射了女性/男性的比例，即一个连续的变量，不同职业的颜色会自动产生梯度色阶。但是，哪个职业（我得到的职业对应于您的

函数）对应于从绘图中看不到的行。这就是为什么他们添加了一些例子职业的注释。我认为《纽约时报》的情节非常复杂，我不知道我是否会尝试复制它。。。仅供参考，它们有一个“离散连续尺度”，这不是ggplot的固有特征。《纽约时报》的情节似乎没有在不透明度中编码任何东西，我也不明白为什么要将一个分类变量编码为不透明度。你能解释一下你认为当前方法有什么问题吗？这并不是说它错了，只是想确定哪个
Functn
是哪个。现在，此图仅显示
性别
，不透明度将为
函数
。我真正想要的是整个职能部门的性别分布。我希望这是清楚的，据我所知，《纽约时报》的情节只是简单地映射了女性/男性的比例，即一个连续的变量，不同职业的颜色会自动产生梯度色阶。但是，哪个职业（我得到的职业对应于您的
函数）对应于从绘图中看不到的行。这就是为什么他们添加了一些例子职业的注释。我认为《纽约时报》的情节非常复杂，我不知道我是否会尝试复制它。。。仅供参考，它们有一个“离散连续尺度”，这不是ggplot的固有特征。