R DF espaço no nome da coluna

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