Escola da Inteligência

Relatório criado por

Luis Anunciação, Lucas Barrozo, Julia swerts e Carina Dana

Não é permitido reproduzir sem autorização

{r global options, include = FALSE} knitr::opts_chunk$set(echo = FALSE, warning = FALSE, messages = FALSE, include = TRUE)

pacman::p_load(tidyverse)

Simone

read_excel_allsheets <- function(filename) {
    sheets <- readxl::excel_sheets(filename) #get all sheet names
    x <- lapply(sheets, function(X) readxl::read_excel(filename, sheet = X))
    names(x) <- sheets #get names only
    x #return
}

excel_list <- read_excel_allsheets("C:/Users/lucas/Google Drive/ANOVA/Escola da Inteligência/CVC/Primeira cvc - professores/Matriz de competências - Itens para professores - versao luis - respostas Simone.xlsx")

list2env(setNames(excel_list, #list
                  paste0("est1_",janitor::make_clean_names(names(excel_list)))),  #fixing different names and other patterns
         envir=.GlobalEnv) #where?

#list2env(excel_list, .GlobalEnv)

Autoconhecimento

Fix 1 (row names to columns)

colnames(est1_x1_autoconhecimento) <- est1_x1_autoconhecimento[1, ]
est1_x1_autoconhecimento = est1_x1_autoconhecimento[-1, ]

Fix 2 (Clean names)

est1_x1_autoconhecimento <- janitor::clean_names(est1_x1_autoconhecimento)

Fix 3 (get only focal variables)

est1_x1_autoconhecimento <- est1_x1_autoconhecimento %>% 
  select(5:9)

Fix 4 (Insert main name and specialist)

est1_x1_autoconhecimento <- est1_x1_autoconhecimento %>% 
  mutate(habilidade = "autoconhecimento") %>% 
  mutate(specialist = "simone") %>% 
  select(habilidade, specialist, everything())

Fix 5 (cerfify factor level)

est1_x1_autoconhecimento <- est1_x1_autoconhecimento %>% 
  mutate(across(starts_with("voce_julga"), as.numeric))

fix 6 (add item number)

Estamos assumindo que ninguém mudou a ordem das linhas

est1_x1_autoconhecimento <- est1_x1_autoconhecimento %>% 
  mutate(item_number = row_number())

Check

est1_x1_autoconhecimento

Gestão do pensamento e emoções

Fix 1 (row names to columns)

colnames(est1_x2_gestao_do_pensamento_e_emocoe) <- est1_x2_gestao_do_pensamento_e_emocoe[1, ]
est1_x2_gestao_do_pensamento_e_emocoe = est1_x2_gestao_do_pensamento_e_emocoe[-1, ]

Fix 2 (Clean names)

est1_x2_gestao_do_pensamento_e_emocoe <- janitor::clean_names(est1_x2_gestao_do_pensamento_e_emocoe)

Fix 3 (get only focal variables)

est1_x2_gestao_do_pensamento_e_emocoe <- est1_x2_gestao_do_pensamento_e_emocoe %>% 
  select(5:9)

Fix 4 (Insert main name and specialist)

est1_x2_gestao_do_pensamento_e_emocoe <- est1_x2_gestao_do_pensamento_e_emocoe %>% 
  mutate(habilidade = "gestao do pensamento e emocoe") %>% 
  mutate(specialist = "simone") %>% 
  select(habilidade, specialist, everything())

Fix 5 (cerfify factor level)

est1_x2_gestao_do_pensamento_e_emocoe <- est1_x2_gestao_do_pensamento_e_emocoe %>% 
  mutate(across(starts_with("voce_julga"), as.numeric))

fix 6 (add item number)

Estamos assumindo que ninguém mudou a ordem das linhas

est1_x2_gestao_do_pensamento_e_emocoe <- est1_x2_gestao_do_pensamento_e_emocoe %>% 
  mutate(item_number = row_number())

Check

est1_x2_gestao_do_pensamento_e_emocoe

Tomada de decisao responsavel

Fix 1 (row names to columns)

colnames(est1_x3_tomada_de_decisao_responsavel) <- est1_x3_tomada_de_decisao_responsavel[1, ]
est1_x3_tomada_de_decisao_responsavel = est1_x3_tomada_de_decisao_responsavel[-1, ]

Fix 2 (Clean names)

est1_x3_tomada_de_decisao_responsavel <- janitor::clean_names(est1_x3_tomada_de_decisao_responsavel)

Fix 3 (get only focal variables)

est1_x3_tomada_de_decisao_responsavel <- est1_x3_tomada_de_decisao_responsavel %>% 
  select(5:9)

Fix 4 (Insert main name and specialist)

est1_x3_tomada_de_decisao_responsavel <- est1_x3_tomada_de_decisao_responsavel %>% 
  mutate(habilidade = "Tomada de decisao responsavel") %>% 
  mutate(specialist = "simone") %>% 
  select(habilidade, specialist, everything())

Fix 5 (cerfify factor level)

est1_x3_tomada_de_decisao_responsavel <- est1_x3_tomada_de_decisao_responsavel %>% 
  mutate(across(starts_with("voce_julga"), as.numeric))

fix 6 (add item number)

Estamos assumindo que ninguém mudou a ordem das linhas

est1_x3_tomada_de_decisao_responsavel <- est1_x3_tomada_de_decisao_responsavel %>% 
  mutate(item_number = row_number())

Check

est1_x3_tomada_de_decisao_responsavel

Consciência social

Fix 1 (row names to columns)

colnames(est1_x4_consciencia_social) <- est1_x4_consciencia_social[1, ]
est1_x4_consciencia_social = est1_x4_consciencia_social[-1, ]

Fix 2 (Clean names)

est1_x4_consciencia_social <- janitor::clean_names(est1_x4_consciencia_social)

Fix 3 (get only focal variables)

est1_x4_consciencia_social <- est1_x4_consciencia_social %>% 
  select(5:9)

Fix 4 (Insert main name and specialist)

est1_x4_consciencia_social <- est1_x4_consciencia_social %>% 
  mutate(habilidade = "Consciência social") %>% 
  mutate(specialist = "simone") %>% 
  select(habilidade, specialist, everything())

Fix 5 (cerfify factor level)

est1_x4_consciencia_social <- est1_x4_consciencia_social %>% 
  mutate(across(starts_with("voce_julga"), as.numeric))

fix 6 (add item number)

Estamos assumindo que ninguém mudou a ordem das linhas

est1_x4_consciencia_social <- est1_x4_consciencia_social %>% 
  mutate(item_number = row_number())

Check

est1_x4_consciencia_social

Relacionamento interpessoal

Fix 1 (row names to columns)

colnames(est1_x5_relacionamento_interpessoal) <- est1_x5_relacionamento_interpessoal[1, ]
est1_x5_relacionamento_interpessoal = est1_x5_relacionamento_interpessoal[-1, ]

Fix 2 (Clean names)

est1_x5_relacionamento_interpessoal <- janitor::clean_names(est1_x5_relacionamento_interpessoal)

Fix 3 (get only focal variables)

est1_x5_relacionamento_interpessoal <- est1_x5_relacionamento_interpessoal %>% 
  select(5:9)

Fix 4 (Insert main name and specialist)

est1_x5_relacionamento_interpessoal <- est1_x5_relacionamento_interpessoal %>% 
  mutate(habilidade = "Relacionamento interpessoal") %>% 
  mutate(specialist = "simone") %>% 
  select(habilidade, specialist, everything())

Fix 5 (cerfify factor level)

est1_x5_relacionamento_interpessoal <- est1_x5_relacionamento_interpessoal %>% 
  mutate(across(starts_with("voce_julga"), as.numeric))

fix 6 (add item number)

Estamos assumindo que ninguém mudou a ordem das linhas

est1_x5_relacionamento_interpessoal <- est1_x5_relacionamento_interpessoal %>% 
  mutate(item_number = row_number())

Check

est1_x5_relacionamento_interpessoal

Pensamento criativo

Fix 1 (row names to columns)

colnames(est1_x6_pensamento_criativo) <- est1_x6_pensamento_criativo[1, ]
est1_x6_pensamento_criativo = est1_x6_pensamento_criativo[-1, ]

Fix 2 (Clean names)

est1_x6_pensamento_criativo <- janitor::clean_names(est1_x6_pensamento_criativo)

Fix 3 (get only focal variables)

est1_x6_pensamento_criativo <- est1_x6_pensamento_criativo %>% 
  select(5:9)

Fix 4 (Insert main name and specialist)

est1_x6_pensamento_criativo <- est1_x6_pensamento_criativo %>% 
  mutate(habilidade = "Pensamento criativo") %>% 
  mutate(specialist = "simone") %>% 
  select(habilidade, specialist, everything())

Fix 5 (cerfify factor level)

est1_x6_pensamento_criativo <- est1_x6_pensamento_criativo %>% 
  mutate(across(starts_with("voce_julga"), as.numeric))

fix 6 (add item number)

Estamos assumindo que ninguém mudou a ordem das linhas

est1_x6_pensamento_criativo <- est1_x6_pensamento_criativo %>% 
  mutate(item_number = row_number())

Check

est1_x6_pensamento_criativo

Determinacao

Fix 1 (row names to columns)

colnames(est1_x7_determinacao) <- est1_x7_determinacao[1, ]
est1_x7_determinacao = est1_x7_determinacao[-1, ]

Fix 2 (Clean names)

est1_x7_determinacao <- janitor::clean_names(est1_x7_determinacao)

Fix 3 (get only focal variables)

