Я всегда благодаря пользователю переполнения стека. Я хочу сделать этот сводный код group_by для зацикливания кода. Есть кто-нибудь, кто мне поможет? Спасибо
group <- group_by(bp, year)
result <- summarise(group, count=n(),
bmi.m=mean(bmi),
bmi.s=sd(bmi),
bmi.95=quantile(bmi,0.95),
bmi.90=quantile(bmi,0.90),
bmi.75=quantile(bmi,0.75),
bmi.50=median(bmi),
bmi.25=quantile(bmi,0.25),
bmi.10=quantile(bmi,0.10),
bmi.5=quantile(bmi,0.05),
sbp.m=mean(sbp),
sbp.s=sd(sbp),
sbp.95=quantile(sbp,0.95),
sbp.90=quantile(sbp,0.90),
sbp.75=quantile(sbp,0.75),
sbp.50=median(sbp),
sbp.25=quantile(sbp,0.25),
sbp.10=quantile(sbp,0.10),
sbp.5=quantile(sbp,0.05),
sbp.m=mean(dbp),
dbp.s=sd(dbp),
dbp.95=quantile(dbp,0.95),
dbp.90=quantile(dbp,0.90),
dbp.75=quantile(dbp,0.75),
dbp.50=median(dbp),
dbp.25=quantile(dbp,0.25),
dbp.10=quantile(dbp,0.10),
dbp.5=quantile(dbp,0.05))