R DF Пространство в названии столбца

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