Function takes a character string as input and find the common and unique elements. Assumes that the common element is at start of string.
strCommonUnique(string)
Character vector
list of common and unique strings
test <- c("Q_1", "Q_2", "Q_3")
strCommonUnique(test)$common
#> [1] "Q_"
strCommonUnique(test)$unique
#> [1] "1" "2" "3"