पहले का चयन करें डेटा मनाया जाता है और उपयोग मे बदलें

Question

मैं अपने डेटा के साथ समस्या में चल रहा है, जहां मैं ले जाना चाहते पहले मनाया ob प्रत्येक व्यक्ति id के लिए स्कोर score और घटाना है कि उस से पिछले मनाया score।

पहले अवलोकन शून्य से पिछले प्रेक्षण के लिए पूछ के साथ समस्या यह है कि कभी कभी पहले अवलोकन डेटा याद आ रही है है।

वहाँ वैसे भी, प्रत्येक व्यक्ति के लिए सबसे पहले देखे स्कोर के लिए पूछने के लिए इस प्रकार किसी भी लापता डेटा लंघन है?

मैंने अपनी समस्या का वर्णन करने के लिए नीचे डीएफ बनाया।

help <- data.frame(id = c(5,5,5,5,5,12,12,12,17,17,20,20,20), 
        ob = c(1,2,3,4,5,1,2,3,1,2,1,2,3), 
        score = c(NA, 2, 3, 4, 3, 7, 3, 4, 3, 4, NA, 1, 4)) 

    id ob score 
1 5 1 NA 
2 5 2  2 
3 5 3  3 
4 5 4  4 
5 5 5  3 
6 12 1  7 
7 12 2  3 
8 12 3  4 
9 17 1  3 
10 17 2  4 
11 20 1 NA 
12 20 2  1 
13 20 3  4 

और क्या मैं चलाने के लिए आशा करता हूं कोड मुझे दे देंगे कि है ...

id ob score es 
1 5 1 NA -1 
2 5 2  2 -1 
3 5 3  3 -1 
4 5 4  4 -1 
5 5 5  3 -1 
6 12 1  7 3 
7 12 2  3 3 
8 12 3  4 3 
9 17 1  3 -1 
10 17 2  4 -1 
11 20 1 NA -3 
12 20 2  1 -3 
13 20 3  4 -3 

मैं dplyr से बाहर काम करने के लिए प्रयास कर रहा हूँ और मैं 'group_by' कमांड के उपयोग को समझते हैं, हालांकि, सुनिश्चित नहीं है कि केवल पहले देखे गए स्कोर 'चयन' कैसे करें और फिर es बनाने के लिए उत्परिवर्तित करें।

Answer 1

मैं का प्रयोग करेंगे first() और last() (दोनों dplyr समारोह) और na.omit() (डिफ़ॉल्ट आँकड़े पैकेज से।

सबसे पहले, मुझे यकीन है कि अपने स्कोर स्तंभ तार उचित एनए मूल्यों के साथ एक numberic स्तंभ (नहीं के रूप में था होगा अपने उदाहरण)

help <- data.frame(id = c(5,5,5,5,5,12,12,12,17,17,20,20,20), 
     ob = c(1,2,3,4,5,1,2,3,1,2,1,2,3), 
     score = c(NA, 2, 3, 4, 3, 7, 3, 4, 3, 4, NA, 1, 4)) 

तो आप

library(dplyr) 
help %>% group_by(id) %>% arrange(ob) %>% 
    mutate(es=first(na.omit(score)-last(na.omit(score)))) 

Answer 2

यह समाधान कर सकते हैं एक लिट है le वाचाल, केवल b/c यह सहायक कार्यों की एक जोड़ी पर निर्भर करता है FIRST और LAST:

# The position (indicator) of the first value that evaluates to TRUE. 
LAST <- function (x, none = NA) { 
    out <- FIRST(reverse(x), none = none) 
    if (identical(none, out)) { 
     return(none) 
    } 
    else { 
     return(length(x) - out + 1) 
    } 
} 
# The position (indicator) of the last value that evaluates to TRUE. 
FIRST <- function (x, none = NA) 
{ 
    x[is.na(x)] <- FALSE 
    if (any(x)) 
     return(which.max(x)) 
    else return(none) 
} 

# returns the difference between the first and last non-missing values 
diff2 <- function(x) 
    x[LAST(!is.na(x))] - x[FIRST(!is.na(x))] 


library(dplyr) 
help %>% 
    group_by(id) %>% 
    arrange(ob) %>% 
     summarise(diff = diff2(score)) 

Answer 3

library(dplyr) 

temp <- help %>% group_by(id) %>% 
    arrange(ob) %>% 
    filter(!is.na(score)) %>% 
    mutate(es = first(score) - last(score)) %>% 
    select(id, es) %>% 
    distinct() 

help %>% left_join(temp)