US14 e atualização

US14 - Script UC4.R

@@ -0,0 +1,32 @@
+# Expansão da tabela UC4.csv para gerar informações do hover
+# Andrey Menezes LA2.0 (Março 2013)
+
+tabela1 = read.csv("dados/TabelaParaPerfis.csv")
+tabela2 = read.csv("dados/TableSessionLength.csv")
+tabela3 = read.csv("dados/submissoes_corretas_tempo.csv")
+tabela4 = read.csv("dados/Geral.csv")
+uc4 = read.csv("dados/uc4.csv")
+
+tabela1 = tabela1[,c("matricula","mediana.sessao","tempo.total.estudo")]
+
+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
+tabela3 = tabela3[,c("matricula","ProporcaoSubCorretas")]
+
+tabela4 = tabela4[,c("matricula", "status")]
+
+uc4 = uc4[,-1]
+
+tabelaCompleta = merge(uc4,tabela1,by.x="matricula",by.y="matricula")
+tabelaCompleta = merge(tabelaCompleta,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")
+
+write.csv(tabelaCompleta, "dados/tabelaUC4.csv")

US22 - Graficos Resultados Artigo.R

@@ -0,0 +1,85 @@
+# Gerar os gráficos dos resultados para o artigo
+# Andrey Menezes e Iury Gregory LA2.0 (Março 2013)
+require(ggplot2)
+
+dados = read.csv("dados/TableSessionLengthForadeAula.csv")
+
+# Numero de sessoes por aluno
+tabela = with(dados,aggregate(session,list(matricula),FUN=max))
+colnames(tabela) = c("matricula", "numeroSessoes")
+
+tabela = tabela[with(tabela, order(numeroSessoes, decreasing=T)),]
+tabela$matricula = reorder(tabela$matricula,tabela$numeroSessoes, order=T)
+tabela$rank = as.factor(seq(1, nrow(tabela), 1))
+
+grafico <- ggplot(tabela,aes(x=rank, y=numeroSessoes)) + geom_point()+
+  theme_bw()+labs(x="Matrículas",y="Número de Sessões") + scale_x_discrete(breaks =seq(from=1,to=100,by=10)) #+ylim(c(0,max(tabela$numeroSessoes)))+
+  #theme(panel.grid.minor.x=element_blank(), panel.grid.major.x=element_blank())+
+  #theme(axis.ticks=element_blank())
+
+png("NumSessoesPorAluno.png",bg="transparent",width = 600, height = 400)
+print(grafico)
+dev.off()
+
+pdf("NumSessoesPorAluno.pdf",bg="transparent", width = 480/100, height = 480/100)
+print(grafico)
+dev.off()
+
+# Tamanho mediano das sessões por aluno
+sessoes.mediana = with(dados, aggregate(timeSession,list(matricula),median))
+colnames(sessoes.mediana) = c("matricula", "timeSession")
+
+sessoes.mediana = sessoes.mediana[with(sessoes.mediana, order(timeSession, decreasing=T)),]
+sessoes.mediana$matricula = reorder(sessoes.mediana$matricula, sessoes.mediana$timeSession, order=T)
+sessoes.mediana$rank = as.factor(seq(1, nrow(sessoes.mediana), 1))
+
+grafico <- ggplot(sessoes.mediana,aes(x=rank, y=timeSession)) + geom_point()+
+  theme_bw()+labs(x="Matrículas",y="Tamanho Mediana das Sessões") + scale_x_discrete(breaks =seq(from=1,to=100,by=10))
+
+png("MedianaSessoesPorAluno.png",bg="transparent",width = 480, height = 480)
+print(grafico)
+dev.off()
+
+pdf("MedianaSessoesPorAluno.pdf",bg="transparent", width = 480/100, height = 480/100)
+print(grafico)
+dev.off()
+
+
+#Atividade de estudo por aluno
+atividade <- read.csv("dados/AgrupamentoAtividadeForadeAula.csv")
+atividade <- atividade[,-1]
+atividade = atividade[with(atividade,order(atividade,decreasing=T)),]
+atividade$matricula <- reorder(atividade$matricula,atividade$atividade, order=T)
+atividade$rank = as.factor(seq(1, nrow(atividade), 1))
+
+grafico.atividade <- ggplot(atividade,aes(rank,atividade)) + geom_point()+
+  theme_bw()+labs(x="Matrículas",y="Atividade de Estudo") +ylim(c(0,0.75))+
+  scale_x_discrete(breaks =seq(from=1,to=100,by=10))
+
+png(filename = "AtividadedeEstudo.png", bg="transparent", width = 480, height = 480)
+print(grafico.atividade)
+dev.off()
+
+pdf("AtividadeDeEstudo.pdf", bg="transparent", width = 480/100, height = 480/100)
+print(grafico.atividade)
+dev.off()
+
+
+#Tempo total de estudo por aluno
+tempo <- read.csv("dados/tableSumDisciplineForadeAula.csv")
+tempo = tempo[with(tempo,order(sumSession,decreasing=T)),]
+tempo$matricula <- reorder(tempo$matricula,tempo$sumSession, order=T)
+tempo$rank = as.factor(seq(1, nrow(tempo), 1))
+
+
+grafico.tempo <- ggplot(tempo,aes(rank,sumSession/3600)) + 
+  geom_point() + theme_bw()+labs(x="Matrículas",y="Tempo Total de Estudo (horas)") +
+  scale_x_discrete(breaks =seq(from=1,to=100,by=10))
+
+png(filename = "TempoTotalDeEstudoEmHoras.png", bg="transparent", width = 480, height = 480)
+print(grafico.tempo)
+dev.off()
+
+pdf("TempoTotalDeEstudo.pdf", bg="transparent", width = 480/100, height = 480/100)
+print(grafico.tempo)
+dev.off()