x <- c("@kyrieirving’s", "@jaytatum0")
gsub("['’]s\\b|[^[:alnum:][:blank:]@_]", "", x)