est1_x7_determinacao <- est1_x7_determinacao %>% 
  select(5:9)

Fix 4 (Insert main name and specialist)

est1_x7_determinacao <- est1_x7_determinacao %>% 
  mutate(habilidade = "Determinação") %>% 
  mutate(specialist = "simone") %>% 
  select(habilidade, specialist, everything())

Fix 5 (cerfify factor level)

est1_x7_determinacao <- est1_x7_determinacao %>% 
  mutate(across(starts_with("voce_julga"), as.numeric))

fix 6 (add item number)

Estamos assumindo que ninguém mudou a ordem das linhas

est1_x7_determinacao <- est1_x7_determinacao %>% 
  mutate(item_number = row_number())

Check

est1_x7_determinacao

Liderança

Fix 1 (row names to columns)

colnames(est1_x8_lideranca) <- est1_x8_lideranca[1, ]
est1_x8_lideranca = est1_x8_lideranca[-1, ]

Fix 2 (Clean names)

est1_x8_lideranca <- janitor::clean_names(est1_x8_lideranca)

Fix 3 (get only focal variables)

est1_x8_lideranca <- est1_x8_lideranca %>% 
  select(5:9)

Fix 4 (Insert main name and specialist)

est1_x8_lideranca <- est1_x8_lideranca %>% 
  mutate(habilidade = "Liderança") %>% 
  mutate(specialist = "simone") %>% 
  select(habilidade, specialist, everything())

Fix 5 (cerfify factor level)

est1_x8_lideranca <- est1_x8_lideranca %>% 
  mutate(across(starts_with("voce_julga"), as.numeric))

fix 6 (add item number)

Estamos assumindo que ninguém mudou a ordem das linhas

est1_x8_lideranca <- est1_x8_lideranca %>% 
  mutate(item_number = row_number())

Check

est1_x8_lideranca

Olga

read_excel_allsheets <- function(filename) {
    sheets <- readxl::excel_sheets(filename) #get all sheet names
    x <- lapply(sheets, function(X) readxl::read_excel(filename, sheet = X))
    names(x) <- sheets #get names only
    x #return
}

excel_list <- read_excel_allsheets("C:/Users/lucas/Google Drive/ANOVA/Escola da Inteligência/CVC/Primeira cvc - professores/Matriz de competências - Itens para professores - versao luis - olga.xlsx")

list2env(setNames(excel_list, #list
                  paste0("est1_olga_",janitor::make_clean_names(names(excel_list)))),  #fixing different names and other patterns
         envir=.GlobalEnv) #where?

#list2env(excel_list, .GlobalEnv)

Autoconhecimento

Fix 1 (row names to columns)

colnames(est1_olga_x1_autoconhecimento) <- est1_olga_x1_autoconhecimento[1, ]
est1_olga_x1_autoconhecimento = est1_olga_x1_autoconhecimento[-1, ]

Fix 2 (Clean names)

est1_olga_x1_autoconhecimento <- janitor::clean_names(est1_olga_x1_autoconhecimento)

Fix 3 (get only focal variables)

est1_olga_x1_autoconhecimento <- est1_olga_x1_autoconhecimento %>% 
  select(5:9)

Fix 4 (Insert main name and specialist)

est1_olga_x1_autoconhecimento <- est1_olga_x1_autoconhecimento %>% 
  mutate(habilidade = "autoconhecimento") %>% 
  mutate(specialist = "Olga") %>% 
  select(habilidade, specialist, everything())

Fix 5 (cerfify factor level)

est1_olga_x1_autoconhecimento <- est1_olga_x1_autoconhecimento %>% 
  mutate(across(starts_with("voce_julga"), as.numeric))

fix 6 (add item number)

Estamos assumindo que ninguém mudou a ordem das linhas

est1_olga_x1_autoconhecimento <- est1_olga_x1_autoconhecimento %>% 
  mutate(item_number = row_number())

Check

est1_olga_x1_autoconhecimento

Gestão do pensamento e emoções

Fix 1 (row names to columns)

colnames(est1_olga_x2_gestao_do_pensamento_e_emocoe) <- est1_olga_x2_gestao_do_pensamento_e_emocoe[1, ]
est1_olga_x2_gestao_do_pensamento_e_emocoe = est1_olga_x2_gestao_do_pensamento_e_emocoe[-1, ]

Fix 2 (Clean names)

est1_olga_x2_gestao_do_pensamento_e_emocoe <- janitor::clean_names(est1_olga_x2_gestao_do_pensamento_e_emocoe)

Fix 3 (get only focal variables)

est1_olga_x2_gestao_do_pensamento_e_emocoe <- est1_olga_x2_gestao_do_pensamento_e_emocoe %>% 
  select(5:9)

Fix 4 (Insert main name and specialist)

est1_olga_x2_gestao_do_pensamento_e_emocoe <- est1_olga_x2_gestao_do_pensamento_e_emocoe %>% 
  mutate(habilidade = "gestao do pensamento e emocoe") %>% 
  mutate(specialist = "olga") %>% 
  select(habilidade, specialist, everything())

Fix 5 (cerfify factor level)

est1_olga_x2_gestao_do_pensamento_e_emocoe <- est1_olga_x2_gestao_do_pensamento_e_emocoe %>% 
  mutate(across(starts_with("voce_julga"), as.numeric))

fix 6 (add item number)

Estamos assumindo que ninguém mudou a ordem das linhas

est1_olga_x2_gestao_do_pensamento_e_emocoe <- est1_olga_x2_gestao_do_pensamento_e_emocoe %>% 
  mutate(item_number = row_number())

Check

est1_olga_x2_gestao_do_pensamento_e_emocoe

Tomada de decisao responsavel

Fix 1 (row names to columns)

colnames(est1_olga_x3_tomada_de_decisao_responsavel) <- est1_olga_x3_tomada_de_decisao_responsavel[1, ]
est1_olga_x3_tomada_de_decisao_responsavel = est1_olga_x3_tomada_de_decisao_responsavel[-1, ]

Fix 2 (Clean names)

est1_olga_x3_tomada_de_decisao_responsavel <- janitor::clean_names(est1_olga_x3_tomada_de_decisao_responsavel)

Fix 3 (get only focal variables)

est1_olga_x3_tomada_de_decisao_responsavel <- est1_olga_x3_tomada_de_decisao_responsavel %>% 
  select(5:9)

Fix 4 (Insert main name and specialist)

est1_olga_x3_tomada_de_decisao_responsavel <- est1_olga_x3_tomada_de_decisao_responsavel %>% 
  mutate(habilidade = "Tomada de decisao responsavel") %>% 
  mutate(specialist = "olga") %>% 
  select(habilidade, specialist, everything())

Fix 5 (cerfify factor level)

est1_olga_x3_tomada_de_decisao_responsavel <- est1_olga_x3_tomada_de_decisao_responsavel %>% 
  mutate(across(starts_with("voce_julga"), as.numeric))

fix 6 (add item number)

Estamos assumindo que ninguém mudou a ordem das linhas

est1_olga_x3_tomada_de_decisao_responsavel <- est1_olga_x3_tomada_de_decisao_responsavel %>% 
  mutate(item_number = row_number())

Check

est1_olga_x3_tomada_de_decisao_responsavel

Consciência social

Fix 1 (row names to columns)

colnames(est1_olga_x4_consciencia_social) <- est1_olga_x4_consciencia_social[1, ]
est1_olga_x4_consciencia_social = est1_olga_x4_consciencia_social[-1, ]

Fix 2 (Clean names)

est1_olga_x4_consciencia_social <- janitor::clean_names(est1_olga_x4_consciencia_social)

Fix 3 (get only focal variables)

est1_olga_x4_consciencia_social <- est1_olga_x4_consciencia_social %>% 
  select(5:9)

Fix 4 (Insert main name and specialist)

est1_olga_x4_consciencia_social <- est1_olga_x4_consciencia_social %>% 
  mutate(habilidade = "Consciência social") %>% 
  mutate(specialist = "olga") %>% 
  select(habilidade, specialist, everything())

Fix 5 (cerfify factor level)

est1_olga_x4_consciencia_social <- est1_olga_x4_consciencia_social %>% 
  mutate(across(starts_with("voce_julga"), as.numeric))

fix 6 (add item number)

Estamos assumindo que ninguém mudou a ordem das linhas

est1_olga_x4_consciencia_social <- est1_olga_x4_consciencia_social %>% 
  mutate(item_number = row_number())

Check

est1_olga_x4_consciencia_social

Relacionamento interpessoal

Fix 1 (row names to columns)

colnames(est1_olga_x5_relacionamento_interpessoal) <- est1_olga_x5_relacionamento_interpessoal[1, ]
est1_olga_x5_relacionamento_interpessoal = est1_olga_x5_relacionamento_interpessoal[-1, ]

Fix 2 (Clean names)

est1_olga_x5_relacionamento_interpessoal <- janitor::clean_names(est1_olga_x5_relacionamento_interpessoal)

Fix 3 (get only focal variables)

est1_olga_x5_relacionamento_interpessoal <- est1_olga_x5_relacionamento_interpessoal %>% 
  select(5:9)

Fix 4 (Insert main name and specialist)

est1_olga_x5_relacionamento_interpessoal <- est1_olga_x5_relacionamento_interpessoal %>% 
  mutate(habilidade = "Relacionamento interpessoal") %>% 
  mutate(specialist = "olga") %>% 
  select(habilidade, specialist, everything())

Fix 5 (cerfify factor level)

