搜索
人大经济论坛 › 附件下载

附件下载

所在主题：
文件名:  data1.txt
资料下载链接地址: https://bbs.pinggu.org/a-3244260.html
附件大小:
问题细节如下：表里面fid为家庭代码，huzhu为户主，现在我想增加一列hzage，让该列所有数据为对应家庭户主的年龄


就像下面这张图一样：

我用的方法如下，
  1. data1 <- read.csv("data1.txt")
  2. library(tidyverse)
  3. data1$hzage1 <- ifelse(data1$huzhu==1,data1$age,NA)
  4. data1 <- data1 %>% group_by(fid) %>% summarise(hzage=max(hzage1,na.rm = T)) %>%
  5. plyr::join(data1, type = 'full',by='fid')
复制代码

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


    熟悉论坛请点击新手指南
下载说明
1、论坛支持迅雷和网际快车等p2p多线程软件下载，请在上面选择下载通道单击右健下载即可。
2、论坛会定期自动批量更新下载地址,所以请不要浪费时间盗链论坛资源,盗链地址会很快失效。
3、本站为非盈利性质的学术交流网站,鼓励和保护原创作品，拒绝未经版权人许可的上传行为。本站如接到版权人发出的合格侵权通知，将积极的采取必要措施；同时，本站也将在技术手段和能力范围内，履行版权保护的注意义务。
(如有侵权，欢迎举报)
二维码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

京ICP备16021002号-2 京B2-20170662号 京公网安备 11010802022788号 论坛法律顾问：王进律师 知识产权保护声明   免责及隐私声明

GMT+8, 2026-1-20 12:48