R Notebook - CVC EI

pacman::p_load(tidyverse,readxl, janitor)

#rm(list=ls())

1 Get files (Pertinencia)

path = "C:/Users/luisf/Dropbox/Puc-Rio/Projeto - Escola da Inteligencia/Projeto Iniciado em 2021/Fase 1 - Construcao de itens/Coeficiente de validade de conteudo/pertinência/"
files  = list.files(path=path,
               pattern = "*.xlsx")


for(file in files) {
  perpos <- which(strsplit(file, "")[[1]]==".")
  assign(
    gsub(" ","",substr(file, 1, perpos-1)), 
    read_xlsx(paste(path,file,sep="")))
}
#temp = list.files(path = "C:/Users/luisf/Dropbox/Puc-Rio/Projeto - Escola da Inteligencia/Projeto Iniciado em 2021/Fase 1 - Construcao de itens/Coeficiente de validade de conteudo/pertinência/",
#               pattern = "*.xlsx", 
#               full.names = T)
#list2env(
#  lapply(setNames(temp, make.names(gsub("*.xlsx$", "", temp))), 
#         read_xlsx), envir = .GlobalEnv)
#https://stackoverflow.com/questions/11433432/how-to-import-multiple-csv-files-at-once

2 Get files (Clareza)

path = "C:/Users/luisf/Dropbox/Puc-Rio/Projeto - Escola da Inteligencia/Projeto Iniciado em 2021/Fase 1 - Construcao de itens/Coeficiente de validade de conteudo/clareza/"
files  = list.files(path=path,
               pattern = "*.xlsx")

for(file in files) {
  perpos <- which(strsplit(file, "")[[1]]==".")
  assign(
    gsub(" ","",substr(file, 1, perpos-1)), 
    read_xlsx(paste(path,file,sep="")))
}

3 Fix environment

for(nm in ls()) {
  .tmp <- get(nm, .GlobalEnv)
  if (is.data.frame(.tmp)) {
    rm(list = nm)
    assign(tolower(paste0("ds_",iconv(nm, to = "ASCII//TRANSLIT"))), .tmp, .GlobalEnv)
  }
  rm(.tmp)
}
rm(nm)

ls()

 [1] "ds_01_clareza-autoconhecimento"                    "ds_01_pertinencia-autoconhecimento"               
 [3] "ds_02_clareza-gpe"                                 "ds_02_pertinencia-gestaopensamentoeemocoes"       
 [5] "ds_03_clareza-tomadadedecisaodoresponsavel"        "ds_03_pertinencia-tomadadedecisaodoresponsavelmod"
 [7] "ds_04_clareza-conscienciasocial"                   "ds_04_pertinencia-conscienciasocial"              
 [9] "ds_05_clareza-relacionamentointerpessoal"          "ds_05_pertinencia-relacionamentointerpessoalmod"  
[11] "ds_06_clareza-pensamentocriativo"                  "ds_06_pertinencia-pensamentocriativo"             
[13] "ds_07_clareza-determinacao"                        "ds_07_pertinencia-determinacao"                   
[15] "ds_08_clareza-lideranca"                           "ds_08_pertinencia-lideranca"                      
[17] "file"                                              "files"                                            
[19] "path"                                              "perpos"                                           

3.1 Functions

3.2 Get base with content

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

excel_list <- read_excel_allsheets("C:/Users/luisf/Dropbox/Puc-Rio/Projeto - Escola da Inteligencia/Projeto Iniciado em 2021/Fase 1 - Construcao de itens/Coeficiente de validade de conteudo/itens_conteúdo_separado.xlsx")

list2env(setNames(excel_list, #list
                  paste0("ds_conteudo_",janitor::make_clean_names(names(excel_list)))),  
         envir=.GlobalEnv) 

3.2.1 Get ds and compute CVC CLAREZA

