R; ggplot2：将 1 个图与另一个图重叠

我有两个 ggplots。第一个看起来像这样：

ggplot(nurse, aes(x = nurse$z2.bk, y = nurse$z1.bk, color = nurse$phoneme)) +
  geom_point() +
  scale_x_reverse() + scale_y_reverse() +
  scale_color_discrete() +
  theme_classic()

然后我创建了一个子集，用于计算每个音素类别的 z1.bk 平均值和 z2.bk。mean_F1 = z1.bk 平均值，mean_F2 = z1.bk 平均值。

  vowel  mean_F1 mean_F2
  <fct>    <dbl>   <dbl>
1 Er     0.00830  0.612 
2 Ir    -0.0433   0.0456
3 Vr     0.0365  -0.576 

然后我为这些值创建了另一个 ggplot（如下）并根据nurse$phoneme 值标记它们。我只是在此处将它们重命名为元音，以使所有内容都更简洁。

ggplot(means, aes(x = mean_F2, y = mean_F1, label = vowel)) +
  geom_label() + 
  scale_x_reverse() + scale_y_reverse() + 
  theme_classic()

我现在想覆盖它们，以便标签显示在相应颜色的其他点上方，即红色的 Er.... 我尝试了以下操作，但收到一条错误消息。

ggplot(nurse, aes(x = nurse$z2.bk, y = nurse$z1.bk, color = nurse$phoneme, label = means$vowel)) +
  geom_point() + 
  geom_label(data = means, aes(x = mean_F2, y = mean_F1)) +
  scale_x_reverse() + scale_y_reverse() +
  theme_classic()

Error: Aesthetics must be either length 1 or the same as the data (563): label

If I change 'label = means$vowel' to just 'vowel', I get another error message saying the object can't be found. If I change it to nurse$phoneme, I get this error message Error: Aesthetics must be either length 1 or the same as the data (3): colour, label.

How do I combine them properly? If I need to supply you with more data, just let me know. And thanks in advance!