Euler,
Eu vejo duas formas de resolver o problema: uma mais fácil de entender e outra mais fácil de automatizar. A primeira envolve usar o left_join() para juntar a referência com a tabela de interesse e depois só trocar o nome das colunas. A segunda precisa de uma função para generalizar esse processo e aplicar ela de forma repetida.
library(tidyverse)
# Tabela de referência
referencia <- tribble(
~variavel, ~valor_tabela, ~descricao,
"sexo", "F", "feminino",
"sexo", "M", "masculino",
"escola", "1", "publica",
"escola", "2", "particular",
"escola", "3", "outra"
)
# Tabela de interesse
df <- tribble(
~id, ~sexo, ~escola,
1, "F", 1,
2, "M", 1,
3, "F", 2,
4, "F", 3,
5, "M", 1
)
# Filtrar só os valores de referência de sexo
ref_sexo <- referencia %>%
filter(variavel == "sexo") %>%
select(-variavel)
# Juntar a tabela com a referência e fazer a descricao virar sexo
df <- df %>%
left_join(ref_sexo, c("sexo" = "valor_tabela")) %>%
select(-sexo) %>%
rename(sexo = descricao)
# Filtrar só os valores de referência de escola
ref_escola <- referencia %>%
filter(variavel == "escola") %>%
select(-variavel)
# Juntar a tabela com a referência e fazer a descricao virar escola
df <- df %>%
mutate(escola = as.character(escola)) %>% # Escola precisa virar string!
left_join(ref_escola, c("escola" = "valor_tabela")) %>%
select(-escola) %>%
rename(escola = descricao)
# Tabela final
df
#> # A tibble: 5 × 3
#> id sexo escola
#> <dbl> <chr> <chr>
#> 1 1 feminino publica
#> 2 2 masculino publica
#> 3 3 feminino particular
#> 4 4 feminino outra
#> 5 5 masculino publica
Created on 2022-02-08 by the reprex package (v2.0.1)
Dá pra perceber que aplicar isso para mais de 2 colunas já vai ficar meio complicado… Nesse caso, vamos para a segunda solução, que tenta automatizar o máximo possível. O código não é simples, mas acho que dá para entender.
# Função para substituir uma coluna pela referência
substituir_referencia <- function(tab, col, tab_ref) {
# Filtrar só os valores de referência de correta
ref_col <- tab_ref %>%
filter(variavel == col) %>%
select(-variavel)
# Quais colunas juntar
by <- setNames("valor_tabela", col)
# Juntar a tabela com a referência e fazer a descricao virar a coluna
tab %>%
mutate(across(all_of(col), as.character)) %>%
left_join(ref_col, by) %>%
select(-{{col}}) %>%
rename({{col}} := descricao)
}
df %>%
substituir_referencia("sexo", referencia) %>%
substituir_referencia("escola", referencia)
#> # A tibble: 5 × 3
#> id sexo escola
#> <dbl> <chr> <chr>
#> 1 1 feminino publica
#> 2 2 masculino publica
#> 3 3 feminino particular
#> 4 4 feminino outra
#> 5 5 masculino publica
Created on 2022-02-08 by the reprex package (v2.0.1)
Se você estiver procurando um desafio, tente descobrir como funciona o comando abaixo, que aplica todas as substituições em uma linha só:
# Usando reduce()
reduce(c("sexo", "escola"), substituir_referencia, referencia, .init = df)
#> # A tibble: 5 × 3
#> id sexo escola
#> <dbl> <chr> <chr>
#> 1 1 feminino publica
#> 2 2 masculino publica
#> 3 3 feminino particular
#> 4 4 feminino outra
#> 5 5 masculino publica
Created on 2022-02-08 by the reprex package (v2.0.1)
