Escola da Inteligência

1 Relatório criado por

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

3 Não é permitido reproduzir sem autorização

pacman::p_load(tidyverse)

4 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/luisf/Desktop/Matriz de competências - Itens para professores - versao luis - respostas Simone (1).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)

4.1 Fix 1 (row names to columns)

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

4.2 Fix 2 (Clean names)

est1_x1_autoconhecimento <- janitor::clean_names(est1_x1_autoconhecimento)

4.3 Fix 3 (get only focal variables)

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

4.4 Fix 4 (Insert main name and specialist)

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

4.5 Fix 5 (cerfify factor level)

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

5 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())

5.1 Check

est1_x1_autoconhecimento

6 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/luisf/Desktop/Matriz de competências - Itens para professores - versao luis (1) - 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)

6.1 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, ]

6.2 Fix 2 (Clean names)

est1_olga_x1_autoconhecimento <- janitor::clean_names(est1_olga_x1_autoconhecimento)

6.3 Fix 3 (get only focal variables)

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

6.4 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())

6.5 Fix 5 (cerfify factor level)

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

7 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())

7.1 Check

est1_olga_x1_autoconhecimento

8 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/luisf/Desktop/Matriz de competências - Itens para professores - versao carmen (1).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)

8.1 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, ]

8.2 Fix 2 (Clean names)

est1_carmem_x1_autoconhecimento <- janitor::clean_names(est1_carmem_x1_autoconhecimento)

8.3 Fix 3 (get only focal variables)

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

8.4 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())

8.5 Fix 5 (cerfify factor level)

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

9 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())

9.1 Check

est1_carmem_x1_autoconhecimento

10 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/luisf/Desktop/Matriz de competências - Itens para professores - versao luis (2) 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)

10.1 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, ]

10.2 Fix 2 (Clean names)

est1_josi_x1_autoconhecimento <- janitor::clean_names(est1_josi_x1_autoconhecimento)

10.3 Fix 3 (get only focal variables)

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

10.4 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())

10.5 Fix 5 (cerfify factor level)

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

11 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())

11.1 Check

est1_josi_x1_autoconhecimento

12 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/luisf/Desktop/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)

12.1 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, ]

12.2 Fix 2 (Clean names)

est1_murilo_x1_autoconhecimento <- janitor::clean_names(est1_murilo_x1_autoconhecimento)

12.3 Fix 3 (get only focal variables)

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

12.4 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())

12.5 Fix 5 (cerfify factor level)

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

13 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())

13.1 Check

est1_murilo_x1_autoconhecimento

14 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)

14.1 Check

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

14.2 Média da clareza para Criança

mean(base_autoconhecimento$voce_julgas_que_este_item_e_claro_para_ser_entendido_por_uma_crianca, na.rm=T)

[1] 3.784969

14.3 Média da clareza para Adolescente

mean(base_autoconhecimento$voce_julgas_que_este_item_e_claro_para_ser_entendido_por_um_adolescente, na.rm=T)

[1] 4.649269

14.4 Média da pertinencia

mean(base_autoconhecimento$voce_julga_que_este_item_e_pertinente_para_medir_o_que_se_propoe_por_exemplo_autoconhecimento, na.rm=T)

[1] 4.206681

15 Resultado Geral

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) %>% 
  arrange(desc(crianca)) %>% 
  #left_join(., base_autoconhecimento %>% select(item_number, conteudo)) %>% 
  #rownames_to_column("posicao") %>% 
  #select(-posicao) %>% 
  #distinct(., .keep_all = TRUE) %>% 
    DT::datatable()

16 Resultado Media 3

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()

17 Resultado Media 3 com conteudo

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()

Joining, by = "item_number"

18 Criancas! Resultado Media 3 para crianca e pertinencia 3

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 & pertinencia > 3) %>% 
  left_join(., base_autoconhecimento %>% select(item_number, conteudo)) %>% 
  rownames_to_column("posicao") %>% 
  select(-posicao) %>% 
  distinct(., .keep_all = TRUE) %>% 
  select(-adolescente) %>% 
    DT::datatable()

Joining, by = "item_number"

19 Adolescentes! Resultado Media 3 para adolescentes e pertinencia 3

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(adolescente > 3 & pertinencia > 3) %>% 
  left_join(., base_autoconhecimento %>% select(item_number, conteudo)) %>% 
  rownames_to_column("posicao") %>% 
  select(-posicao) %>% 
  distinct(., .keep_all = TRUE) %>% 
  select(-crianca) %>% 
    DT::datatable()

Joining, by = "item_number"

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(.)) %>% 
  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) %>% 
  pivot_longer(item_number) %>% 
  ggplot(., aes(x = fct_inorder(factor(value), crianca), y = crianca)) +
  geom_bar(stat = "summary") + 
  coord_flip()