diff --git a/US22 - Graficos Resultados Artigo.R b/US22 - Graficos Resultados Artigo.R index 2cd890f..a12bad7 100644 --- a/US22 - Graficos Resultados Artigo.R +++ b/US22 - Graficos Resultados Artigo.R @@ -2,7 +2,7 @@ # Andrey Menezes e Iury Gregory LA2.0 (Mar�o 2013) require(ggplot2) -dados = read.csv("dados/TableSessionLengthForadeAula.csv") +dados = read.csv("dados/TableSessionLength.csv") # Numero de sessoes por aluno tabela = with(dados,aggregate(session,list(matricula),FUN=max)) @@ -12,19 +12,20 @@ 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()) +grafico <- ggplot(tabela, aes(x=rank, y=numeroSessoes, shape="Aluno")) + geom_point()+ + theme_bw()+labs(x="Matr�culas",y="N�mero de Sess�es")+ + scale_x_discrete(breaks =seq(from=0,to=100,by=10))+ + theme(legend.justification=c(1,1), legend.position=c(1,1), legend.title=element_blank()) -png("NumSessoesPorAluno.png",bg="transparent",width = 600, height = 400) +png("NumSessoesPorAluno.png",bg="transparent",width = 550, height = 350) print(grafico) dev.off() -pdf("NumSessoesPorAluno.pdf",bg="transparent", width = 480/100, height = 480/100) +pdf("NumSessoesPorAluno.pdf",bg="transparent", width = 5.5, height = 3.5) 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") @@ -33,53 +34,58 @@ sessoes.mediana = sessoes.mediana[with(sessoes.mediana, order(timeSession, decre 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)) +grafico.mediana <- ggplot(sessoes.mediana, aes(x=rank, y=(timeSession/3600), shape="Aluno")) + geom_point()+ + theme_bw()+labs(x="Matr�culas",y="Tamanho Mediano das Sess�es (horas)")+ #ylim(c(0,1))+ + scale_x_discrete(breaks =seq(from=0,to=100,by=10))+ + scale_y_continuous(breaks =seq(from=0,to=1,by=0.15))+ + theme(legend.justification=c(1,1), legend.position=c(1,1), legend.title=element_blank()) -png("MedianaSessoesPorAluno.png",bg="transparent",width = 480, height = 480) -print(grafico) +png("MedianaSessoesPorAluno.png",bg="transparent",width = 550, height = 350) +print(grafico.mediana) dev.off() -pdf("MedianaSessoesPorAluno.pdf",bg="transparent", width = 480/100, height = 480/100) -print(grafico) +pdf("MedianaSessoesPorAluno.pdf",bg="transparent", width = 5.5, height = 3.5) +print(grafico.mediana) dev.off() #Atividade de estudo por aluno -atividade <- read.csv("dados/AgrupamentoAtividadeForadeAula.csv") +atividade <- read.csv("dados/AgrupamentoAtividade.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)) +grafico.atividade <- ggplot(atividade, aes(x=rank, y=atividade, shape="Aluno")) + geom_point()+ + theme_bw()+labs(x="Matr�culas",y="Atividade de Estudo") +ylim(c(0,0.8))+ + scale_x_discrete(breaks =seq(from=0,to=100,by=10))+ + theme(legend.justification=c(1,1), legend.position=c(1,1), legend.title=element_blank())+ -png(filename = "AtividadedeEstudo.png", bg="transparent", width = 480, height = 480) +png(filename = "AtividadedeEstudo.png", bg="transparent", width = 550, height = 350) print(grafico.atividade) dev.off() -pdf("AtividadeDeEstudo.pdf", bg="transparent", width = 480/100, height = 480/100) +pdf("AtividadeDeEstudo.pdf", bg="transparent", width = 5.5, height = 3.5) print(grafico.atividade) dev.off() #Tempo total de estudo por aluno -tempo <- read.csv("dados/tableSumDisciplineForadeAula.csv") +tempo <- read.csv("dados/tableSumDiscipline.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)) +grafico.tempo <- ggplot(tempo, aes(x=rank, y=(sumSession/3600), shape="Aluno")) + geom_point()+ + theme_bw()+labs(x="Matr�culas",y="Tempo Total de Estudo (horas)")+ + scale_x_discrete(breaks =seq(from=0,to=100,by=10))+ + theme(legend.justification=c(1,1), legend.position=c(1,1), legend.title=element_blank()) -png(filename = "TempoTotalDeEstudoEmHoras.png", bg="transparent", width = 480, height = 480) +png(filename = "TempoTotalDeEstudoEmHoras.png", bg="transparent", width = 550, height = 350) print(grafico.tempo) dev.off() -pdf("TempoTotalDeEstudo.pdf", bg="transparent", width = 480/100, height = 480/100) +pdf("TempoTotalDeEstudoEmHoras.pdf", bg="transparent", width = 5.5, height = 3.5) print(grafico.tempo) dev.off() diff --git a/artigo/AtividadeDeEstudo.pdf b/artigo/AtividadeDeEstudo.pdf deleted file mode 100644 index 6875949..0000000 Binary files a/artigo/AtividadeDeEstudo.pdf and /dev/null differ diff --git a/artigo/AtividadedeEstudo.png b/artigo/AtividadedeEstudo.png deleted file mode 100644 index 91f06b4..0000000 Binary files a/artigo/AtividadedeEstudo.png and /dev/null differ diff --git a/artigo/MedianaSessao.pdf b/artigo/MedianaSessao.pdf deleted file mode 100644 index b45a238..0000000 Binary files a/artigo/MedianaSessao.pdf and /dev/null differ diff --git a/artigo/MedianaSessao.png b/artigo/MedianaSessao.png deleted file mode 100644 index d1ee16e..0000000 Binary files a/artigo/MedianaSessao.png and /dev/null differ diff --git a/artigo/NumSessoes.pdf b/artigo/NumSessoes.pdf deleted file mode 100644 index cad1b26..0000000 Binary files a/artigo/NumSessoes.pdf and /dev/null differ diff --git a/artigo/NumSessoes.png b/artigo/NumSessoes.png deleted file mode 100644 index 1d946b5..0000000 Binary files a/artigo/NumSessoes.png and /dev/null differ diff --git a/artigo/TempoTotalDeEstudo.pdf b/artigo/TempoTotalDeEstudo.pdf deleted file mode 100644 index 9fd0d0a..0000000 Binary files a/artigo/TempoTotalDeEstudo.pdf and /dev/null differ diff --git a/artigo/TempoTotalDeEstudoEmHoras.png b/artigo/TempoTotalDeEstudoEmHoras.png deleted file mode 100644 index 1056f0f..0000000 Binary files a/artigo/TempoTotalDeEstudoEmHoras.png and /dev/null differ