names <- c("   Tasin  ","On_ jon","Ra--y","Kan_darv!!!","Utsov  ","Safiqba-i")
names_clr <- trimws(names)
names_clr <- tolower(names_clr)
names_clr <- gsub("[-_]", " ", names_clr)
names_clr <- gsub("[0-9]", "", names_clr)
names_clr <- gsub("[[:punct:]]", "", names_clr)
names_clr <- gsub("\\s+", " ", names_clr)
names_clr <- trimws(names_clr)
print(names_clr)