Chapter 5 Rename the Fields to remove Spaces in between Fields

LACrime = LACrime %>%
  rename(DRNumber = `DR Number`) %>%
  rename(DateReported = `Date Reported`) %>%
  rename(DateOccurred = `Date Occurred`) %>%
  rename(TimeOccurred = `Time Occurred`) %>%
  rename(AreaID = `Area ID`) %>%
  rename(AreaName = `Area Name`) %>%
  rename(ReportingDistrict = `Reporting District`) %>%
  rename(CrimeCode = `Crime Code`) %>%
  rename(CrimeCodeDescription = `Crime Code Description`) %>%
  rename(MOCodes = `MO Codes`) %>%
  rename(VictimAge = `Victim Age`) %>%
  rename(VictimSex = `Victim Sex`) %>%
  rename(VictimDescent = `Victim Descent`) %>%
  rename(PremiseCode = `Premise Code`) %>%
  rename(PremiseDescription = `Premise Description`) %>%
  rename(WeaponUsedCode = `Weapon Used Code`) %>%
  rename(WeaponDescription = `Weapon Description`) %>%
  rename(StatusCode = `Status Code`) %>%
  rename(StatusDescription = `Status Description`) %>%
  rename(CrimeCode1 = `Crime Code 1`) %>%
  rename(CrimeCode2 = `Crime Code 2`) %>%
  rename(CrimeCode3 = `Crime Code 3`) %>%
  rename(CrimeCode4 = `Crime Code 4`) %>%
  rename(CrossStreet = `Cross Street`)