问题细节如下：表里面fid为家庭代码，huzhu为户主，现在我想增加一列hzage，让该列所有数据为对应家庭户主的年龄


就像下面这张图一样：

我用的方法如下，

虽然能得到想要的结果，但是感觉好像写复杂了，有哪位大佬帮忙看看有没简单的方法达成这个目的呢？感激不尽
（顺便想问下，得出结果后我用data1 <- select(data1,everything(),hzage)排序想把hzage排到最后，但是好像不生效，不知道什么原因，或者有没什么解决办法...）