dplyr 체인 내부에 진행 막대를 추가하는 방법 R

Question

dplyr의 "progress_estimated"기능이 마음에 들지만 진행 막대를 얻는 방법을 dplyr 체인에서 처리하는 방법을 알지 못합니다. 아래쪽에 코드가있는 재현 가능한 예제를 넣었습니다.

이 같은 꽤 큰 data.frame 있습니다

   cdatetime latitude longitude 
1 2013-01-11 06:40:00 CST 49.74697 -93.30951 
2 2013-01-12 15:55:00 CST 49.74697 -93.30951 
3 2013-01-07 20:30:00 CST 49.74697 -93.30951 

을 나는 progress_estimated의 I는 dplyr를 얻을 수있는 라이브러리

library(dplyr) 
library(StreamMetabolism) 

를 사용하여 각 날짜의 일출 시간을 계산하고 싶습니다 예 :

추악한 루프 (작동)

p <- progress_estimated(nrow(test)) 

for (i in 1:nrow(test)){ 
    p$tick()$print() 
    datetime = as.POSIXct(substr(test$cdatetime[i], 1, 20), tz = "CST6CDT") 
    test$sunrise[i] <- sunrise.set(test$latitude[i], test$longitude[i], datetime, "CST6CDT", num.days = 1)[1,1] 
} 

하지만 내 함수에서 중첩 할 수 있으므로 루프를 사용하지 않아도됩니까?

은 사용 안함 :

SunriseSet <- function(dataframe, timezone){ 
    dataframe %>% 
    rowwise() %>% 
    mutate(# calculate the date-time using the correct timezone 
     datetime = as.POSIXct(substr(cdatetime, 1, 20), tz = timezone), 
     # Get the time of sunrise and sunset on this day, at the county midpoint 
     sunrise = sunrise.set(latitude, longitude, datetime, timezone, num.days = 1)[1,1]) 
} 

어떻게 여기 진행률 표시 줄을 얻을?

test2 <- SunriseSet(test, "CST6CDT") 

는 여기에 몇 가지 예제 데이터입니다 :

test <- data.frame(cdatetime = rep("2013-01-11 06:40:00", 300), 
        latitude = seq(49.74697, 50.04695, 0.001), 
        longitude = seq(-93.30951, -93.27960, 0.0001)) 

Answer 1

오히려 rowwise()를 사용하는 것보다 아마도 progress_estimated()으로 purrr에서 map* 기능 페어링 시도. 이 답변은 https://rud.is/b/2017/03/27/all-in-on-r%E2%81%B4-progress-bars-on-first-post/에서 접근 방식을 따릅니다.

먼저, 진행 막대 갱신 다른 함수로 함수를 래핑 :

SunriseSet <- function(lat, long, date, timezone, num.days, .pb = NULL) { 
    if (.pb$i < .pb$n) .pb$tick()$print() 
    sunrise.set(lat, long, date, timezone, num.days) 
} 

이 후, (a dataframe로 출력을 결합하는) pmap 또는 pmap_df하여 입력을 반복 :

library(purrr) 
pb <- progress_estimated(nrow(test), 0) 
test2 <- test %>% 
    mutate(
    sunrise = pmap_df(
     list(
     lat = latitude, 
     long = longitude, 
     date = as.character(cdatetime) 
    ), 
     SunriseSet, 
     timezone = "CST6CDT", num.days = 1, .pb = pb 
    )$sunrise 
) 

을

Answer 2

내 솔루션처럼 정말 해달라고하지만 작동합니다.

print_tick_function <- function(x, p) { 
    p$tick()$print() 
    data.frame(x) 
} 

SunriseSet <- function(dataframe, timezone){ 
    p <- progress_estimated(nrow(dataframe)) 
    dataframe %>% 
    rowwise() %>% 
    do(print_tick_function(.,p)) %>% 
    mutate(
     datetime = as.POSIXct(substr(cdatetime, 1, 20), tz = timezone), 
     sunrise = sunrise.set(latitude, longitude, datetime, timezone, num.days = 1)[1,1] 
    ) 
} 
test2 <- SunriseSet(test, "CST6CDT")