如何将时间表数据帧转换为长格式?

简介:这是一个我想问的问题,但最终我自己解决了。我希望这个答案对某些人仍然有用,所以我把它作为一个已回答的问题留在这里。

我有一个火车时刻表数据集。我想把它转换成长格式。

以下是我的数据:

  Train    AMS-A     AMS-D      UTR-A     UTR-D  
 ------- --------- --------- ----------- ------- 
  1       03:00     03:10     06:40       07:00  
  2       04:00     04:10     07:40       08:00  

所以我每个车站有两列,一列是到达时间,一列是出发时间。

这是我要将其转换为的格式:

  Train   Station   Arrival   Departure  
 ------- --------- --------- ----------- 
      1   AMS       03:00     03:10      
      1   UTR       06:40     07:00      
      2   AMS       04:00     04:10      
      2   UTR       07:40     08:00      

我要解决的问题是,列名既包含一个我想要作为单独列(到达/离开)的变量,也包含一个我想要作为单独行值(站)的变量。

一些数据:

d <- structure(list(train = c(1, 2, 1),
                    NYC.A = structure(seq(0.1,0.3,0.1), format = "h:m:s", class = "times"),
                    NYC.D = structure(seq(0.1,0.3,0.1) + .01, format = "h:m:s", class = "times"),
                    BOS.A = structure(seq(0.1,0.3,0.1) + .1, format = "h:m:s", class = "times"),
                    BOS.D = structure(seq(0.1,0.3,0.1) + .11, format = "h:m:s", class = "times")),
               class = "data.frame", .Names = c("train", "NYC.A", "NYC.D", "BOS.A", "BOS.D"), row.names = 1:3)