Esta pergunta já tem uma resposta aqui:

Tenho esse conjunto de dados que estou tentando derreter e combinar "Débito" e "Crédito" na mesma colun

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

Estou imaginando se é possível alcançar meu conjunto de dados final diretamente via remodelar o pacot

Este é o conjunto de dados final que espero obter

     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