est1_olga_x5_relacionamento_interpessoal <- est1_olga_x5_relacionamento_interpessoal %>% 
  mutate(across(starts_with("voce_julga"), as.numeric))

fix 6 (add item number)

Estamos assumindo que ninguém mudou a ordem das linhas

est1_olga_x5_relacionamento_interpessoal <- est1_olga_x5_relacionamento_interpessoal %>% 
  mutate(item_number = row_number())

Check

est1_olga_x5_relacionamento_interpessoal

Pensamento criativo

Fix 1 (row names to columns)

colnames(est1_olga_x6_pensamento_criativo) <- est1_olga_x6_pensamento_criativo[1, ]
est1_olga_x6_pensamento_criativo = est1_olga_x6_pensamento_criativo[-1, ]

Fix 2 (Clean names)

est1_olga_x6_pensamento_criativo <- janitor::clean_names(est1_olga_x6_pensamento_criativo)

Fix 3 (get only focal variables)

est1_olga_x6_pensamento_criativo <- est1_olga_x6_pensamento_criativo %>% 
  select(5:9)

Fix 4 (Insert main name and specialist)

est1_olga_x6_pensamento_criativo <- est1_olga_x6_pensamento_criativo %>% 
  mutate(habilidade = "Pensamento criativo") %>% 
  mutate(specialist = "olga") %>% 
  select(habilidade, specialist, everything())

Fix 5 (cerfify factor level)

est1_olga_x6_pensamento_criativo <- est1_olga_x6_pensamento_criativo %>% 
  mutate(across(starts_with("voce_julga"), as.numeric))

fix 6 (add item number)

Estamos assumindo que ninguém mudou a ordem das linhas

est1_olga_x6_pensamento_criativo <- est1_olga_x6_pensamento_criativo %>% 
  mutate(item_number = row_number())

Check

est1_olga_x6_pensamento_criativo

Determinacao

Fix 1 (row names to columns)

colnames(est1_olga_x7_determinacao) <- est1_olga_x7_determinacao[1, ]
est1_olga_x7_determinacao = est1_olga_x7_determinacao[-1, ]

Fix 2 (Clean names)

est1_olga_x7_determinacao <- janitor::clean_names(est1_olga_x7_determinacao)

Fix 3 (get only focal variables)

est1_olga_x7_determinacao <- est1_olga_x7_determinacao %>% 
  select(5:9)

Fix 4 (Insert main name and specialist)

est1_olga_x7_determinacao <- est1_olga_x7_determinacao %>% 
  mutate(habilidade = "Determinação") %>% 
  mutate(specialist = "olga") %>% 
  select(habilidade, specialist, everything())

Fix 5 (cerfify factor level)

est1_olga_x7_determinacao <- est1_olga_x7_determinacao %>% 
  mutate(across(starts_with("voce_julga"), as.numeric))

fix 6 (add item number)

Estamos assumindo que ninguém mudou a ordem das linhas

est1_olga_x7_determinacao <- est1_olga_x7_determinacao %>% 
  mutate(item_number = row_number())

Check

est1_olga_x7_determinacao

Liderança

Fix 1 (row names to columns)

colnames(est1_olga_x8_lideranca) <- est1_olga_x8_lideranca[1, ]
est1_olga_x8_lideranca = est1_olga_x8_lideranca[-1, ]

Fix 2 (Clean names)

est1_olga_x8_lideranca <- janitor::clean_names(est1_olga_x8_lideranca)

Fix 3 (get only focal variables)

est1_olga_x8_lideranca <- est1_olga_x8_lideranca %>% 
  select(5:9)

Fix 4 (Insert main name and specialist)

est1_olga_x8_lideranca <- est1_olga_x8_lideranca %>% 
  mutate(habilidade = "Liderança") %>% 
  mutate(specialist = "olga") %>% 
  select(habilidade, specialist, everything())

Fix 5 (cerfify factor level)

est1_olga_x8_lideranca <- est1_olga_x8_lideranca %>% 
  mutate(across(starts_with("voce_julga"), as.numeric))

fix 6 (add item number)

Estamos assumindo que ninguém mudou a ordem das linhas

est1_olga_x8_lideranca <- est1_olga_x8_lideranca %>% 
  mutate(item_number = row_number())

Check

est1_olga_x8_lideranca

Carmen

read_excel_allsheets <- function(filename) {
    sheets <- readxl::excel_sheets(filename) #get all sheet names
    x <- lapply(sheets, function(X) readxl::read_excel(filename, sheet = X))
    names(x) <- sheets #get names only
    x #return
}

excel_list <- read_excel_allsheets("C:/Users/lucas/Google Drive/ANOVA/Escola da Inteligência/CVC/Primeira cvc - professores/Matriz de competências - Itens para professores - versao carmen.xlsx")

list2env(setNames(excel_list, #list
                  paste0("est1_carmem_",janitor::make_clean_names(names(excel_list)))),  #fixing different names and other patterns
         envir=.GlobalEnv) #where?

#list2env(excel_list, .GlobalEnv)

Fix 1 (row names to columns)

colnames(est1_carmem_x1_autoconhecimento) <- est1_carmem_x1_autoconhecimento[1, ]
est1_carmem_x1_autoconhecimento = est1_carmem_x1_autoconhecimento[-1, ]

Fix 2 (Clean names)

est1_carmem_x1_autoconhecimento <- janitor::clean_names(est1_carmem_x1_autoconhecimento)

Fix 3 (get only focal variables)

est1_carmem_x1_autoconhecimento <- est1_carmem_x1_autoconhecimento %>% 
  select(5:9)

Fix 4 (Insert main name and specialist)

est1_carmem_x1_autoconhecimento <- est1_carmem_x1_autoconhecimento %>% 
  mutate(habilidade = "autoconhecimento") %>% 
  mutate(specialist = "Carmem") %>% 
  select(habilidade, specialist, everything())

Fix 5 (cerfify factor level)

est1_carmem_x1_autoconhecimento <- est1_carmem_x1_autoconhecimento %>% 
  mutate(across(starts_with("voce_julga"), as.numeric))

fix 6 (add item number)

Estamos assumindo que ninguém mudou a ordem das linhas

est1_carmem_x1_autoconhecimento <- est1_carmem_x1_autoconhecimento %>% 
  mutate(item_number = row_number())

Check

est1_carmem_x1_autoconhecimento

Gestão do pensamento e emoções

Fix 1 (row names to columns)

colnames(est1_carmem_x2_gestao_do_pensamento_e_emocoe) <- est1_carmem_x2_gestao_do_pensamento_e_emocoe[1, ]
est1_carmem_x2_gestao_do_pensamento_e_emocoe = est1_carmem_x2_gestao_do_pensamento_e_emocoe[-1, ]

Fix 2 (Clean names)

est1_carmem_x2_gestao_do_pensamento_e_emocoe <- janitor::clean_names(est1_carmem_x2_gestao_do_pensamento_e_emocoe)

Fix 3 (get only focal variables)

est1_carmem_x2_gestao_do_pensamento_e_emocoe <- est1_carmem_x2_gestao_do_pensamento_e_emocoe %>% 
  select(5:9)

Fix 4 (Insert main name and specialist)

est1_carmem_x2_gestao_do_pensamento_e_emocoe <- est1_carmem_x2_gestao_do_pensamento_e_emocoe %>% 
  mutate(habilidade = "gestao do pensamento e emocoe") %>% 
  mutate(specialist = "carmem") %>% 
  select(habilidade, specialist, everything())

Fix 5 (cerfify factor level)

est1_carmem_x2_gestao_do_pensamento_e_emocoe <- est1_carmem_x2_gestao_do_pensamento_e_emocoe %>% 
  mutate(across(starts_with("voce_julga"), as.numeric))

fix 6 (add item number)

Estamos assumindo que ninguém mudou a ordem das linhas

est1_carmem_x2_gestao_do_pensamento_e_emocoe <- est1_carmem_x2_gestao_do_pensamento_e_emocoe %>% 
  mutate(item_number = row_number())

Check

est1_carmem_x2_gestao_do_pensamento_e_emocoe

Tomada de decisao responsavel

Fix 1 (row names to columns)

colnames(est1_carmem_x3_tomada_de_decisao_responsavel) <- est1_carmem_x3_tomada_de_decisao_responsavel[1, ]
est1_carmem_x3_tomada_de_decisao_responsavel = est1_carmem_x3_tomada_de_decisao_responsavel[-1, ]

Fix 2 (Clean names)

est1_carmem_x3_tomada_de_decisao_responsavel <- janitor::clean_names(est1_carmem_x3_tomada_de_decisao_responsavel)

Fix 3 (get only focal variables)

est1_carmem_x3_tomada_de_decisao_responsavel <- est1_carmem_x3_tomada_de_decisao_responsavel %>% 
  select(5:9)

Fix 4 (Insert main name and specialist)

est1_carmem_x3_tomada_de_decisao_responsavel <- est1_carmem_x3_tomada_de_decisao_responsavel %>% 
  mutate(habilidade = "Tomada de decisao responsavel") %>% 
  mutate(specialist = "carmem") %>% 
  select(habilidade, specialist, everything())

Fix 5 (cerfify factor level)

est1_carmem_x3_tomada_de_decisao_responsavel <- est1_carmem_x3_tomada_de_decisao_responsavel %>% 
  mutate(across(starts_with("voce_julga"), as.numeric))

fix 6 (add item number)

Estamos assumindo que ninguém mudou a ordem das linhas

est1_carmem_x3_tomada_de_decisao_responsavel <- est1_carmem_x3_tomada_de_decisao_responsavel %>% 
  mutate(item_number = row_number())

