[英]R - Incrementing variable by grouping variables, based on changing column conditions
I am starting with "Start"我从“开始”开始
ID <- c("A", "A", "A", "B", "B", "C")
Lab <- c("5", "10", "15", "20", "5", "10")
Date <- as.Date(c("01/01/2020",
"01/01/2020",
"01/02/2020",
"01/01/2020",
"01/02/2020",
"01/05/2020"), format="%m/%d/%Y")
Start <- data.frame(ID, Lab, Date)
Start
#> ID Lab Date
#> 1 A 5 2020-01-01
#> 2 A 10 2020-01-01
#> 3 A 15 2020-01-02
#> 4 B 20 2020-01-01
#> 5 B 5 2020-01-02
#> 6 C 10 2020-01-05
and need to get to "Finish".并且需要到达“完成”。
Day <- c(1, 1, 2, 1, 2, 1)
Finish <- data.frame(ID, Lab, Date, Day)
Finish
#> ID Lab Date Day
#> 1 A 5 2020-01-01 1
#> 2 A 10 2020-01-01 1
#> 3 A 15 2020-01-02 2
#> 4 B 20 2020-01-01 1
#> 5 B 5 2020-01-02 2
#> 6 C 10 2020-01-05 1
Every ID will have multiple Labs per day, across several days.每个 ID 每天都会有多个实验室,跨越数天。 I need a new variable, "Day", that reflects the day the lab was drawn, incremented by 1 every time the date changes, and resetting the day to "1" when the patient ID changes.
我需要一个新变量“Day”,它反映绘制实验室的日期,每次日期更改时递增 1,并在患者 ID 更改时将日期重置为“1”。
Created on 2020-04-16 by the reprex package (v0.3.0)由代表 package (v0.3.0) 于 2020 年 4 月 16 日创建
We can use cumsum
on a logical vector to create the 'Day' after grouping by 'ID'我们可以在逻辑向量上使用
cumsum
在按“ID”分组后创建“日”
library(dplyr)
Start %>%
group_by(ID) %>%
mutate(Day = cumsum(!duplicated(Date)))
# A tibble: 6 x 4
# Groups: ID [3]
# ID Lab Date Day
# <fct> <fct> <date> <int>
#1 A 5 2020-01-01 1
#2 A 10 2020-01-01 1
#3 A 15 2020-01-02 2
#4 B 20 2020-01-01 1
#5 B 5 2020-01-02 2
#6 C 10 2020-01-05 1
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.