Revistas psicologia e filosofia

recuperando os dados

pacman::p_load(tidyverse, readxl,DT)
psicologia <- read_excel("classificacoes_publicadas_psicologia_2022_1672761176271.xlsx") %>% 
  rename(Estrato_psicologia = Estrato)
filosofia <- read_excel("classificacoes_publicadas_filosofia_2022_1672761169183.xlsx") %>% 
  rename(Estrato_filosofia = Estrato)

apenas revistas comuns

inner_join(psicologia, filosofia) %>% 
  arrange(Estrato_psicologia, Estrato_filosofia) %>% 
  DT::datatable(.,
                extensions = 'Buttons',
            options = list(dom = 'Blfrtip',
                           buttons = c('excel', 'pdf')))

## Joining with `by = join_by(ISSN, Título)`