Reshaping data by appending rows from different groups to the same row

Question

I have data as follows:

DT <- structure(list(Area = c("A", "A", "A", "A", "B", "B", "B&quo