複製和轉置數據

Question

我一直在試圖重塑我的數據，我已經到了如何完成這一塊。我有相當大的數據集，但這裏有一個單行的例子：

TJ25_TAD 

TJ_num  Date    Bin 1 Bin2 Bin3 
TJ25  4/18/2006 19:00  1.5  73.9 16.2 

我想複製每一行（每個日期/小時值，我有數百行），然後有針對單個列值，所以它看起來像這樣：

TJ25_TAD 

TJ_num  Date    TAD 
TJ25  4/18/2006 19:00  1.5 
TJ25  4/18/2006 19:00  73.9 
TJ25  4/18/2006 19:00  16.2 

對於每個日期值我實際上有12箱。我設法能夠複製每個日期值12次，我只是不知道如何填寫Bin數據。我已閱讀了melt()函數，但我不知道如何正確使用它。

Answer 1

dt <- read.table(text = "TJ_num Date 'Bin 1' 'Bin 2' 'Bin 3' 
    TJ25 '4/18/2006 19:00' 1.5 73.9 16.2", 
       header = TRUE, stringsAsFactors = FALSE) 

library(dplyr) 
library(tidyr) 

dt2 <- dt %>% 
    gather(Bin, TAD, 'Bin.1', 'Bin.2', 'Bin.3') %>% 
    select(-Bin)