library(tidyverse)
Tenho um dataset que possui em uma coluna títulos de artigos e em outra coluna, seus respectivos autores. Reproduzo aqui uma linha deste dataset:
df<-tibble(
titulo= "A URBANIZAÇÃO NEOLIBERAL",
autores= "CLAUDIO; DIANA; MILENA")
df
# A tibble: 1 x 2
titulo autores
<chr> <chr>
1 A URBANIZAÇÃO NEOLIBERAL CLAUDIO; DIANA; MILENA
Em seguida, dividi a linha acima segundo os autores usando separate_rows()
df2<-df %>%
separate_rows(autores, sep = "; ")
df2
# A tibble: 3 x 2
titulo autores
<chr> <chr>
1 A URBANIZAÇÃO NEOLIBERAL CLAUDIO
2 A URBANIZAÇÃO NEOLIBERAL DIANA
3 A URBANIZAÇÃO NEOLIBERAL MILENA
Agora queria que cada autor fosse identificado segundo a sua situação ("docente", "discente" ou "egresso"). Tenho uma planilha com tudo detalhado. Reproduzo aqui um trecho:
corpo_programa <- tibble(nome = c("FULANO", "BELTRANO", "CLAUDIO", "MILENA", "DIANA"),
situacao = c("docente", "docente", "docente", "discente", "egresso"))
corpo_programa
# A tibble: 5 x 2
nome situacao
<chr> <chr>
1 FULANO docente
2 BELTRANO docente
3 CLAUDIO docente
4 MILENA discente
5 DIANA egresso
O que eu queria era utilizar essa planilha como uma espécie de dicionário que comparasse com a coluna "autores" para me gerar uma coluna com a situação de cada autor.
Imaginei que usando a função setNames()
, eu conseguiria.
dicionario<- setNames(corpo_programa$nome, corpo_programa$situacao)
Em seguida usei mutate()
:
df2 %>%
mutate(condicao = dicionario[autores])
# A tibble: 3 x 3
titulo autores condicao
<chr> <chr> <chr>
1 A URBANIZAÇÃO NEOLIBERAL CLAUDIO NA
2 A URBANIZAÇÃO NEOLIBERAL DIANA NA
3 A URBANIZAÇÃO NEOLIBERAL MILENA NA
A coluna "condicao", recém-criada, aparece com "NA", quando eu esperava que ela fosse ser preenchida com "docente", "egresso" e "discente".