如何将具有重复列名的数据框重塑为行？ [复制]

Question

我有一个数据集（已从 .json 文件导入），目前看起来像这样：

ID <- c(1)
Name <- c("John")
Name.1 <- c("Irene")
Address <- c("1 Brick Lane")
Address.1 <- c("2 Wood Street")

df <- data.frame(ID, Name, Name.1, Address, Address.1)

ID     |  Name |   Address    | Name.1 | Address.1
------ | ------|   ------     | ------ | ------
1      | John  | 1 Brick Lane | Irene  | 2 Wood Street

但是，我想将其操作为如下所示：

ID <- c(1)
Name <- c("John", "Irene")
Address <- c("1 Brick Lane", "2 Wood Street")

df <- data.frame(ID, Name, Address)

ID     |  Name |   Address    
------ | ------|   ------     
1      | John  | 1 Brick Lane 
1      | Irene | 2 Wood Street

此外，并非所有人都有相同的信息字段。例如，John 的出生日期可能在数据中，但 Irene 的不在。

在我的真实数据集中，最终数据框中将有大约 30 个不同的列。您的帮助将不胜感激！

Answer 1

我们可以使用来自data.table 的melt，它可以采用多个measure 模式

library(data.table)
melt(setDT(df), measure = patterns("^Name", "^Address"),
      value.name = c("Name", "Address"))[, variable := NULL][]
#   ID  Name       Address
#1:  1  John  1 Brick Lane
#2:  1 Irene 2 Wood Street