如何计算体重差

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

请教，我的数据如下，数据集包含的是对每个人的体重的监测，ID是病人的编号，第二列和第三列是起止时间，第四列是体重。我现在想做的是，对于每个人（每个ID），计算出他在监测时间内的体重的变化速度，形成一个新的数据集。比如，我我要算200003这个人在2/8/2199 19:15:00至8/8/2199 19:09:18内体重的增速，即（79.7-77.5）/时间差。这个怎么做？感觉要用到循环，却不知如何下手，数据量比较庞大。

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

df <- data.frame(id=rep(letters[1:2],each = 3), s=c(1:3,1:3),
                 e=c(2:4,2:4),v=c(11,20,25,9,13,28))
df
library(dplyr)
df%>%group_by(id)%>%
  transmute(s=first(s),
            e=last(e),
            v1=first(v),
            v2=last(v))%>%
distinct()%>%
  mutate(zs=(v2-v1)/(e-s))

不懂不装懂 发表于 2020-3-11 20:34
df %group_by(id)%>%
  transmute(s=first(s),
            e=last(e),

太棒啦，万分感谢