使用整形合并列

Question

我有一个数据集，我试图将“借方”和“贷方”合并到同一列中。

random

    Address ID Debit Credit
1     tower1 A1    33     NA
2     happy1 A2    NA     24
3     today2 A3   145     NA
4 yesterday3 A4   122     NA
5    random3 A5    NA  14143

random <- melt(random, id = c("Address", "ID"))

      Address ID variable value
1      tower1 A1    Debit    33
2      happy1 A2    Debit    NA
3      today2 A3    Debit   145
4  yesterday3 A4    Debit   122
5     random3 A5    Debit    NA
6      tower1 A1   Credit    NA
7      happy1 A2   Credit    24
8      today2 A3   Credit    NA
9  yesterday3 A4   Credit    NA
10    random3 A5   Credit 14143

random[!(is.na(random$value)| random$value == ""),] #to remove NA and join them together

我想知道是否可以通过reshape包直接获得最终数据集？

这是我希望获得的最终数据集

     Address ID variable value
1      tower1 A1    Debit    33
3      today2 A3    Debit   145
4  yesterday3 A4    Debit   122
7      happy1 A2   Credit    24
10    random3 A5   Credit 14143