r - R数据帧中的滞后

Question

我有以下示例数据集(下面和/或这里的 CSV: http://goo.gl/wK57T )，我想按如下方式转换。对于家庭中的每个人，我想创建两个新变量 OrigTAZ 和 DestTAZ。它应该采用 TripendTAZ 中的值并将其放入 DestTAZ。对于 OrigTAZ，它应该输入前一行的 TripendTAZ 值。对于家庭中每个人的第一次旅行(Tripid = 1)，OrigTAZ = hometaz。对于家庭中的每个人，从第二次旅行开始 OrigTAZ = TripendTAZ_(n-1) 和 DestTAZ = TripEndTAZ。示例输入和输出数据如下所示。我尝试了此处显示的建议:Basic lag in R vector/dataframe但没有运气。我习惯于在 SAS 中做这样的事情。

任何帮助表示赞赏。

TIA,
克里希南

SAS Code Sample
     if Houseid = lag(Houseid) then do;
       if Personid = lag(Personid) then do;
          DestTAZ = TripendTAZ;
       if Tripid = 1 then OrigTAZ = hometaz 
       else
         OrigTAZ = lag(TripendTAZ);
       end;
     end;

输入数据

Houseid,Personid,Tripid,hometaz,TripendTAZ
1,1,1,45,4
1,1,2,45,7
1,1,3,45,87
1,1,4,45,34
1,1,5,45,45
2,1,1,8,96
2,1,2,8,4
2,1,3,8,2
2,1,4,8,1
2,1,5,8,8
2,2,1,8,58
2,2,2,8,67
2,2,3,8,9
2,2,4,8,10
2,2,5,8,8
3,1,1,7,89
3,1,2,7,35
3,1,3,7,32
3,1,4,7,56
3,1,5,7,7

输出数据

Houseid,Personid,Tripid,hometaz,TripendTAZ,OrigTAZ,DestTAZ
1,1,1,45,4,45,4
1,1,2,45,7,4,7
1,1,3,45,87,7,87
1,1,4,45,34,87,34
1,1,5,45,45,34,45
2,1,1,8,96,8,96
2,1,2,8,4,96,4
2,1,3,8,2,4,2
2,1,4,8,1,2,1
2,1,5,8,8,1,8
2,2,1,8,58,8,58
2,2,2,8,67,58,67
2,2,3,8,9,67,9
2,2,4,8,10,9,10
2,2,5,8,8,10,8
3,1,1,7,89,7,89
3,1,2,7,35,89,35
3,1,3,7,32,35,32
3,1,4,7,56,32,56
3,1,5,7,7,56,7

Answer 1

只需按照您概述的步骤一步一步进行，这还不错。

首先，我将通过复制来读入您的数据:

df <- read.csv(file('clipboard'))

然后我将排序以确保数据框按houseid、personid、tripid排序:

# first sort so that it's ordered by Houseid, then Personid, then Tripid:
df <- with(df, df[order(Houseid,Personid,Tripid),])

然后按照您指定的步骤操作:

# take value in TripendTAZ and put it in DestTAZ
df$DestTAZ <- df$TripendTAZ

# Set OrigTAZ = value from previous row
df$OrigTAZ <- c(NA,df$TripendTAZ[-nrow(df)])

# For the first trip of every person in a household (Tripid = 1),
#  OrigTAZ = hometaz. 
df$OrigTAZ[ df$Tripid==1 ] <- df$hometaz[ df$Tripid==1 ]

你会注意到 df这就是你所追求的。