data1.txt
(6.84 KB)
就像下面这张图一样:
我用的方法如下,
- data1 <- read.csv("data1.txt")
- library(tidyverse)
- data1$hzage1 <- ifelse(data1$huzhu==1,data1$age,NA)
- data1 <- data1 %>% group_by(fid) %>% summarise(hzage=max(hzage1,na.rm = T)) %>%
- plyr::join(data1, type = 'full',by='fid')
虽然能得到想要的结果,但是感觉好像写复杂了,有哪位大佬帮忙看看有没简单的方法达成这个目的呢?感激不尽
(顺便想问下,得出结果后我用data1 <- select(data1,everything(),hzage)排序想把hzage排到最后,但是好像不生效,不知道什么原因,或者有没什么解决办法...)


雷达卡



京公网安备 11010802022788号