ajuste_cvc_clareza <- function(ds, custom_name) {

    #clean
  ds <- janitor::clean_names(ds)
  ds <- janitor::remove_empty(ds)
  
  #base criancas
  ds_c <- ds %>% select(ends_with("c"))
  juizes <- nrow(ds)
  
  #cvc criancas
  ds_c <- ds_c %>% 
    mutate(juiz = row_number()) %>% 
    summarise(across(where(is.numeric), ~ mean(.x))) %>% #medias
    t %>% 
    as.data.frame() %>% #turn on ds
    mutate(juizes = juizes) %>%  # how many specialists
    mutate(pei = (1/juizes)^juizes) %>%  #pei (constant)
    mutate(cvc = V1/5 - pei) %>%  #cvc
    rename(media=V1) %>% 
    rownames_to_column("item") %>% 
    mutate(item_number = as.numeric(gsub("\\D", "", item))) %>% 
    mutate(publico = "crianca") %>% 
    select(item, item_number, everything())

  #base pais
  ds_p <- ds %>% select(ends_with("p"))
  juizes <- nrow(ds_p)
  #cvc criancas
  ds_p <- ds_p %>% 
    mutate(juiz = row_number()) %>% 
    summarise(across(where(is.numeric), ~ mean(.x))) %>% #medias
    t %>% 
    as.data.frame() %>% #turn on ds
    mutate(juizes = juizes) %>%  # how many specialists
    mutate(pei = (1/juizes)^juizes) %>%  #pei (constant)
    mutate(cvc = V1/5 - pei) %>%  #cvc
    rename(media=V1) %>% 
    rownames_to_column("item") %>% 
    mutate(item_number = as.numeric(gsub("\\D", "", item))) %>% 
    mutate(publico = "pais") %>%     
    select(item, item_number, everything())
  
  #base professores
  ds_prof <- ds %>% select(ends_with("prof"))
  juizes <- nrow(ds_prof)
  #cvc criancas
  ds_prof <- ds_prof %>% 
    mutate(juiz = row_number()) %>% 
    summarise(across(where(is.numeric), ~ mean(.x))) %>% #medias
    t %>% 
    as.data.frame() %>% #turn on ds
    mutate(juizes = juizes) %>%  # how many specialists
    mutate(pei = (1/juizes)^juizes) %>%  #pei (constant)
    mutate(cvc = V1/5 - pei) %>%  #cvc
    rename(media=V1) %>% 
    rownames_to_column("item") %>% 
    mutate(item_number = as.numeric(gsub("\\D", "", item))) %>% 
    mutate(publico = "professores") %>% 
    select(item, item_number, everything())
  
  #merge all ds
  
  x<-left_join(ds_c, ds_p, by = "item_number")
  x<-left_join(x, ds_prof, by = "item_number")
  x <- x %>% rename(cvc_c=cvc.x, cvc_p=cvc.y, cvc_prof=cvc)
  x <- x %>% select(item, item_number, contains("cvc"))

  #global objects
  j <- assign(paste0("cvc_", custom_name), 
         x, 
         envir = .GlobalEnv)
  
  return(j)
}

3.2.2 Get ds and compute CVC PERTINENCIA

ajuste_cvc_pertinencia <- function(ds, custom_name) {

  #clean
  ds <- janitor::clean_names(ds)
  ds <- janitor::remove_empty(ds)
  
  #base criancas
  ds_c <- ds %>% select(ends_with("c"))
  juizes <- nrow(ds)
  
  #cvc criancas
  ds_c <- ds_c %>% 
    mutate(juiz = row_number()) %>% 
    summarise(across(where(is.numeric), ~ mean(.x))) %>% #medias
    t %>% 
    as.data.frame() %>% #turn on ds
    mutate(juizes = juizes) %>%  # how many specialists
    mutate(pei = (1/juizes)^juizes) %>%  #pei (constant)
    mutate(cvc = V1/5 - pei) %>%  #cvc
    rename(media=V1) %>% 
    rownames_to_column("item") %>% 
    mutate(item_number = as.numeric(gsub("\\D", "", item))) %>% 
    mutate(publico = "crianca") %>% 
    select(item, item_number, everything())
  
    #global objects
  j <- assign(paste0("cvc_", custom_name), 
         ds_c, 
         envir = .GlobalEnv)
  
  return(j) 
}

3.2.3 Def

criterio_crianca <- 0.7
criterio_pais <-  0.7
criterio_prof <-  0.7
criterio_pertinencia <-  0.7

3.3 Get content

#limpeza dos dados
ds_conteudo_autoconhecimento <- clean_names(ds_conteudo_autoconhecimento)

Error in clean_names(ds_conteudo_autoconhecimento) : 
  object 'ds_conteudo_autoconhecimento' not found

4 1 Autoconhecimento

4.1 Merge

5 2 Gestao pensamento

5.1 Merge

6 3 Tomada de decisao responsavel

ajuste_cvc_clareza(ds = `ds_03_clareza-tomadadedecisaodoresponsavel`, "clareza_tdr")

value for "which" not specified, defaulting to c("rows", "cols")

ajuste_cvc_pertinencia(ds = `ds_03_pertinencia-tomadadedecisaodoresponsavelmod`, "pertinencia_tdr")

value for "which" not specified, defaulting to c("rows", "cols")

6.1 Merge

7 4 Consciência social

ajuste_cvc_clareza(ds = `ds_04_clareza-conscienciasocial`, "clareza_consciencia")

value for "which" not specified, defaulting to c("rows", "cols")

ajuste_cvc_pertinencia(ds = `ds_04_pertinencia-conscienciasocial`, "pertinencia_consciencia")

value for "which" not specified, defaulting to c("rows", "cols")

7.1 Merge

8 5 Relacionamento interpessoal

ajuste_cvc_clareza(ds = `ds_05_clareza-relacionamentointerpessoal`, "clareza_relac")

