資料(data)型態要轉變成方便閱讀以及方便分析的樣貌。我希望他X軸是所有站名，Y軸是時間，當然我們可以像之前用which()的方法把某一個(例如台北)的數據全部挑出來，但是240個車站不太建議這樣做，而且一個個挑出所有數據還要每個都去檢查每個車站的開始運營時間(意指沒有資料的時間)，如果能分開會更方便我們做接下來的分析，要怎做呢？

xtabs()函數

xx = xtabs(進站 ~ BOARD_DATE + STOP_NAME , data)

其實這一行就完成了，xtabs(進站資料~Y軸放日期 + X軸放站名 , data)

但是有個問題，如果你導出數據 xx 並不會是右邊的樣貌，會是左邊的。因此我們還要花點心思去得到右邊的表格。
我想到的方法是用for迴圈重新創造一個名為qq的data.frame()，並且把xx的資料一行行導進qq當中

for(i in 1:length(xx[1,])){ 
  if(i==1){
    qq<-xx[,i]
  }else{
    qq<-cbind(qq,xx[,i])
  }
}  
qq<-as.data.frame(qq)

並且將qq更名，把qq的X軸名稱改為原本xx數據的X軸名稱，就大功告成啦

colnames(qq)<-colnames(xx)