Check

est1_carmem_x3_tomada_de_decisao_responsavel

Consciência social

Fix 1 (row names to columns)

colnames(est1_carmem_x4_consciencia_social) <- est1_carmem_x4_consciencia_social[1, ]
est1_carmem_x4_consciencia_social = est1_carmem_x4_consciencia_social[-1, ]

Fix 2 (Clean names)

est1_carmem_x4_consciencia_social <- janitor::clean_names(est1_carmem_x4_consciencia_social)

Fix 3 (get only focal variables)

est1_carmem_x4_consciencia_social <- est1_carmem_x4_consciencia_social %>% 
  select(5:9)

Fix 4 (Insert main name and specialist)

est1_carmem_x4_consciencia_social <- est1_carmem_x4_consciencia_social %>% 
  mutate(habilidade = "Consciência social") %>% 
  mutate(specialist = "carmem") %>% 
  select(habilidade, specialist, everything())

Fix 5 (cerfify factor level)

est1_carmem_x4_consciencia_social <- est1_carmem_x4_consciencia_social %>% 
  mutate(across(starts_with("voce_julga"), as.numeric))

fix 6 (add item number)

Estamos assumindo que ninguém mudou a ordem das linhas

est1_carmem_x4_consciencia_social <- est1_carmem_x4_consciencia_social %>% 
  mutate(item_number = row_number())

Check

est1_carmem_x4_consciencia_social

Relacionamento interpessoal

Fix 1 (row names to columns)

colnames(est1_carmem_x5_relacionamento_interpessoal) <- est1_carmem_x5_relacionamento_interpessoal[1, ]
est1_carmem_x5_relacionamento_interpessoal = est1_carmem_x5_relacionamento_interpessoal[-1, ]

Fix 2 (Clean names)

est1_carmem_x5_relacionamento_interpessoal <- janitor::clean_names(est1_carmem_x5_relacionamento_interpessoal)

Fix 3 (get only focal variables)

est1_carmem_x5_relacionamento_interpessoal <- est1_carmem_x5_relacionamento_interpessoal %>% 
  select(5:9)

Fix 4 (Insert main name and specialist)

est1_carmem_x5_relacionamento_interpessoal <- est1_carmem_x5_relacionamento_interpessoal %>% 
  mutate(habilidade = "Relacionamento interpessoal") %>% 
  mutate(specialist = "carmem") %>% 
  select(habilidade, specialist, everything())

Fix 5 (cerfify factor level)

est1_carmem_x5_relacionamento_interpessoal <- est1_carmem_x5_relacionamento_interpessoal %>% 
  mutate(across(starts_with("voce_julga"), as.numeric))

fix 6 (add item number)

Estamos assumindo que ninguém mudou a ordem das linhas

est1_carmem_x5_relacionamento_interpessoal <- est1_carmem_x5_relacionamento_interpessoal %>% 
  mutate(item_number = row_number())

Check

est1_carmem_x5_relacionamento_interpessoal

Pensamento criativo

Fix 1 (row names to columns)

colnames(est1_carmem_x6_pensamento_criativo) <- est1_carmem_x6_pensamento_criativo[1, ]
est1_carmem_x6_pensamento_criativo = est1_carmem_x6_pensamento_criativo[-1, ]

Fix 2 (Clean names)

est1_carmem_x6_pensamento_criativo <- janitor::clean_names(est1_carmem_x6_pensamento_criativo)

Fix 3 (get only focal variables)

est1_carmem_x6_pensamento_criativo <- est1_carmem_x6_pensamento_criativo %>% 
  select(5:9)

Fix 4 (Insert main name and specialist)

est1_carmem_x6_pensamento_criativo <- est1_carmem_x6_pensamento_criativo %>% 
  mutate(habilidade = "Pensamento criativo") %>% 
  mutate(specialist = "carmem") %>% 
  select(habilidade, specialist, everything())

Fix 5 (cerfify factor level)

est1_carmem_x6_pensamento_criativo <- est1_carmem_x6_pensamento_criativo %>% 
  mutate(across(starts_with("voce_julga"), as.numeric))

fix 6 (add item number)

Estamos assumindo que ninguém mudou a ordem das linhas

est1_carmem_x6_pensamento_criativo <- est1_carmem_x6_pensamento_criativo %>% 
  mutate(item_number = row_number())

Check

est1_carmem_x6_pensamento_criativo

consetar os nomes das variáveis

Determinacao

Fix 1 (row names to columns)

colnames(est1_carmem_x7_determinacao) <- est1_carmem_x7_determinacao[1, ]
est1_carmem_x7_determinacao = est1_carmem_x7_determinacao[-1, ]

Fix 2 (Clean names)

est1_carmem_x7_determinacao <- janitor::clean_names(est1_carmem_x7_determinacao)

Fix 3 (get only focal variables)

est1_carmem_x7_determinacao <- est1_carmem_x7_determinacao %>% 
  select(5:9)

Fix 4 (Insert main name and specialist)

est1_carmem_x7_determinacao <- est1_carmem_x7_determinacao %>% 
  mutate(habilidade = "Determinação") %>% 
  mutate(specialist = "carmem") %>% 
  select(habilidade, specialist, everything())

Fix 5 (cerfify factor level)

est1_carmem_x7_determinacao <- est1_carmem_x7_determinacao %>% 
  mutate(across(starts_with("voce_julga"), as.numeric))

fix 6 (add item number)

Estamos assumindo que ninguém mudou a ordem das linhas

est1_carmem_x7_determinacao <- est1_carmem_x7_determinacao %>% 
  mutate(item_number = row_number())

Check

est1_carmem_x7_determinacao

Liderança

Fix 1 (row names to columns)

colnames(est1_carmem_x8_lideranca) <- est1_carmem_x8_lideranca[1, ]
est1_carmem_x8_lideranca = est1_carmem_x8_lideranca[-1, ]

Fix 2 (Clean names)

est1_carmem_x8_lideranca <- janitor::clean_names(est1_carmem_x8_lideranca)

Fix 3 (get only focal variables)

est1_carmem_x8_lideranca <- est1_carmem_x8_lideranca %>% 
  select(5:9)

Fix 4 (Insert main name and specialist)

est1_carmem_x8_lideranca <- est1_carmem_x8_lideranca %>% 
  mutate(habilidade = "Liderança") %>% 
  mutate(specialist = "carmem") %>% 
  select(habilidade, specialist, everything())

Fix 5 (cerfify factor level)

est1_carmem_x8_lideranca <- est1_carmem_x8_lideranca %>% 
  mutate(across(starts_with("voce_julga"), as.numeric))

fix 6 (add item number)

Estamos assumindo que ninguém mudou a ordem das linhas

est1_carmem_x8_lideranca <- est1_carmem_x8_lideranca %>% 
  mutate(item_number = row_number())

Check

est1_carmem_x8_lideranca

Josi

read_excel_allsheets <- function(filename) {
    sheets <- readxl::excel_sheets(filename) #get all sheet names
    x <- lapply(sheets, function(X) readxl::read_excel(filename, sheet = X))
    names(x) <- sheets #get names only
    x #return
}

excel_list <- read_excel_allsheets("C:/Users/lucas/Google Drive/ANOVA/Escola da Inteligência/CVC/Primeira cvc - professores/Matriz de competências - Itens para professores - versao luis - josi.xlsx")

list2env(setNames(excel_list, #list
                  paste0("est1_josi_",janitor::make_clean_names(names(excel_list)))),  #fixing different names and other patterns
         envir=.GlobalEnv) #where?

#list2env(excel_list, .GlobalEnv)

Autoconhecimento

Fix 1 (row names to columns)

colnames(est1_josi_x1_autoconhecimento) <- est1_josi_x1_autoconhecimento[1, ]
est1_josi_x1_autoconhecimento = est1_josi_x1_autoconhecimento[-1, ]

Fix 2 (Clean names)

est1_josi_x1_autoconhecimento <- janitor::clean_names(est1_josi_x1_autoconhecimento)

Fix 3 (get only focal variables)

est1_josi_x1_autoconhecimento <- est1_josi_x1_autoconhecimento %>% 
  select(5:9)

Fix 4 (Insert main name and specialist)

est1_josi_x1_autoconhecimento <- est1_josi_x1_autoconhecimento %>% 
  mutate(habilidade = "autoconhecimento") %>% 
  mutate(specialist = "Josi") %>% 
  select(habilidade, specialist, everything())

Fix 5 (cerfify factor level)

est1_josi_x1_autoconhecimento <- est1_josi_x1_autoconhecimento %>% 
  mutate(across(starts_with("voce_julga"), as.numeric))

fix 6 (add item number)

Estamos assumindo que ninguém mudou a ordem das linhas

est1_josi_x1_autoconhecimento <- est1_josi_x1_autoconhecimento %>% 
  mutate(item_number = row_number())

Check

est1_josi_x1_autoconhecimento

Gestão do pensamento e emoções

Fix 1 (row names to columns)

colnames(est1_josi_x2_gestao_do_pensamento_e_emocoe) <- est1_josi_x2_gestao_do_pensamento_e_emocoe[1, ]
est1_josi_x2_gestao_do_pensamento_e_emocoe = est1_josi_x2_gestao_do_pensamento_e_emocoe[-1, ]

Fix 2 (Clean names)

est1_josi_x2_gestao_do_pensamento_e_emocoe <- janitor::clean_names(est1_josi_x2_gestao_do_pensamento_e_emocoe)

Fix 3 (get only focal variables)

