Предполагая, что символы канала на самом деле находятся внутри строки, и предполагая, что ваши символы уже являются строкой (или могут быть превращены в строку, заключив символы в символы кавычек), затем используйте пакет stringr с str_extract ()функция может сделать свое дело. Если фамилия или имя пишутся с большой буквы, этот код необходимо будет изменить.
В основном, просто сосредоточьтесь на сопоставлении самого простого символа - запятой. Затем, когда у вас есть совпадение, постройте свой шаблон понемногу и подбирайте все больше и больше после первого матча, пока не найдете то, что хотели.
library(stringr)
names <- "abc | lastname, firstname | xyz" # create a string
print(names)
str_extract(names, "[a-z]*, [a-z]*") # extract the names
[1] "abc | lastname, firstname | xyz" # printed string
'lastname, firstname' # output