data.frameを更新するためのループ

Question

私は、Rデータフレームを反復して更新するための "forループ"を作成しようとしています。

はここに私のコードです：

datalist = list() 

for (i in 1:5) { 
dat <- data.frame(ID=LETTERS[seq(from = 1, to = 20)],nutrition=rnorm(20, mean=50, sd=10), 
       Stage=c(rep("A1",5), rep("B1",15))) 
dat$ADG<-dat$nutrition*0.05 
dat$M_weight<-dat$nutrition*0.5+dat$ADG*100 
dat$Age<-dat$M_weight*1.1+dat$ADG*0.6 
dat$Stage<-as.character(dat$Stage) 
dat$Stage[dat$ADG>=3]<-"C1" 
dat$i <- i # maybe you want to keep track of which iteration produced it? 
datalist[[i]] <- dat # add it to your list # 



} 

big_data = do.call(rbind, datalist) 

反復2から、私はADGが3以上であるが、これは反復1には適用されない場合に「C1」更新「ステージ」を持っていると思います。

ありがとうございました！私はすべての返信に感謝！

Answer 1

私はあなたの代わりに、反復1

のrecursive機能が欲しいあなたのデータを考えるstringsAsFactors=F

dat <- data.frame(ID=LETTERS[seq(from = 1, to = 20)], nutrition=rnorm(20, mean=50, sd=10), Stage=c(rep("A1",5), rep("B1",15)), stringsAsFactors=F) 

使用tidyversedplyrとpurrr動詞

library(tidyverse) 
special <- function(dat, counter, end) { 
       dat1 <- dat %>% 
         mutate(ADG = nutrition*0.05) %>% 
         mutate(M_weight = nutrition*0.5 + ADG*100) %>% 
         mutate(Age = M_weight*1.1 + ADG*0.6) %>% 
         mutate(Stage = ifelse(ADG >= 3, "C1", Stage)) %>% 
         mutate(i=counter) 
       if (counter < end) { 
         special(dat1, counter+1, end) 
       } else { 
         return(dat1) 
       }     
      } 

desired <- map_df(2:5, ~special(dat,1,.x)) 

head(desired)

用

ID nutrition Stage  ADG M_weight  Age i 
1 A 47.17826 A1 2.358913 259.4804 286.8438 2 
2 B 64.55988 C1 3.227994 355.0794 392.5241 2 
3 C 52.29020 A1 2.614510 287.5961 317.9244 2 
4 D 59.96544 A1 2.998272 329.8099 364.5899 2 

これが期待していた出力でない場合は教えてください