| Revision | b4ba0a4aeb64a82c3f9d78020854bbae3e03dbce (tree) |
|---|---|
| Zeit | 2024-09-27 18:49:19 |
| Autor | Lorenzo Isella <lorenzo.isella@gmai...> |
| Commiter | Lorenzo Isella |
I no longer read the NACE categories because they are not used by the code.
R-codes/process_spanish_new_data_sequentially.R (diff)| @@ -21,27 +21,6 @@ | ||
| 21 | 21 | df_map <- read_csv("../input/initial//spanish-mapping.csv") |> |
| 22 | 22 | mutate(across(where(is.character),~remove_trailing_spaces(.x))) |
| 23 | 23 | |
| 24 | - | |
| 25 | - | |
| 26 | - | |
| 27 | - | |
| 28 | -nace <- read_csv("../input/initial/CATALOGO_NACE_and_NUTS.csv", locale = readr::locale(encoding = "latin1")) |> | |
| 29 | - clean_names() |> | |
| 30 | - rename("code"="codigo", | |
| 31 | - "description"="descripcion") |> | |
| 32 | - mutate(description=tolower(description)) |> | |
| 33 | - mutate(code=case_match(code,"D"~"35", | |
| 34 | - "41.2"~"41", | |
| 35 | - "L"~"68", | |
| 36 | - "P"~"85", | |
| 37 | - "U"~"99", | |
| 38 | - "O"~"84", | |
| 39 | - .default=code)) |> | |
| 40 | - distinct() | |
| 41 | - | |
| 42 | - | |
| 43 | - | |
| 44 | - | |
| 45 | 24 | mm <- read_excel("../input/initial/ES_matching.xlsx") |> |
| 46 | 25 | clean_names() |> |
| 47 | 26 | select(-translate) |> |
Fork