为两列生成逗号分隔字符的组合 [duplicate]

问：

我有一个（示例）数据帧，包括一个标识符（此处为“ID”）和两个 interes t 变量（此处为“V1”和“V2”）：

df <- data.frame(ID = c("Sample 1", "Sample 2", "Sample 3"), 
                 V1 = c("A, B, C",  "E"       , "A, F"),
                 V2 = c("H, G"   ,  "C, A"    , "J"))

对于感兴趣的两个变量（即列），我想生成逗号分隔字符的所有潜在组合，这些字符可通过标识符（通过逐行偏角）进行识别。

结果数据框可能如下所示（只要组合完成，顺序和结构上的一些灵活性是可以接受的）：

rd <- data.frame(ID = c("Sample 1","Sample 1", "Sample 1", "Sample 1", "Sample 1", "Sample 1", "Sample 2", "Sample 2", "Sample 3", "Sample 3"),
                 V1 = c("A", "A", "B", "B", "C", "C", "E", "E", "A", "F"),
                 V2 = c("H","G","H","G","H","G","C","A","J","J"))

非常感谢您的支持。