crime_data: Clean FBI data

misc_cols <- c("population_group",
               "country_division",
               "country_region",
               "core_city",
               "covered_by_ori",
               "fbi_field_office",
               "judicial_district",
               "agency_nibrs_flag",
               "agency_inactive_date",
               "date_ori_was_added",
               "date_ori_went_nibrs",
               "state_first_quarter_activity",
               "state_second_quarter_activity",
               "state_third_quarter_activity",
               "state_fourth_quarter_activity",
               "federal_first_quarter_activity",
               "federal_second_quarter_activity",
               "federal_third_quarter_activity",
               "federal_fourth_quarter_activity",
               "data_source",
               "quarter_of_the_year",
               "agency_indicator")