R - größte gemeinsame Divisor dplyr Routine

Question

Ich brauche den größten gemeinsamen Teiler (GCD) für eine Reihe von Dauern zu finden: dur.

Aussehen Meine Daten wie diese

  actrec dur 
1 c Personal Care 120 
2  c Free Time 10 
3  c Free Time 70 
4  c Free Time 40 
5   b Unpaid 10 
6  c Free Time 20 
7 c Personal Care 30 
8  c Free Time 40 
9  c Free Time 40 
10  c Free Time 10 

ich die Funktion gcd der schoolmath Bibliothek verwenden. Ich gehe meine Daten durch und speichere die Werte im Vektor v. Schließlich verwende ich die min von v, um den gcd meiner Daten zu finden.

library(schoolmath) 

l = length(dt$dur) 
v = array(0, l) 

for(i in 2:l){ 
    v[i] = gcd(dt$dur[i], dt$dur[i-1]) 
} 

minV = min(v[-1]) 
minV 

Welche 10 gibt.

Allerdings habe ich Probleme, diese Routine in dplyr zu übersetzen.

Ich dachte an etwas wie (lag für Schleife).

dt %>% mutate(gcd(dur, lag(dur, 0))) 

Aber es funktioniert nicht. Und ich bin unsicher, wie man min einfügt.

Irgendwelche Hinweise?

Answer 1

Wir rowwise verwenden können die gcd Funktion in jeder Zeile anzuwenden, nachdem die lag von ‚dur, extrahieren Sie die‚new1‘und erhalten die min

dt %>% 
    mutate(dur1 = lag(dur, default = dur[1])) %>% 
    rowwise() %>% 
    mutate(new1 = gcd(dur, dur1)) %>% 
    .$new1 %>% 
    tail(.,-1) %>% 
    min 
#[1] 10 

---

Oder wir schaffen eine Vectorize d Funktion unter von 'gcd' und gelten auf der 'dur' Spalte

gcdV <- Vectorize(function(x,y) gcd(x, y)) 
dt %>% 
    mutate(new1 = gcdV(dur, lag(dur, default = dur[1]))) 

und die min wie in t erhalten er über der Lösung.