est1_josi_x2_gestao_do_pensamento_e_emocoe <- est1_josi_x2_gestao_do_pensamento_e_emocoe %>% 
  select(5:9)

Fix 4 (Insert main name and specialist)

est1_josi_x2_gestao_do_pensamento_e_emocoe <- est1_josi_x2_gestao_do_pensamento_e_emocoe %>% 
  mutate(habilidade = "gestao do pensamento e emocoe") %>% 
  mutate(specialist = "josi") %>% 
  select(habilidade, specialist, everything())

Fix 5 (cerfify factor level)

est1_josi_x2_gestao_do_pensamento_e_emocoe <- est1_josi_x2_gestao_do_pensamento_e_emocoe %>% 
  mutate(across(starts_with("voce_julga"), as.numeric))

fix 6 (add item number)

Estamos assumindo que ninguém mudou a ordem das linhas

est1_josi_x2_gestao_do_pensamento_e_emocoe <- est1_josi_x2_gestao_do_pensamento_e_emocoe %>% 
  mutate(item_number = row_number())

Check

est1_josi_x2_gestao_do_pensamento_e_emocoe

Tomada de decisao responsavel

Fix 1 (row names to columns)

colnames(est1_josi_x3_tomada_de_decisao_responsavel) <- est1_josi_x3_tomada_de_decisao_responsavel[1, ]
est1_josi_x3_tomada_de_decisao_responsavel = est1_josi_x3_tomada_de_decisao_responsavel[-1, ]

Fix 2 (Clean names)

est1_josi_x3_tomada_de_decisao_responsavel <- janitor::clean_names(est1_josi_x3_tomada_de_decisao_responsavel)

Fix 3 (get only focal variables)

est1_josi_x3_tomada_de_decisao_responsavel <- est1_josi_x3_tomada_de_decisao_responsavel %>% 
  select(5:9)

Fix 4 (Insert main name and specialist)

est1_josi_x3_tomada_de_decisao_responsavel <- est1_josi_x3_tomada_de_decisao_responsavel %>% 
  mutate(habilidade = "Tomada de decisao responsavel") %>% 
  mutate(specialist = "josi") %>% 
  select(habilidade, specialist, everything())

Fix 5 (cerfify factor level)

est1_josi_x3_tomada_de_decisao_responsavel <- est1_josi_x3_tomada_de_decisao_responsavel %>% 
  mutate(across(starts_with("voce_julga"), as.numeric))

fix 6 (add item number)

Estamos assumindo que ninguém mudou a ordem das linhas

est1_josi_x3_tomada_de_decisao_responsavel <- est1_josi_x3_tomada_de_decisao_responsavel %>% 
  mutate(item_number = row_number())

Check

est1_josi_x3_tomada_de_decisao_responsavel

Consciência social

Fix 1 (row names to columns)

colnames(est1_josi_x4_consciencia_social) <- est1_josi_x4_consciencia_social[1, ]
est1_josi_x4_consciencia_social = est1_josi_x4_consciencia_social[-1, ]

Fix 2 (Clean names)

est1_josi_x4_consciencia_social <- janitor::clean_names(est1_josi_x4_consciencia_social)

Fix 3 (get only focal variables)

est1_josi_x4_consciencia_social <- est1_josi_x4_consciencia_social %>% 
  select(5:9)

Fix 4 (Insert main name and specialist)

est1_josi_x4_consciencia_social <- est1_josi_x4_consciencia_social %>% 
  mutate(habilidade = "Consciência social") %>% 
  mutate(specialist = "josi") %>% 
  select(habilidade, specialist, everything())

Fix 5 (cerfify factor level)

est1_josi_x4_consciencia_social <- est1_josi_x4_consciencia_social %>% 
  mutate(across(starts_with("voce_julga"), as.numeric))

fix 6 (add item number)

Estamos assumindo que ninguém mudou a ordem das linhas

est1_josi_x4_consciencia_social <- est1_josi_x4_consciencia_social %>% 
  mutate(item_number = row_number())

Check

est1_josi_x4_consciencia_social

Relacionamento interpessoal

Fix 1 (row names to columns)

colnames(est1_josi_x5_relacionamento_interpessoal) <- est1_josi_x5_relacionamento_interpessoal[1, ]
est1_josi_x5_relacionamento_interpessoal = est1_josi_x5_relacionamento_interpessoal[-1, ]

Fix 2 (Clean names)

est1_josi_x5_relacionamento_interpessoal <- janitor::clean_names(est1_josi_x5_relacionamento_interpessoal)

Fix 3 (get only focal variables)

est1_josi_x5_relacionamento_interpessoal <- est1_josi_x5_relacionamento_interpessoal %>% 
  select(5:9)

Fix 4 (Insert main name and specialist)

est1_josi_x5_relacionamento_interpessoal <- est1_josi_x5_relacionamento_interpessoal %>% 
  mutate(habilidade = "Relacionamento interpessoal") %>% 
  mutate(specialist = "josi") %>% 
  select(habilidade, specialist, everything())

Fix 5 (cerfify factor level)

est1_josi_x5_relacionamento_interpessoal <- est1_josi_x5_relacionamento_interpessoal %>% 
  mutate(across(starts_with("voce_julga"), as.numeric))

fix 6 (add item number)

Estamos assumindo que ninguém mudou a ordem das linhas

est1_josi_x5_relacionamento_interpessoal <- est1_josi_x5_relacionamento_interpessoal %>% 
  mutate(item_number = row_number())

Check

est1_josi_x5_relacionamento_interpessoal

Pensamento criativo

Fix 1 (row names to columns)

colnames(est1_josi_x6_pensamento_criativo) <- est1_josi_x6_pensamento_criativo[1, ]
est1_josi_x6_pensamento_criativo = est1_josi_x6_pensamento_criativo[-1, ]

Fix 2 (Clean names)

est1_josi_x6_pensamento_criativo <- janitor::clean_names(est1_josi_x6_pensamento_criativo)

Fix 3 (get only focal variables)

est1_josi_x6_pensamento_criativo <- est1_josi_x6_pensamento_criativo %>% 
  select(5:9)

Fix 4 (Insert main name and specialist)

est1_josi_x6_pensamento_criativo <- est1_josi_x6_pensamento_criativo %>% 
  mutate(habilidade = "Pensamento criativo") %>% 
  mutate(specialist = "josi") %>% 
  select(habilidade, specialist, everything())

Fix 5 (cerfify factor level)

est1_josi_x6_pensamento_criativo <- est1_josi_x6_pensamento_criativo %>% 
  mutate(across(starts_with("voce_julga"), as.numeric))

fix 6 (add item number)

Estamos assumindo que ninguém mudou a ordem das linhas

est1_josi_x6_pensamento_criativo <- est1_josi_x6_pensamento_criativo %>% 
  mutate(item_number = row_number())

Check

est1_josi_x6_pensamento_criativo

consetar os nomes das variáveis

Determinacao

Fix 1 (row names to columns)

colnames(est1_josi_x7_determinacao) <- est1_josi_x7_determinacao[1, ]
est1_josi_x7_determinacao = est1_josi_x7_determinacao[-1, ]

Fix 2 (Clean names)

est1_josi_x7_determinacao <- janitor::clean_names(est1_josi_x7_determinacao)

Fix 3 (get only focal variables)

est1_josi_x7_determinacao <- est1_josi_x7_determinacao %>% 
  select(5:9)

Fix 4 (Insert main name and specialist)

est1_josi_x7_determinacao <- est1_josi_x7_determinacao %>% 
  mutate(habilidade = "Determinação") %>% 
  mutate(specialist = "josi") %>% 
  select(habilidade, specialist, everything())

Fix 5 (cerfify factor level)

est1_josi_x7_determinacao <- est1_josi_x7_determinacao %>% 
  mutate(across(starts_with("voce_julga"), as.numeric))

fix 6 (add item number)

Estamos assumindo que ninguém mudou a ordem das linhas

est1_josi_x7_determinacao <- est1_josi_x7_determinacao %>% 
  mutate(item_number = row_number())

Check

est1_josi_x7_determinacao

Liderança

Fix 1 (row names to columns)

colnames(est1_josi_x8_lideranca) <- est1_josi_x8_lideranca[1, ]
est1_josi_x8_lideranca = est1_josi_x8_lideranca[-1, ]

Fix 2 (Clean names)

est1_josi_x8_lideranca <- janitor::clean_names(est1_josi_x8_lideranca)

Fix 3 (get only focal variables)

est1_josi_x8_lideranca <- est1_josi_x8_lideranca %>% 
  select(5:9)

Fix 4 (Insert main name and specialist)

est1_josi_x8_lideranca <- est1_josi_x8_lideranca %>% 
  mutate(habilidade = "Liderança") %>% 
  mutate(specialist = "josi") %>% 
  select(habilidade, specialist, everything())

Fix 5 (cerfify factor level)

est1_josi_x8_lideranca <- est1_josi_x8_lideranca %>% 
  mutate(across(starts_with("voce_julga"), as.numeric))

fix 6 (add item number)

Estamos assumindo que ninguém mudou a ordem das linhas

est1_josi_x8_lideranca <- est1_josi_x8_lideranca %>% 
  mutate(item_number = row_number())

Check

est1_josi_x8_lideranca

Murilo

read_excel_allsheets <- function(filename) {
    sheets <- readxl::excel_sheets(filename) #get all sheet names
    x <- lapply(sheets, function(X) readxl::read_excel(filename, sheet = X))
    names(x) <- sheets #get names only
    x #return
}

