異なる行の年齢計算が異なります

Question

私はマスターのプロジェクトで働いている絶対的な初心者です。

私は、馬（馬、収入、時間記録など）の情報を含むdata.frameを持っています。データはすべての行に競馬の特定の年の情報が含まれ、「合計」の各馬の最初の行が含まれるように構成されています。何の問題もなく

travdata$Age<-age_calc(as.Date(travdata$Birth.date), enddate=as.Date("2016-12-31"), 
         units="years") 

：私はeeptoolsパッケージにage_calc機能を使って自分の年齢で新しい変数を作成し

：それはこのようになります。私が把握しようとしていることは、私が彼らの情報を持っている各特定の年の馬の年齢を計算する方法があるかどうかです。すなわち、「合計」行は2016-12年までの年齢です。 31歳、2015年にはその時代になるなど私はage_calcにif文を追加しようとしていましたが、うまくいかないでしょうし、これをどうやって行うのが最善であるのか本当に迷っています。

私が指摘してくれる文献やお手伝いがあれば、幸いです。

MWE

travdata <- data.frame(
    "Id.Number"=c(rep("1938-98",3),rep("1803-97",7),rep("1221-03",4)), 
    "Name"=c(rep("Muuttuva",3),rep("Pelson Poika",7),rep("Muusan Muisto",4)), 
    "Sex"=c(rep("Mare",3),rep("Gelding",7),rep("Gelding",4)), 
    "Birth.year"=c(rep(1998,3),rep(1997,7),rep(2003,4)), 
    "Birth.date"=c(rep("1998-07-01",3),rep("1997-07-14",7),rep("2003-05-07",4)), 
    "Competition.year" = c("Total",2005,2004,"Total",2003,2004,2006,2005,2002,2001,2008,2010,"Total",2009), 
    "starts"=c(20,11,9,44,21,6,7,5,3,2,1,1,4,2), 
    "X1st.placements"=c(0,0,0,3,3,0,0,0,0,0,0,0,0,0), 
    "X2nd.placements"=c(2,2,0,1,0,1,0,0,0,0,0,0,0,0), 
    "X3rd.placements"=c(2,2,0,1,1,0,0,0,0,0,0,0,0,0), 
    "Earnings.euro"=c(1525,1425,100,2078,1498,580,0,0,0,0,0,0,10,10) 
) 

Answer 1

トリックは、 "合計" 行をフィルタリングし、StackOverflowのへようこそas.Date()機能

library(eeptools) 
travdata <- data.frame(
    "Id.Number"=c(rep("1938-98",3),rep("1803-97",7),rep("1221-03",4)), 
    "Name"=c(rep("Muuttuva",3),rep("Pelson Poika",7),rep("Muusan Muisto",4)), 
    "Sex"=c(rep("Mare",3),rep("Gelding",7),rep("Gelding",4)), 
    "Birth.year"=c(rep(1998,3),rep(1997,7),rep(2003,4)), 
    "Birth.date"=c(rep("1998-07-01",3),rep("1997-07-14",7),rep("2003-05-07",4)), 
    "Competition.year" = c("Total",2005,2004,"Total",2003,2004,2006,2005,2002,2001,2008,2010,"Total",2009), 
    "starts"=c(20,11,9,44,21,6,7,5,3,2,1,1,4,2), 
    "X1st.placements"=c(0,0,0,3,3,0,0,0,0,0,0,0,0,0), 
    "X2nd.placements"=c(2,2,0,1,0,1,0,0,0,0,0,0,0,0), 
    "X3rd.placements"=c(2,2,0,1,1,0,0,0,0,0,0,0,0,0), 
    "Earnings.euro"=c(1525,1425,100,2078,1498,580,0,0,0,0,0,0,10,10) 
) 

travdata$Age<-age_calc(as.Date(travdata$Birth.date), 
         enddate=as.Date("2016-12-31"), units="years") 

competitions <- travdata[travdata$Competition.year!="Total",] 
competitions$Competition.age<-age_calc(
       as.Date(competitions$Birth.date), 
       enddate=as.Date(competitions$Competition.year, format="%Y"), 
       units="years",F)