如何在R的最后时间排队所有患者

时间:2016-10-17 09:30:10

标签: r time

我有纵向数据,包括1000名患者和4个变量。随着时间的推移重复测量这些变量。患者的时间不同。我的问题是如何在R?中最后一次排队所有患者 这是一个数据示例:

    dput(head(mydata))
structure(list(Enum = c(15306L, 15306L, 15306L, 15306L, 11056L, 
    11056L), Sex = c(0L, 0L, 0L, 0L, 1L, 1L), Left_R = c(1L, 1L, 
    1L, 1L, 0L, 0L), Right_R = c(1L, 1L, 1L, 1L, 0L, 0L), risk = c(2, 
    1.5, 1.5, 1.5, 0, 0), Chol_val = c(4.1, 3.7, 3.9, 3.7, 5.2, 3.6
    ), HbA1c_val = c(39L, 41L, 43L, 39L, 39L, 45L), eGFR_val = c(90, 
    NA, 90, 85, 82, 85), Duration = c(3682L, 3682L, 3682L, 3682L, 
    36L, 36L), Age = c(65L, 65L, 65L, 65L, 38L, 38L), time = c(0L, 
    392L, 756L, 1125L, 0L, 351L), BMI = c(23.301094832264, 22.4392735165502, 
    21.9604838967091, 22.6627066115703, 39.3535698314, 39.7355371900827
    ), Status = c(0L, 0L, 0L, 0L, 0L, 0L)), .Names = c("Enum", "Sex", 
    "Left_R", "Right_R", "risk", "Chol_val", "HbA1c_val", "eGFR_val", 
    "Duration", "Age", "time", "BMI", "Status"), row.names = c(NA, 
    6L), class = "data.frame")

1 个答案:

答案 0 :(得分:0)

如果我正确理解了这个问题,你希望在他们给出测量的最长时间内订购这些问题

library(dplyr)
test <- df %>% group_by(Enum) %>% mutate(maxtime = max(time)) %>% 
ungroup %>% arrange(maxtime, Enum) %>% select(-maxtime)

如果您希望从最大时间到最短时间订购arrange(desc(maxtime), Enum)