Esta pregunta ya tiene una respuesta aquí:

Tengo este conjunto de datos que estoy tratando de fundir y combinar "Débito" y "Crédito" en la misma columna.

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

Me pregunto si es posible lograr mi conjunto de datos final directamente a través del paquete de remodelación.

Este es el conjunto de datos final que espero obtener

     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