复制和转置数据[重复]

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)