Script da US 6

Script q lesandro alterou para gerar os gráficos corretamente.

US15 - analise_US6.R

@@ -5,9 +5,9 @@ require(nortest)
 require(ggplot2)
 
 #leitura dos dados.aula
-dados.aula.atividade.aula <- read.csv("dados/AgrupamentoAtividadeEmAula.csv")
+dados.aula.atividade.aula <- read.csv("AgrupamentoAtividadeEmAula.csv")
 dados.aula.atividade.aula <- dados.aula.atividade.aula[,-1] #remocao das colunas nao necessarias
-dados.aula.sessao.aula <- read.csv("dados/tableSumDisciplineEmAula.csv")
+dados.aula.sessao.aula <- read.csv("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")
@@ -44,23 +44,21 @@ dev.off()
 
 #grafico log log para mostrar a correlacao entre os dados.aula.
 grafico <- ggplot(dados.aula,aes(sumSession,atividade)) + 
- 	     geom_point() + geom_smooth(method=lm,se=FALSE) +
-	     scale_x_log10() + scale_y_log10() +
-	     theme_bw()+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())+
-	     theme(axis.ticks = element_blank()) 
+ 	     geom_point() + geom_smooth(method=lm,se=FALSE) + ylim(c(0,1)) +xlim(c(0,100)) +
+	     scale_x_log10() + scale_y_log10(limits=c(0.01,1)) +
+	     theme_bw()+labs(x="Tempo Total de Estudo (log)",y="Atividade de Estudo (log)") 
 
 png(filename = "ScatterplotUS6-EmAula.png", width = 480, height = 480)
 print(grafico)
 dev.off()
 
-
+max(dados.aula$atividade)
 #FORA HORARIO DE AULA#
 
 #leitura dos dados.fora
-dados.atividade.fora <- read.csv("dados/AgrupamentoAtividadeForadeAula.csv")
+dados.atividade.fora <- read.csv("AgrupamentoAtividadeForadeAula.csv")
 dados.atividade.fora <- dados.atividade.fora[,-1] #remocao das colunas nao necessarias
-dados.sessao.fora <- read.csv("dados/tableSumDisciplineForadeAula.csv")
+dados.sessao.fora <- read.csv("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")
@@ -97,12 +95,11 @@ dev.off()
 
 #grafico log log para mostrar a correlacao entre os dados.fora.
 grafico2 <- ggplot(dados.fora,aes(sumSession,atividade)) + 
- 	     geom_point() + geom_smooth(method=lm,se=FALSE) +
-	     scale_x_log10() + scale_y_log10() +
-	     theme_bw()+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())+
-	     theme(axis.ticks = element_blank()) 
+ 	     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)
-dev.off()
+dev.off()