Abschneiden Datensatz nach Maximalwert

Question

Ich habe einen Datensatz mit wiederholten Messungen im Laufe der Zeit, in denen ich Prädiktoren für den maximalen tn-Wert suchen. Ich bin nicht an Maßnahmen interessiert, die danach auftreten. Die maximalen Werte treten an verschiedenen Tagen für verschiedene Patienten auf.

ID day tn hb sofa 
1 1 7 85 NA 
1 2 NA NA NA 
1 3 35 80 13 
1 4 28 79 12 
2 1 500 NA 12 
2 2 280 80 9 
2 3 140 90 8 
2 4 20 90 7 
3 1 60 80 12 
3 2 75 75 10 
3 3 NA 75 NA 
3 4 55 84 7 

I tn_ max finden:

tn_max <- df %>% group_by(record) %>% summarise(tn_max = max(tn,na.rm=TRUE)) 

Wie kann ich den Datensatz nach dem Maximum tn für jeden Patienten gestutzt? fand ich diesen Code aus einer früheren ähnlichen Frage, aber ich kann es nicht Fehler an der Arbeit: unerwartete ':' in "N_max = find (df ("

mod_df = df; 
    N_max = find(df(:,3) == max(df(:,3))); 
    N_max(1); 

    for N=1:size(df,3) 
    if df(N,1) < N_max 
    mod_df (N,:)=0; 
    end 
    end 
    mod_data_1(all(mod_data_1==0,1),:) = [] 

Vielen Dank, Annemarie

Answer 1

Zuerst möchte ich eine Funktion der Lage zurückzukehren, für jeden Vektor, einen booleschen Vektor der gleichen Länge und deren Koeffizienten TRUE erzeugen, wenn der Wert tritt vor dem Maximum und FALSE sonst:

f <- function(x) 1:length(x) <= which.max(x) 

Dann würde ich diese Funktion zu jedem Untervektor von tn vom ID definiert gelten:

ind <- as.logical(ave(df$tn, df$ID, FUN=f)) 

schließlich alles, was ich zu tun habe, ist die entsprechende Teilmenge des ursprünglichen Datenrahmens zu nehmen:

df[ind, ] 

Answer 2

Sie könnten versuchen:

df %>% group_by(ID) %>% slice(seq_len(which(tn == max(tn,na.rm=TRUE)))) 
Source: local data frame [6 x 5] 
Groups: ID [3] 

    ID day tn hb sofa 
    (int) (int) (int) (int) (int) 
1  1  1  7 85 10 
2  1  2 15 84 12 
3  1  3 35 80 13 
4  2  1 500 76 12 
5  3  1 60 80 12 
6  3  2 75 75 10