R - 루프를 사용하여 DF에 열 추가

Question

특정 시간 간격 (예 : 각 관찰 후 60 초 및 60 초)의 최소값을 찾는 코드를 작성했습니다. 이제 추가 60 초만큼 시간 간격을 늘릴 루프를 작성해야합니다. 새 반복의 결과 (최소값)를 데이터 프레임에 새 열로 추가해야합니다. 루프를 i = 5로 요약하면 5 개의 새로운 열을 만들어야합니다.

모든 반복 결과로 채워진 새 열을 어떻게 추가 할 수 있는지 잘 모릅니다.

귀하의 도움에 감사드립니다. 내가 cbind 어딘가에 루프 내부해야한다고 생각

df <- data.frame(timestamp = ymd_hms("2017-11-24 08:00:00", "2017-11-24 08:01:00", "2017-11-24 08:02:00", "2017-11-24 08:03:00", "2017-11-24 08:04:00", "2017-11-24 08:05:00", "2017-11-24 08:06:00", "2017-11-24 08:07:00", "2017-11-24 08:08:00", "2017-11-24 08:09:00", "2017-11-24 08:10:00"), temp=c(99.1, 98.2, 97.0, 96.5, 98.0, 97.6, 99.4, 98.2, 96.4, 99.2, 98.5))

라이브러리 (purrr)

라이브러리 (dplyr)

timeinterval <- 60 

for (i in 1:5) { 
timeinterval <- timeinterval+60 

mdf <- map(1:nrow(df), ~df[df$timestamp >= df[.x,]$timestamp-timeinterval & df$timestamp <= df[.x,]$timestamp+timeinterval,]) 
statdf <- map_df(mdf, ~.x %>% 
          summarise(timestamp_to = tail(timestamp,1), 
       timestamp_from = head(timestamp,1), 
            min.temp = min(temp), 
       records = n())) 
} 
new<-cbind(df, statdf$min.temp)` 

.. :

여기 내 대표적인 코드

Answer 1

시도해 볼 수 있습니다.

df <- data.frame(timestamp = ymd_hms("2017-11-24 08:00:00", "2017-11-24 08:01:00", "2017-11-24 08:02:00", "2017-11-24 08:03:00", "2017-11-24 08:04:00", "2017-11-24 08:05:00", "2017-11-24 08:06:00", "2017-11-24 08:07:00", "2017-11-24 08:08:00", "2017-11-24 08:09:00", "2017-11-24 08:10:00"), 
       temp=c(99.1, 98.2, 97.0, 96.5, 98.0, 97.6, 99.4, 98.2, 96.4, 99.2, 98.5)) 
timeinterval <- 60 
n<-5 #number of intervals 

f<-function(i){ 
    timeinterval2 <- timeinterval*i 

    mdf <- map(1:nrow(df), ~df[df$timestamp >= df[.x,]$timestamp-timeinterval2 & df$timestamp <= df[.x,]$timestamp+timeinterval2,]) 
    statdf <- map_df(mdf, ~.x %>% 
        summarise(timestamp_to = tail(timestamp,1), 
           timestamp_from = head(timestamp,1), 
           min.temp = min(temp), 
           records = n())) 
    return(statdf$min.temp) 
} 
aux<-sapply(1:n,f) 
colnames(aux)<-paste("timeinterval",seq(1,n),sep="_") 
cbind(df,aux)