Tabela para grafico de correlações Interface

US12-TabelaIntercorrelacaoVariaveisIndependentes.R

@@ -0,0 +1,68 @@
+#Script que calcula a correlcao das variaveis
+# Versao 1.0 - Andrey Mezes
+# Versao 1.1 - Iara Ribeiro (Adicionando o calculo para as variaveis na aula e fora de aula.)
+
+tabela1 = read.csv("dados/TabelaParaPerfis.csv")
+tabela2 = read.csv("dados/TableSessionLengthEmAula.csv")
+tabela3 = read.csv("dados/submissoes_corretas_tempo_aula.csv")
+tabela4 = read.csv("dados/Geral.csv")
+
+tabela4 = tabela4[,c("matricula", "nota.final.pratica")]
+tabela1 = tabela1[,-3]
+tabela2 = with(tabela2,aggregate(session,list(matricula),FUN=max))
+colnames(tabela2) = c("matricula", "numeroSessoes")
+
+tabela3.calculos1 = with(tabela3,aggregate(amountSubmission,list(matricula),FUN=sum))
+colnames(tabela3.calculos1) = c("matricula", "amountSubmission")
+tabela3.calculos2 = with(tabela3,aggregate(correct.submissions,list(matricula),FUN=sum))
+colnames(tabela3.calculos2) = c("matricula", "correctSubmissions")
+tabela3 = merge(tabela3.calculos1,tabela3.calculos2,by.x="matricula",by.y="matricula")
+tabela3$ProporcaoSubCorretas = tabela3$correctSubmissions/tabela3$amountSubmission
+
+tabelaCompleta = merge(tabela1,tabela2,by.x="matricula",by.y="matricula")
+tabelaCompleta = merge(tabelaCompleta,tabela3,by.x="matricula",by.y="matricula")
+tabelaCompleta = merge(tabelaCompleta,tabela4,by.x="matricula",by.y="matricula")
+
+colnames(tabelaCompleta) = c("matricula","Mediana Sessao","Numero Exercicios","Tempo Total Estudo","Atividade","Numero Sessoes","Total Submissoes","Submissoes Corretas","Proporcao Submissoes Corretas","Nota Final")
+
+tabelaCorrelacao = cor(tabelaCompleta[,-1], use="complete.obs", method=c("spearman"))
+
+write.csv(tabelaCorrelacao, "TabelaIntercorrelacaoEmAula.csv")
+
+geraGrafico <- function(tabela, variavel1, variavel2) {
+  grafico <- ggplot(tabela,aes(variavel1, variavel2)) + 
+    geom_point() + geom_smooth(method=lm,se=FALSE) + theme_bw() +
+    scale_x_log10() + scale_y_log10() + labs(x="(log)",y="(log)")
+  return(grafico)
+}
+
+print(geraGrafico(tabelaCompleta, tabelaCompleta[, 2], tabelaCompleta[, 6]))
+
+#Fora de aula
+
+tabela1 = read.csv("TabelaParaPerfis.csv")
+tabela2 = read.csv("TableSessionLengthForadeAula.csv")
+tabela3 = read.csv("submissoes_corretas_tempo_fora_aula.csv")
+tabela4 = read.csv("Geral.csv")
+
+tabela4 = tabela4[,c("matricula", "nota.final.pratica")]
+tabela1 = tabela1[,-3]
+tabela2 = with(tabela2,aggregate(session,list(matricula),FUN=max))
+colnames(tabela2) = c("matricula", "numeroSessoes")
+
+tabela3.calculos1 = with(tabela3,aggregate(amountSubmission,list(matricula),FUN=sum))
+colnames(tabela3.calculos1) = c("matricula", "amountSubmission")
+tabela3.calculos2 = with(tabela3,aggregate(correct.submissions,list(matricula),FUN=sum))
+colnames(tabela3.calculos2) = c("matricula", "correctSubmissions")
+tabela3 = merge(tabela3.calculos1,tabela3.calculos2,by.x="matricula",by.y="matricula")
+tabela3$ProporcaoSubCorretas = tabela3$correctSubmissions/tabela3$amountSubmission
+
+tabelaCompleta = merge(tabela1,tabela2,by.x="matricula",by.y="matricula")
+tabelaCompleta = merge(tabelaCompleta,tabela3,by.x="matricula",by.y="matricula")
+tabelaCompleta = merge(tabelaCompleta,tabela4,by.x="matricula",by.y="matricula")
+
+colnames(tabelaCompleta) = c("matricula","Mediana Sessao","Numero Exercicios","Tempo Total Estudo","Atividade","Numero Sessoes","Total Submissoes","Submissoes Corretas","Proporcao Submissoes Corretas","Nota Final")
+
+tabelaCorrelacao = cor(tabelaCompleta[,-1], use="complete.obs", method=c("spearman"))
+
+write.csv(tabelaCorrelacao, "TabelaIntercorrelacaoForaAula.csv")

US15 - analise_US6.R

@@ -5,9 +5,9 @@ require(nortest)
 require(ggplot2)
 
 #leitura dos dados.aula
-dados.aula.atividade.aula <- read.csv("AgrupamentoAtividadeEmAula.csv")
+dados.aula.atividade.aula <- read.csv("dados/AgrupamentoAtividadeEmAula.csv")
 dados.aula.atividade.aula <- dados.aula.atividade.aula[,-1] #remocao das colunas nao necessarias
-dados.aula.sessao.aula <- read.csv("tableSumDisciplineEmAula.csv")
+dados.aula.sessao.aula <- read.csv("dados/tableSumDisciplineEmAula.csv")
 
 #merge para associar para cada aluno seu tempo total de estudo e seu tempo de atividade.
 dados.aula <- merge(dados.aula.sessao.aula,dados.aula.atividade.aula,by.x="matricula",by.y="matricula")
@@ -56,9 +56,9 @@ max(dados.aula$atividade)
 #FORA HORARIO DE AULA#
 
 #leitura dos dados.fora
-dados.atividade.fora <- read.csv("AgrupamentoAtividadeForadeAula.csv")
+dados.atividade.fora <- read.csv("dados/AgrupamentoAtividadeForadeAula.csv")
 dados.atividade.fora <- dados.atividade.fora[,-1] #remocao das colunas nao necessarias
-dados.sessao.fora <- read.csv("tableSumDisciplineForadeAula.csv")
+dados.sessao.fora <- read.csv("dados/tableSumDisciplineForadeAula.csv")
 
 #merge para associar para cada aluno seu tempo total de estudo e seu tempo de atividade.
 dados.fora <- merge(dados.sessao.fora,dados.atividade.fora,by.x="matricula",by.y="matricula")
@@ -98,7 +98,6 @@ grafico2 <- ggplot(dados.fora,aes(sumSession,atividade)) +
  	     geom_point() + geom_smooth(method=lm,se=FALSE) + theme_bw() +
 	     scale_x_log10() + scale_y_log10(limits=c(0.01,1)) + 
 	     labs(x="Tempo Total de Estudo (log)",y="Atividade de Estudo (log)")
-	     #theme(panel.grid.minor.x=element_blank(), panel.grid.major.x=element_blank())
 
 png(filename = "ScatterplotUS6-ForaDeAula.png", width = 480, height = 480)
 print(grafico2)