家庭数据处理

类似图中的家庭数据，每个家庭人数不等，我想得到家庭人均年龄和人均收入该怎么计算。
曾经试过FOR+rollapply的循环，但是发现这样太慢而且效率很低，请问各位大神如何都是如何处理的。
下面是范例数据。

library(tidyverse)
library(rio)
library(magrittr)

import("data.xlsx") %>% group_by(hhid) %>%
  summarise(Age_M=mean(age),Income_M=mean(income)) %T>% str->DataCalculation

nieqiang110 发表于 2019-6-1 21:47
library(tidyverse)
library(rio)
library(magrittr)

感谢大神