excel_list <- read_excel_allsheets("C:/Users/lucas/Google Drive/ANOVA/Escola da Inteligência/CVC/Primeira cvc - professores/Matriz de competências - Itens para professores - Notras Murillo.xlsx")

list2env(setNames(excel_list, #list
                  paste0("est1_murilo_",janitor::make_clean_names(names(excel_list)))),  #fixing different names and other patterns
         envir=.GlobalEnv) #where?

#list2env(excel_list, .GlobalEnv)

autoconhecimento

Fix 1 (row names to columns)

colnames(est1_murilo_x1_autoconhecimento) <- est1_murilo_x1_autoconhecimento[1, ]
est1_murilo_x1_autoconhecimento = est1_murilo_x1_autoconhecimento[-1, ]

Fix 2 (Clean names)

est1_murilo_x1_autoconhecimento <- janitor::clean_names(est1_murilo_x1_autoconhecimento)

Fix 3 (get only focal variables)

est1_murilo_x1_autoconhecimento <- est1_murilo_x1_autoconhecimento %>% 
  select(5:9)

Fix 4 (Insert main name and specialist)

est1_murilo_x1_autoconhecimento <- est1_murilo_x1_autoconhecimento %>% 
  mutate(habilidade = "autoconhecimento") %>% 
  mutate(specialist = "Murilo") %>% 
  select(habilidade, specialist, everything())

Fix 5 (cerfify factor level)

est1_murilo_x1_autoconhecimento <- est1_murilo_x1_autoconhecimento %>% 
  mutate(across(starts_with("voce_julga"), as.numeric))

fix 6 (add item number)

Estamos assumindo que ninguém mudou a ordem das linhas

est1_murilo_x1_autoconhecimento <- est1_murilo_x1_autoconhecimento %>% 
  mutate(item_number = row_number())

Check

est1_murilo_x1_autoconhecimento

Gestão do pensamento e emoções

Fix 1 (row names to columns)

colnames(est1_murilo_x2_gestao_do_pensamento_e_emocoe) <- est1_murilo_x2_gestao_do_pensamento_e_emocoe[1, ]
est1_murilo_x2_gestao_do_pensamento_e_emocoe = est1_murilo_x2_gestao_do_pensamento_e_emocoe[-1, ]

Fix 2 (Clean names)

est1_murilo_x2_gestao_do_pensamento_e_emocoe <- janitor::clean_names(est1_murilo_x2_gestao_do_pensamento_e_emocoe)

Fix 3 (get only focal variables)

est1_murilo_x2_gestao_do_pensamento_e_emocoe <- est1_murilo_x2_gestao_do_pensamento_e_emocoe %>% 
  select(5:9)

Fix 4 (Insert main name and specialist)

est1_murilo_x2_gestao_do_pensamento_e_emocoe <- est1_murilo_x2_gestao_do_pensamento_e_emocoe %>% 
  mutate(habilidade = "gestao do pensamento e emocoe") %>% 
  mutate(specialist = "murilo") %>% 
  select(habilidade, specialist, everything())

Fix 5 (cerfify factor level)

est1_murilo_x2_gestao_do_pensamento_e_emocoe <- est1_murilo_x2_gestao_do_pensamento_e_emocoe %>% 
  mutate(across(starts_with("voce_julga"), as.numeric))

fix 6 (add item number)

Estamos assumindo que ninguém mudou a ordem das linhas

est1_murilo_x2_gestao_do_pensamento_e_emocoe <- est1_murilo_x2_gestao_do_pensamento_e_emocoe %>% 
  mutate(item_number = row_number())

Check

est1_murilo_x2_gestao_do_pensamento_e_emocoe

Tomada de decisao responsavel

Fix 1 (row names to columns)

colnames(est1_murilo_x3_tomada_de_decisao_responsavel) <- est1_murilo_x3_tomada_de_decisao_responsavel[1, ]
est1_murilo_x3_tomada_de_decisao_responsavel = est1_murilo_x3_tomada_de_decisao_responsavel[-1, ]

Fix 2 (Clean names)

est1_murilo_x3_tomada_de_decisao_responsavel <- janitor::clean_names(est1_murilo_x3_tomada_de_decisao_responsavel)

Fix 3 (get only focal variables)

est1_murilo_x3_tomada_de_decisao_responsavel <- est1_murilo_x3_tomada_de_decisao_responsavel %>% 
  select(5:9)

Fix 4 (Insert main name and specialist)

est1_murilo_x3_tomada_de_decisao_responsavel <- est1_murilo_x3_tomada_de_decisao_responsavel %>% 
  mutate(habilidade = "Tomada de decisao responsavel") %>% 
  mutate(specialist = "murilo") %>% 
  select(habilidade, specialist, everything())

Fix 5 (cerfify factor level)

est1_murilo_x3_tomada_de_decisao_responsavel <- est1_murilo_x3_tomada_de_decisao_responsavel %>% 
  mutate(across(starts_with("voce_julga"), as.numeric))

fix 6 (add item number)

Estamos assumindo que ninguém mudou a ordem das linhas

est1_murilo_x3_tomada_de_decisao_responsavel <- est1_murilo_x3_tomada_de_decisao_responsavel %>% 
  mutate(item_number = row_number())

Check

est1_murilo_x3_tomada_de_decisao_responsavel

Consciência social

Fix 1 (row names to columns)

colnames(est1_murilo_x4_consciencia_social) <- est1_murilo_x4_consciencia_social[1, ]
est1_murilo_x4_consciencia_social = est1_murilo_x4_consciencia_social[-1, ]

Fix 2 (Clean names)

est1_murilo_x4_consciencia_social <- janitor::clean_names(est1_murilo_x4_consciencia_social)

Fix 3 (get only focal variables)

est1_murilo_x4_consciencia_social <- est1_murilo_x4_consciencia_social %>% 
  select(5:9)

Fix 4 (Insert main name and specialist)

est1_murilo_x4_consciencia_social <- est1_murilo_x4_consciencia_social %>% 
  mutate(habilidade = "Consciência social") %>% 
  mutate(specialist = "murilo") %>% 
  select(habilidade, specialist, everything())

Fix 5 (cerfify factor level)

est1_murilo_x4_consciencia_social <- est1_murilo_x4_consciencia_social %>% 
  mutate(across(starts_with("voce_julga"), as.numeric))

fix 6 (add item number)

Estamos assumindo que ninguém mudou a ordem das linhas

est1_murilo_x4_consciencia_social <- est1_murilo_x4_consciencia_social %>% 
  mutate(item_number = row_number())

Check

est1_murilo_x4_consciencia_social

Relacionamento interpessoal

Fix 1 (row names to columns)

colnames(est1_murilo_x5_relacionamento_interpessoal) <- est1_murilo_x5_relacionamento_interpessoal[1, ]
est1_murilo_x5_relacionamento_interpessoal = est1_murilo_x5_relacionamento_interpessoal[-1, ]

Fix 2 (Clean names)

est1_murilo_x5_relacionamento_interpessoal <- janitor::clean_names(est1_murilo_x5_relacionamento_interpessoal)

Fix 3 (get only focal variables)

est1_murilo_x5_relacionamento_interpessoal <- est1_murilo_x5_relacionamento_interpessoal %>% 
  select(5:9)

Fix 4 (Insert main name and specialist)

est1_murilo_x5_relacionamento_interpessoal <- est1_murilo_x5_relacionamento_interpessoal %>% 
  mutate(habilidade = "Relacionamento interpessoal") %>% 
  mutate(specialist = "murilo") %>% 
  select(habilidade, specialist, everything())

Fix 5 (cerfify factor level)

est1_murilo_x5_relacionamento_interpessoal <- est1_murilo_x5_relacionamento_interpessoal %>% 
  mutate(across(starts_with("voce_julga"), as.numeric))

fix 6 (add item number)

Estamos assumindo que ninguém mudou a ordem das linhas

est1_murilo_x5_relacionamento_interpessoal <- est1_murilo_x5_relacionamento_interpessoal %>% 
  mutate(item_number = row_number())

Check

est1_murilo_x5_relacionamento_interpessoal

Pensamento criativo

Fix 1 (row names to columns)

colnames(est1_murilo_x6_pensamento_criativo) <- est1_murilo_x6_pensamento_criativo[1, ]
est1_murilo_x6_pensamento_criativo = est1_murilo_x6_pensamento_criativo[-1, ]

Fix 2 (Clean names)

est1_murilo_x6_pensamento_criativo <- janitor::clean_names(est1_murilo_x6_pensamento_criativo)

Fix 3 (get only focal variables)

est1_murilo_x6_pensamento_criativo <- est1_murilo_x6_pensamento_criativo %>% 
  select(5:9)

Fix 4 (Insert main name and specialist)

est1_murilo_x6_pensamento_criativo <- est1_murilo_x6_pensamento_criativo %>% 
  mutate(habilidade = "Pensamento criativo") %>% 
  mutate(specialist = "murilo") %>% 
  select(habilidade, specialist, everything())

Fix 5 (cerfify factor level)

est1_murilo_x6_pensamento_criativo <- est1_murilo_x6_pensamento_criativo %>% 
  mutate(across(starts_with("voce_julga"), as.numeric))

fix 6 (add item number)

Estamos assumindo que ninguém mudou a ordem das linhas

est1_murilo_x6_pensamento_criativo <- est1_murilo_x6_pensamento_criativo %>% 
  mutate(item_number = row_number())

Check

est1_murilo_x6_pensamento_criativo

consetar os nomes das variáveis

Determinacao

Fix 1 (row names to columns)

