將列數據轉換為R中的行

Question

輸入：

    Col_A                Col_B
1   Samsung_Note           10
2   Samsung_Notebook       20
3   Samsung_Tablet_Device  30
4   Note                   40

預期產量：

Col_A           Col_B
Samsung          10
Note             10
Samsung_Note     10
Samsung          20
Notebook         20
Samsung_Notebook 20
Samsung          30
Tablet           30
Device           30
Samsung_Tablet   30
Tablet_Device    30
Samsung_Device   30
Note             40

我想根據提供的期望更改數據。 請提出一種優化的方法來執行此操作。

為此，請假設x_z = z_x

Answer 1

也許有一種更簡單的方法，但這應該可行：

elements <- strsplit(df$COL_A, "_")
elementsAll <- lapply(seq_along(elements), function(i) append(elements[[i]], df$COL_A[i]))
dfTemp <- data.frame(
    V1 = unlist(elementsAll), 
    V2 = rep(unlist(lapply(elementsAll, function(x) x[length(x)])), 
             unlist(lapply(elementsAll, length)))
)
dfTemp <- dfTemp[!duplicated(dfTemp),]
desiredDF <- merge(df, dfTemp, by.x = "COL_A", by.y = V2)

其中df表示輸入數據幀。 確保COL_A不是一個因素而是一個字符！