R DF Espace dans le nom de la colonne

names(x)<-str_replace_all(names(x), c(" " = "." , "," = "" ))
Exuberant Elk