R语言数据框按条件计算平均值

目前已有一个数据框如下:

图片说明

Var1 代表年龄
Var2 代表邮政编码
Freq代表 在该年龄下的 邮政编码有几个
以第一行为例 4000编码下的8岁孩子有一个
现在要计算 所有邮政编码下的年龄平均值,该怎么写呢?
eg: 4000下有两个人,一个8岁,一个60岁,平均年纪就是34岁。
初学,希望大佬们不吝赐教

https://blog.csdn.net/faith_mo_blog/article/details/50738645