stats19-new-names.md

data_old <- tibble::tibble(
  "Location_Northing_OSGR" = c(1, 2, 3), 
  '1st_Road_Number' = c("a", "b", "c")
)
janitor::clean_names(data_old, replace = c("1" = "fir"))
#> # A tibble: 3 x 2
#>   location_northing_osgr first_road_number
#>                    <dbl> <chr>            
#> 1                      1 a                
#> 2                      2 b                
#> 3                      3 c

^{Created on 2021-10-21 by the reprex package (v2.0.1)}