을 추출하는 방법에서 문자열 변수에 따라 그것의 첫번째 편지

추출물 첫 번째 요소를 전에는 문자 stringr

library(stringr)

df1 <- read.table(text = "ABC|DEF|GHI, ABCD|EFG|HIJK,  ABCDE|FGHI|JKL,  
                         DEF|GHIJ|KLM, GHI|JKLM|NO|PQRS, BCDE|FGHI|JKL")
#extract 1st word before |
word(df1$V1,1,sep = "\\|")