基於字符串重複行並替換新行的值

Question

我遇到了這個問題。

df <- data.frame(number=1:3,name=c('a','b','c'),code=c("5464","5463,5678","45363,6346,6435")) 

如果第3列只有一組數字，請不要重複。對於那些具有> 1組數字的行，重複該行並用隨後的數字替換。

原始輸出

number name code 
    1  a  "5464" 
    2  b  "5463,5678" 
    3  c  "45363,6346,6435" 

所需的輸出

number name code 
    1  a "5464" 
    2  b "5463" 
    2  b "5678" 
    3  c "45363" 
    3  c "6346" 
    3  c "6435" 

我真的不知道從哪裏開始。我嘗試使用stringr::str_split_fixed來分隔字符串並計算出現次數。但之後，我很難根據這些事件重複行並替換相應的值。

任何幫助表示讚賞。

Answer 1

我們可以使用separate_rows從tidyr

library(tidyr) 
separate_rows(df, code) 

---

或者cSplit從splitstackshape

library(splitstackshape) 
cSplit(df, "code", ",", "long")