colnames(est1_murilo_x7_determinacao) <- est1_murilo_x7_determinacao[1, ]
est1_murilo_x7_determinacao = est1_murilo_x7_determinacao[-1, ]

Fix 2 (Clean names)

est1_murilo_x7_determinacao <- janitor::clean_names(est1_murilo_x7_determinacao)

Fix 3 (get only focal variables)

est1_murilo_x7_determinacao <- est1_murilo_x7_determinacao %>% 
  select(5:9)

Fix 4 (Insert main name and specialist)

est1_murilo_x7_determinacao <- est1_murilo_x7_determinacao %>% 
  mutate(habilidade = "Determinação") %>% 
  mutate(specialist = "murilo") %>% 
  select(habilidade, specialist, everything())

Fix 5 (cerfify factor level)

est1_murilo_x7_determinacao <- est1_murilo_x7_determinacao %>% 
  mutate(across(starts_with("voce_julga"), as.numeric))

fix 6 (add item number)

Estamos assumindo que ninguém mudou a ordem das linhas

est1_murilo_x7_determinacao <- est1_murilo_x7_determinacao %>% 
  mutate(item_number = row_number())

Check

est1_murilo_x7_determinacao

Liderança

Fix 1 (row names to columns)

colnames(est1_murilo_x8_lideranca) <- est1_murilo_x8_lideranca[1, ]
est1_murilo_x8_lideranca = est1_murilo_x8_lideranca[-1, ]

Fix 2 (Clean names)

est1_murilo_x8_lideranca <- janitor::clean_names(est1_murilo_x8_lideranca)

Fix 3 (get only focal variables)

est1_murilo_x8_lideranca <- est1_murilo_x8_lideranca %>% 
  select(5:9)

Fix 4 (Insert main name and specialist)

est1_murilo_x8_lideranca <- est1_murilo_x8_lideranca %>% 
  mutate(habilidade = "Liderança") %>% 
  mutate(specialist = "murilo") %>% 
  select(habilidade, specialist, everything())

Fix 5 (cerfify factor level)

est1_murilo_x8_lideranca <- est1_murilo_x8_lideranca %>% 
  mutate(across(starts_with("voce_julga"), as.numeric))

fix 6 (add item number)

Estamos assumindo que ninguém mudou a ordem das linhas

est1_murilo_x8_lideranca <- est1_murilo_x8_lideranca %>% 
  mutate(item_number = row_number())

Check

est1_murilo_x8_lideranca

Merge autoconhecimento

base_autoconhecimento <- bind_rows(
  est1_x1_autoconhecimento, #simone
  est1_olga_x1_autoconhecimento)

base_autoconhecimento <- bind_rows(base_autoconhecimento,
                                   est1_carmem_x1_autoconhecimento)

base_autoconhecimento <- bind_rows(base_autoconhecimento,
                                   est1_josi_x1_autoconhecimento)

base_autoconhecimento <- bind_rows(base_autoconhecimento,
                                   est1_murilo_x1_autoconhecimento)

Check

base_autoconhecimento %>% 
  arrange(item_number) %>%
  select(item_number, specialist, conteudo, everything()) %>% 
  utils::View(.)

Merge gestão de pensamento e emoções

base_gestao_do_pensamento_e_emocoe <- bind_rows(
  est1_x2_gestao_do_pensamento_e_emocoe, #simone
  est1_olga_x2_gestao_do_pensamento_e_emocoe)

base_gestao_do_pensamento_e_emocoe <- bind_rows(base_gestao_do_pensamento_e_emocoe,
                                   est1_carmem_x2_gestao_do_pensamento_e_emocoe)

base_gestao_do_pensamento_e_emocoe <- bind_rows(base_gestao_do_pensamento_e_emocoe,
                                   est1_josi_x2_gestao_do_pensamento_e_emocoe)

base_gestao_do_pensamento_e_emocoe <- bind_rows(base_gestao_do_pensamento_e_emocoe,
                                   est1_murilo_x2_gestao_do_pensamento_e_emocoe)

Check

base_gestao_do_pensamento_e_emocoe %>% 
  arrange(item_number) %>%
  select(item_number, specialist, conteudo, everything()) %>% 
  utils::View(.)

tomada de decisao responsavel

base_tomada_de_decisao_responsavel <- bind_rows(
  est1_x3_tomada_de_decisao_responsavel, #simone
  est1_olga_x3_tomada_de_decisao_responsavel)

base_tomada_de_decisao_responsavel <- bind_rows(base_tomada_de_decisao_responsavel,
                                   est1_carmem_x3_tomada_de_decisao_responsavel)

base_tomada_de_decisao_responsavel <- bind_rows(base_tomada_de_decisao_responsavel,
                                   est1_josi_x3_tomada_de_decisao_responsavel)

base_tomada_de_decisao_responsavel <- bind_rows(base_tomada_de_decisao_responsavel,
                                   est1_murilo_x3_tomada_de_decisao_responsavel)

Check

base_tomada_de_decisao_responsavel %>% 
  arrange(item_number) %>%
  select(item_number, specialist, conteudo, everything()) %>% 
  utils::View(.)

consciencia_social

base_consciencia_social <- bind_rows(
  est1_x4_consciencia_social, #simone
  est1_olga_x4_consciencia_social)

base_consciencia_social <- bind_rows(base_consciencia_social,
                                   est1_carmem_x4_consciencia_social)

base_consciencia_social <- bind_rows(base_consciencia_social,
                                   est1_josi_x4_consciencia_social)

base_consciencia_social <- bind_rows(base_consciencia_social,
                                   est1_murilo_x4_consciencia_social)

Check

base_consciencia_social %>% 
  arrange(item_number) %>%
  select(item_number, specialist, conteudo, everything()) %>% 
  utils::View(.)

#x5_relacionamento_interpessoal

base_relacionamento_interpessoal <- bind_rows(
  est1_x5_relacionamento_interpessoal, #simone
  est1_olga_x5_relacionamento_interpessoal)

base_relacionamento_interpessoal <- bind_rows(base_relacionamento_interpessoal,
                                   est1_carmem_x5_relacionamento_interpessoal)

base_relacionamento_interpessoal <- bind_rows(base_relacionamento_interpessoal,
                                   est1_josi_x5_relacionamento_interpessoal)

base_relacionamento_interpessoal <- bind_rows(base_relacionamento_interpessoal,
                                   est1_murilo_x5_relacionamento_interpessoal)

Check

base_relacionamento_interpessoal %>% 
  arrange(item_number) %>%
  select(item_number, specialist, conteudo, everything()) %>% 
  utils::View(.)

#x6_pensamento_criativo

base_pensamento_criativo <- bind_rows(
  est1_x6_pensamento_criativo, #simone
  est1_olga_x6_pensamento_criativo)

base_pensamento_criativo <- bind_rows(base_pensamento_criativo,
                                   est1_carmem_x6_pensamento_criativo)

base_pensamento_criativo <- bind_rows(base_pensamento_criativo,
                                   est1_josi_x6_pensamento_criativo)

base_pensamento_criativo <- bind_rows(base_pensamento_criativo,
                                   est1_murilo_x6_pensamento_criativo)

Check

base_pensamento_criativo %>% 
  arrange(item_number) %>%
  select(item_number, specialist, conteudo, everything()) %>% 
  utils::View(.)

#x7_determinacao

base_determinacao <- bind_rows(
  est1_x7_determinacao, #simone
  est1_olga_x7_determinacao)

base_determinacao <- bind_rows(base_determinacao,
                                   est1_carmem_x7_determinacao)

base_determinacao <- bind_rows(base_determinacao,
                                   est1_josi_x7_determinacao)

base_determinacao <- bind_rows(base_determinacao,
                                   est1_murilo_x7_determinacao)

Check

base_determinacao %>% 
  arrange(item_number) %>%
  select(item_number, specialist, conteudo, everything()) %>% 
  utils::View(.)

#x8 liderança

base_lideranca <- bind_rows(
  est1_x8_lideranca, #simone
  est1_olga_x8_lideranca)

base_lideranca <- bind_rows(base_lideranca,
                                   est1_carmem_x8_lideranca)

base_lideranca <- bind_rows(base_lideranca,
                                   est1_josi_x8_lideranca)

base_lideranca <- bind_rows(base_lideranca,
                                   est1_murilo_x8_lideranca)

Check

base_lideranca %>% 
  arrange(item_number) %>%
  select(item_number, specialist, conteudo, everything()) %>% 
  utils::View(.)

Apresentação dos resultados por cada competência

Competência 1 - Autoconhecimento

A seguir, a tabela apresenta todos os itens da competência Autoconheciemnto que tiveram uma média maior que 3 para clareza para criança e adolescente e pertinência

base_autoconhecimento %>% 
  group_by(item_number) %>% 
  summarise_at(vars(voce_julgas_que_este_item_e_claro_para_ser_entendido_por_uma_crianca:voce_julga_que_este_item_e_pertinente_para_medir_o_que_se_propoe_por_exemplo_autoconhecimento),
               ~mean(., na.rm=T)) %>% 
  rename(crianca = voce_julgas_que_este_item_e_claro_para_ser_entendido_por_uma_crianca) %>% 
  rename(adolescente = voce_julgas_que_este_item_e_claro_para_ser_entendido_por_um_adolescente) %>% 
  rename(pertinencia = voce_julga_que_este_item_e_pertinente_para_medir_o_que_se_propoe_por_exemplo_autoconhecimento) %>% 
  filter(crianca > 3 & adolescente > 3 & pertinencia > 3) %>% 
  left_join(., base_autoconhecimento %>% select(item_number, conteudo)) %>% 
  rownames_to_column("posicao") %>% 
  select(-posicao) %>% 
  distinct(., .keep_all = TRUE) %>% 
    DT::datatable()

