R 데이터 프레임, 문자열 변수로 행 확장

Question

누구든지이 작은 data.frame 확장 문제를 도와 드릴까요? 미리 감사드립니다.

# I have 
data.frame(rbind(c("1", "2", "3", "a/b/c"), 
       c("11", "0", "5", "c/d"), 
       c("3", "33", "0", "a")) 
      ) 

# X1 X2 X3 X4 
# 1 1 2 3 a/b/c 
# 2 11 0 5 c/d 
# 3 3 33 0  a 

# I want 
data.frame(rbind(c("1", "2", "3", "a"), 
       c("1", "2", "3", "b"), 
       c("1", "2", "3", "c"), 
       c("11", "0", "5", "c"), 
       c("11", "0", "5", "d"), 
       c("3", "33", "0", "a")) 
      ) 

# X1 X2 X3 X4 
# 1 1 2 3 a 
# 2 1 2 3 b 
# 3 1 2 3 c 
# 4 11 0 5 c 
# 5 11 0 5 d 
# 6 3 33 0 a 

Answer 1

우리는 data.table

library(data.table) 
setDT(df1)[, strsplit(as.character(X4), "/"), by = .(X1, X2, X3)]