Curso Intermediário:Módulo 3

df= read.csv("Respostas_alunos.csv")

# limpando os dados

df= df[,-1]

colnames(df)= c("Q1","Q2","Q3")

df_backup= df

#df = df_backup

df= lapply(df,function(x) gsub("\\bDiscordo totalmente\\b","1",x))

df= lapply(df,function(x) gsub("\\bDiscordo\\b","2",x))

df= lapply(df,function(x) gsub("\\bNeutro\\b","3",x))

df= lapply(df,function(x) gsub("\\bConcordo totalmente\\b","5",x))

df= lapply(df,function(x) gsub("\\bConcordo\\b","4",x))

df

df= lapply(df,as.numeric)

df

str(df)

df= as.data.frame(df)

df

str(df)

#install.packages("likert")

library(likert)

?likert

str(df)

View(df)

df$Q1= factor(df$Q1, levels=c("1","2","3","4","5"), ordered=TRUE)

df$Q2= factor(df$Q2, levels=c("1","2","3","4","5"), ordered=TRUE)

df$Q3= factor(df$Q3, levels=c("1","2","3","4","5"), ordered=TRUE)

str(df)

Result<-likert(df)

Result

plot(Result)

# segunda forma

df$Q1= factor(df$Q1, levels=c("1","2","3","4","5"), ordered=TRUE)

Result<-likert(df)

Result

plot(Result)

# Terceira forma

aluno1 = c("DT","D","C")

aluno2 = c("DT","D","C")

aluno3 = c("CT","N","C")

aluno4 = c("D","D","N")

aluno5 = c("C","CT","DT")

alunos= rbind(aluno1,aluno2,aluno3,aluno4,aluno5)

df2= data.frame(alunos)

colnames(df2)= c("Q1","Q2","Q3")

df2

df2$Q1= factor(df2$Q1, levels=c("DT","D","N","C","CT"), ordered=TRUE)

df2$Q2= factor(df2$Q2, levels=c("DT","D","N","C","CT"), ordered=TRUE)

df2$Q3= factor(df2$Q2, levels=c("DT","D","N","C","CT"), ordered=TRUE)

str(df2)

Result<-likert(df2)

Result

plot(Result)

# Pacote GetLattes ( Author: Marcelo Perlin)

## Este pacote trabalha direto com arquivo xml extraido do Lattes

# Sugestao

# https://cran.r-project.org/web/packages/GetLattesData/vignettes/gld_vignette-ReadLattes.html

#install.packages("getLattes")

library(getLattes)

# importando arquivo

cv1 = gld_get_lattes_data_from_zip("arantes.zip", field.qualis = NULL)

curriculo <- xml2::read_xml('arantes.zip')

# visitando as funcoes do pacote

??getLattes

dados= getDadosGerais(curriculo)

artigos=getArtigosPublicados(curriculo)

areas = getAreasAtuacao(curriculo)

atuacoes= getAtuacoesProfissionais(curriculo)

bancas.doutorado = getBancasDoutorado(curriculo)

bancas.graducao = getBancasGraduacao(curriculo)

bancas.mestrado = getBancasMestrado(curriculo)

cap.livros= getCapitulosLivros(curriculo)

endereco = getEnderecoProfissional(curriculo)

eventos= getEventosCongressos(curriculo)

doutorado= getFormacaoDoutorado(curriculo)

mestrado =getFormacaoMestrado(curriculo)

graduacao = getFormacaoGraduacao(curriculo)

idiomas =getIdiomas(curriculo)

pesquisa=getLinhaPesquisa(curriculo)

livros=getLivrosPublicados(curriculo)

eventos =getOrganizacaoEventos(curriculo)

orientacoes.doutorado = getOrientacoesDoutorado(curriculo)

orientacoes.mestrado =getOrientacoesMestrado(curriculo)

orientacoes.posdoc = getOrientacoesPosDoutorado(curriculo)

producoes.tecnicas = getOutrasProducoesTecnicas(curriculo)

part.projetos=getParticipacaoProjeto(curriculo)

producao.tecnica = getProducaoTecnica(curriculo)

id =getId(curriculo)

# acessando informacoes sobre artigos publicados

artigos.publicados=getArtigosPublicados(curriculo)

autores= artigos.publicados$autores

# NAO DA PARA CONVERTER DIRETO, UMA LISTA DE TAMANHO VARIAVEL EM DATA FRAME!

autores.df= data.frame(autores)

autores.df = as.data.frame(autores)

# CONSULTANDO A LISTA UM A UM

artigo1.autores= autores[[1]]

artigo2.autores= autores[[2]]

# cria data frame dos coautores 

artigos.publicados=getArtigosPublicados(curriculo)

autores=     artigos.publicados$autores

nome.artigo= artigos.publicados$titulo_do_artigo

autores[[1]][1]

autores[[2]][1]

tamanho = length(autores)

# extrai apenas os nomes dos autores da lista, criando lista de nomes do autore 

nomes.autores = 0

for (i in 1:tamanho){

  nomes.autores[i] = autores[[i]][1]

}

nomes.autores

lista = nomes.autores

str(lista)

# transforma a lista em uma matriz

matriz =stri_list2matrix(lista, byrow=TRUE)

matriz

# transforma a matriz em um data frame

df= data.frame(matriz)

# coleta a informacao do nome do artigo

df$Artigos = nome.artigo

str(df)

# colocando tudo em mainuscula

library(dplyr)

#df= df %>% mutate(., across(.cols = everything(), toupper))

df= mutate(df, across(.cols = everything(), toupper))

colnames(df)=c("1_autor","2_autor","3_autor","4_autor","Artigo")

df= df[,c(5,1,2,3,4)]

colnames(df)

str(df)

View(df)