library(stringr)
string1 <- ("536.2k Followers, 83 Following, 1,396 Posts")
string2 <- ("5m Followers, 83 Following, 1.1m Posts")
info <- str_extract_all(string1,"[0-9]{1,5}(?:[,.][0-9]{1,4})?[mk ]?")
info2 <- str_extract_all(string2,"[0-9]{1,5}(?:[,.][0-9]{1,4})?[mk ]?")
info
info2
bGlicmFyeShzdHJpbmdyKQoKICBzdHJpbmcxIDwtICgiNTM2LjJrIEZvbGxvd2VycywgODMgRm9sbG93aW5nLCAxLDM5NiBQb3N0cyIpCiAgc3RyaW5nMiA8LSAoIjVtIEZvbGxvd2VycywgODMgRm9sbG93aW5nLCAxLjFtIFBvc3RzIikKCiAgaW5mbyA8LSBzdHJfZXh0cmFjdF9hbGwoc3RyaW5nMSwiWzAtOV17MSw1fSg/OlssLl1bMC05XXsxLDR9KT9bbWsgXT8iKQogIGluZm8yIDwtIHN0cl9leHRyYWN0X2FsbChzdHJpbmcyLCJbMC05XXsxLDV9KD86WywuXVswLTldezEsNH0pP1ttayBdPyIpCgogIGluZm8gCiAgaW5mbzIg