R DF Space en el nombre de la columna

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