WH-LKO
WH-CHE
WH-BLR
WH-HYD
W1- GGN
WH12-GGN
WH3-GUW
F2-AMD
You can try substring with nchar to extract last 3 characters from a string.
substring
nchar
substring(x, nchar(x)-2) #[1] "LKO" "CHE"
Data:
x <- c("WH-LKO", "WH-CHE")