value for "which" not specified, defaulting to c("rows", "cols")

ajuste_cvc_pertinencia(ds = `ds_05_pertinencia-relacionamentointerpessoalmod`, "pertinencia_relac")

value for "which" not specified, defaulting to c("rows", "cols")

8.1 Merge

9 6 Pensamento criativo

ajuste_cvc_clareza(ds = `ds_06_clareza-pensamentocriativo`, "clareza_pensecr")

value for "which" not specified, defaulting to c("rows", "cols")

ajuste_cvc_pertinencia(ds = `ds_06_pertinencia-pensamentocriativo`, "pertinencia_pensecr")

value for "which" not specified, defaulting to c("rows", "cols")

9.1 Merge

10 7 Determinação

ajuste_cvc_clareza(ds = `ds_07_clareza-determinacao`, "clareza_det")

value for "which" not specified, defaulting to c("rows", "cols")

ajuste_cvc_pertinencia(ds = `ds_07_pertinencia-determinacao`, "pertinencia_det")

value for "which" not specified, defaulting to c("rows", "cols")

10.1 Merge

11 8 Liderança

ajuste_cvc_clareza(ds = `ds_08_clareza-lideranca`, "clareza_lid")

value for "which" not specified, defaulting to c("rows", "cols")

ajuste_cvc_pertinencia(ds = `ds_08_pertinencia-lideranca`, "pertinencia_lid")

value for "which" not specified, defaulting to c("rows", "cols")

11.1 Merge

11.2 Função loss

x<-  bind_rows(cvc_autoconhecimento %>% mutate(teste = "autoconhecimento"),
               cvc_gpe %>% mutate(teste = "gpe"),
               cvc_tdr %>% mutate(teste = "tdr"),
               cvc_consciencia %>% mutate(teste = "consciencia"), 
               cvc_relac %>% mutate(teste = "relacionamento"),
               cvc_pensecr %>% mutate(teste = "pensamento criativo"),
               cvc_det %>% mutate(teste = "determinacao"),
               cvc_lid %>% mutate(teste = "lideranca"))

x %>% count(teste)

`ds_02_pertinencia-gestaopensamentoeemocoes` %>% select(ends_with("c")) %>% 
  t

           [,1] [,2] [,3] [,4] [,5] [,6]
emocao_1c     4    4    5    5    4    5
emocao_2c     3    5    5    5    4    5
emocao_3c     4    5    5    5    4    5
emocao_4c     4    5    5    5    5    5
emocao_5c     4    5    3    4    4    5
emocao_6c     3    4    5    4    4    5
emocao_7c     4    5    3    4    5    5
emocao_8c     4    5    5    5    5    5
emocao_9c     4    5    5    5    5    5
emocao_10c    4    5    5    5    4    5
emocao_11c    3    3    3    5    2    5
emocao_12c    4    5    5    4    5    5
emocao_13c    4    4    5    5    5    5
emocao_14c    4    5    5    5    2    5
emocao_15c    3    5    5    5    4    5
emocao_16c    4    5    3    5    4    5
emocao_17c    4    5    3    5    5    5
emocao_18c    4    5    5    4    5    5
emocao_19c    5    5    5    5    5    5
emocao_20c    4    5    5    5    3    5
emocao_21c    4    5    5    5    4    5
emocao_22c    4    5    5    5    5    5
emocao_23c    5    4    5    5    5    5
emocao_24c    5    5    3    5    5    5
emocao_25c    5    4    3    5    5    5
emocao_26c    5    4    5    5    5    5
emocao_27c    5    4    5    5    5    5
emocao_28c    4    3    5    5    3    5
emocao_29c    2    3    1    5    2    5
emocao_30c    4    5    5    5    5    5
emocao_31c    3    4    2    5    4    5
emocao_32c    3    4    5    5    2    5
emocao_33c    4    5    5    5    4    2
emocao_34c    4    5    3    5    5    5
emocao_35c    5    5    5    5    5    5
emocao_36c    5    5    5    5    5    3
emocao_37c    5    4    5    5    5    5
emocao_38c    5    4    5    5    5    5
emocao_39c    4    4    4    4    4    5
emocao_40c    5    5    4    5    5    5
emocao_41c    3    4    5    5    3    5
emocao_42c    5    5    5    5    5    5
emocao_43c    5    4    3    5    5    5
emocao_44c    5    5    5    5    4    5
emocao_45c    5    4    5    5    3    5
emocao_46c    3    3    4    5    2    5
emocao_47c    4    5    5    5    5    5
emocao_48c    5    4    5    5    5    5
emocao_49c    5    5    5    5    5    5
emocao_50c    5    5    5    5    5    5
emocao_51c    5    5    3    5    5    5
emocao_52c    3    5    5    5    3    5
emocao_53c    5    4    3    5    5    5
emocao_54c    5    5    3    5    5    5