R：如何绘制每个年龄组的平均值

Question

我有一个包含三列的数据集：Age，Gender，Shoes。鞋柱是指观察所拥有的鞋子数量。我想用每个年龄组所拥有的鞋子的平均数量来计算鞋子的标准偏差。我创建了一个图表，但我不知道是否生成了这个图表。这是我的一些数据集：

  Shoes Gender Age
1    50 Female  57
2     2   Male  27
3     4   Male  22
4     6 Female  19
5     4   Male  24
6    40 Female  28

以下是我编写的用于生成所需图表的代码：

 x <- summarySE(data, measurevar="Shoes", groupvars=c("Gender","Age" ))

 ggplot(x,aes(x=Age, y=Shoes, color=Gender)) + 
   geom_errorbar(aes(ymin=Shoes-se, ymax=Shoes+se), width=.1) +
   geom_line() +
   geom_point()

我知道年龄很难在底部阅读，但它们是10,11,12,13 ... 91及以上。此图表是否显示每个年龄段的鞋子平均数量，以及每个平均点周围鞋子的标准偏差？

谢谢大家！