Competência 2 - GESTÃO DO PENSAMENTO E EMOÇÕE

A seguir, a tabela apresenta todos os itens da competência GESTÃO DO PENSAMENTO E EMOÇÕE que tiveram uma média maior que 3 para clareza para criança e adolescente e pertinência

base_gestao_do_pensamento_e_emocoe %>% 
  group_by(item_number) %>% 
  summarise_at(vars(voce_julgas_que_este_item_e_claro_para_ser_entendido_por_uma_crianca:voce_julga_que_este_item_e_pertinente_para_medir_o_que_se_propoe_por_exemplo_gestao_do_pensamento_e_emocoes),
               ~mean(., na.rm=T)) %>% 
  rename(crianca = voce_julgas_que_este_item_e_claro_para_ser_entendido_por_uma_crianca) %>% 
  rename(adolescente = voce_julgas_que_este_item_e_claro_para_ser_entendido_por_um_adolescente) %>% 
  rename(pertinencia = voce_julga_que_este_item_e_pertinente_para_medir_o_que_se_propoe_por_exemplo_gestao_do_pensamento_e_emocoes) %>% 
  filter(crianca > 3 & adolescente > 3 & pertinencia > 3) %>% 
  left_join(., base_gestao_do_pensamento_e_emocoe %>% select(item_number, conteudo)) %>% 
  rownames_to_column("posicao") %>% 
  select(-posicao) %>% 
  distinct(., .keep_all = TRUE) %>% 
    DT::datatable()

Competência 3 - TOMADA DE DECISÃO RESPONSÁVEL

A seguir, a tabela apresenta todos os itens da competência TOMADA DE DECISÃO RESPONSÁVEL que tiveram uma média maior que 3 para clareza para criança e adolescente e pertinência

base_tomada_de_decisao_responsavel %>% 
  group_by(item_number) %>% 
  summarise_at(vars(voce_julgas_que_este_item_e_claro_para_ser_entendido_por_uma_crianca:voce_julga_que_este_item_e_pertinente_para_medir_o_que_se_propoe_por_exemplo_tomada_de_decisao_responsavel),
               ~mean(., na.rm=T)) %>% 
  rename(crianca = voce_julgas_que_este_item_e_claro_para_ser_entendido_por_uma_crianca) %>% 
  rename(adolescente = voce_julgas_que_este_item_e_claro_para_ser_entendido_por_um_adolescente) %>% 
  rename(pertinencia = voce_julga_que_este_item_e_pertinente_para_medir_o_que_se_propoe_por_exemplo_tomada_de_decisao_responsavel) %>% 
  filter(crianca > 3 & adolescente > 3 & pertinencia > 3) %>% 
  left_join(., base_tomada_de_decisao_responsavel %>% select(item_number, conteudo)) %>% 
  rownames_to_column("posicao") %>% 
  select(-posicao) %>% 
  distinct(., .keep_all = TRUE) %>% 
    DT::datatable()

Competência 4 - CONSCIÊNCIA SOCIAL

A seguir, a tabela apresenta todos os itens da competência CONSCIÊNCIA SOCIAL que tiveram uma média maior que 3 para clareza para criança e adolescente e pertinência

base_consciencia_social %>% 
  group_by(item_number) %>% 
  summarise_at(vars(voce_julgas_que_este_item_e_claro_para_ser_entendido_por_uma_crianca:voce_julga_que_este_item_e_pertinente_para_medir_o_que_se_propoe_por_exemplo_consciencia_social),
               ~mean(., na.rm=T)) %>% 
  rename(crianca = voce_julgas_que_este_item_e_claro_para_ser_entendido_por_uma_crianca) %>% 
  rename(adolescente = voce_julgas_que_este_item_e_claro_para_ser_entendido_por_um_adolescente) %>% 
  rename(pertinencia = voce_julga_que_este_item_e_pertinente_para_medir_o_que_se_propoe_por_exemplo_consciencia_social) %>% 
  filter(crianca > 3 & adolescente > 3 & pertinencia > 3) %>% 
  left_join(., base_consciencia_social %>% select(item_number, conteudo)) %>% 
  rownames_to_column("posicao") %>% 
  select(-posicao) %>% 
  distinct(., .keep_all = TRUE) %>% 
    DT::datatable()

Competência 5 - RELACIONAMENTO INTERPESSOAL

A seguir, a tabela apresenta todos os itens da competência RELACIONAMENTO INTERPESSOAL que tiveram uma média maior que 3 para clareza para criança e adolescente e pertinência

base_relacionamento_interpessoal %>% 
  group_by(item_number) %>% 
  summarise_at(vars(voce_julgas_que_este_item_e_claro_para_ser_entendido_por_uma_crianca:voce_julga_que_este_item_e_pertinente_para_medir_o_que_se_propoe_por_exemplo_relacionamento_interpessoal),
               ~mean(., na.rm=T)) %>% 
  rename(crianca = voce_julgas_que_este_item_e_claro_para_ser_entendido_por_uma_crianca) %>% 
  rename(adolescente = voce_julgas_que_este_item_e_claro_para_ser_entendido_por_um_adolescente) %>% 
  rename(pertinencia = voce_julga_que_este_item_e_pertinente_para_medir_o_que_se_propoe_por_exemplo_relacionamento_interpessoal) %>% 
  filter(crianca > 3 & adolescente > 3 & pertinencia > 3) %>% 
  left_join(., base_relacionamento_interpessoal %>% select(item_number, conteudo)) %>% 
  rownames_to_column("posicao") %>% 
  select(-posicao) %>% 
  distinct(., .keep_all = TRUE) %>% 
    DT::datatable()

Competência 6 - PENSAMENTO CRIATIVO

A seguir, a tabela apresenta todos os itens da competência PENSAMENTO CRIATIVO que tiveram uma média maior que 3 para clareza para criança e adolescente e pertinência

base_pensamento_criativo %>% 
  group_by(item_number) %>% 
  summarise_at(vars(voce_julgas_que_este_item_e_claro_para_ser_entendido_por_uma_crianca:voce_julga_que_este_item_e_pertinente_para_medir_o_que_se_propoe_por_exemplo_pensamento_criativo),
               ~mean(., na.rm=T)) %>% 
  rename(crianca = voce_julgas_que_este_item_e_claro_para_ser_entendido_por_uma_crianca) %>% 
  rename(adolescente = voce_julgas_que_este_item_e_claro_para_ser_entendido_por_um_adolescente) %>% 
  rename(pertinencia = voce_julga_que_este_item_e_pertinente_para_medir_o_que_se_propoe_por_exemplo_pensamento_criativo) %>% 
  filter(crianca > 3 & adolescente > 3 & pertinencia > 3) %>% 
  left_join(., base_pensamento_criativo %>% select(item_number, conteudo)) %>% 
  rownames_to_column("posicao") %>% 
  select(-posicao) %>% 
  distinct(., .keep_all = TRUE) %>% 
    DT::datatable()

Competência 7 - DETERMINAÇÃO

A seguir, a tabela apresenta todos os itens da competência DETERMINAÇÃO que tiveram uma média maior que 3 para clareza para criança e adolescente e pertinência

base_determinacao %>% 
  group_by(item_number) %>% 
  summarise_at(vars(voce_julgas_que_este_item_e_claro_para_ser_entendido_por_uma_crianca:voce_julga_que_este_item_e_pertinente_para_medir_o_que_se_propoe_por_exemplo_determinacao),
               ~mean(., na.rm=T)) %>% 
  rename(crianca = voce_julgas_que_este_item_e_claro_para_ser_entendido_por_uma_crianca) %>% 
  rename(adolescente = voce_julgas_que_este_item_e_claro_para_ser_entendido_por_um_adolescente) %>% 
  rename(pertinencia = voce_julga_que_este_item_e_pertinente_para_medir_o_que_se_propoe_por_exemplo_determinacao) %>% 
  filter(crianca > 3 & adolescente > 3 & pertinencia > 3) %>% 
  left_join(., base_determinacao %>% select(item_number, conteudo)) %>% 
  rownames_to_column("posicao") %>% 
  select(-posicao) %>% 
  distinct(., .keep_all = TRUE) %>% 
    DT::datatable()

Competência 8 - LIDERANÇA

A seguir, a tabela apresenta todos os itens da competência LIDERANÇA que tiveram uma média maior que 3 para clareza para criança e adolescente e pertinência

base_lideranca %>% 
  group_by(item_number) %>% 
  summarise_at(vars(voce_julgas_que_este_item_e_claro_para_ser_entendido_por_uma_crianca:voce_julga_que_este_item_e_pertinente_para_medir_o_que_se_propoe_por_exemplo_lideranca),
               ~mean(., na.rm=T)) %>% 
  rename(crianca = voce_julgas_que_este_item_e_claro_para_ser_entendido_por_uma_crianca) %>% 
  rename(adolescente = voce_julgas_que_este_item_e_claro_para_ser_entendido_por_um_adolescente) %>% 
  rename(pertinencia = voce_julga_que_este_item_e_pertinente_para_medir_o_que_se_propoe_por_exemplo_lideranca) %>% 
  filter(crianca > 3 & adolescente > 3 & pertinencia > 3) %>% 
  left_join(., base_lideranca %>% select(item_number, conteudo)) %>% 
  rownames_to_column("posicao") %>% 
  select(-posicao) %>% 
  distinct(., .keep_all = TRUE) %>% 
    DT::datatable()