disciplinas

library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(ggplot2)
registros <- read.csv("/Users/diegopedro/Dropbox/UFCG/AD2/MT 01/alunosUFCGAnon.csv")
comp <- na.omit(registros[registros$Nome_Curso=='CIÊNCIA DA COMPUTAÇÃO - D' & registros$Tipo=='Obrigatória',])

Periodo 1

nomed <-'ÁLGEBRA VETORIAL E GEOMETRIA ANALÍTICA'
disciplina <- comp[comp$Nome_Disciplina==nomed,]
ggplot(data = disciplina, aes(factor(Periodo), Media_Disciplina)) + geom_boxplot() + ggtitle(nomed)

nomed <-'CALCULO DIFERENCIAL E INTEGRAL I'
disciplina <- comp[comp$Nome_Disciplina==nomed,]
ggplot(data = disciplina, aes(factor(Periodo), Media_Disciplina)) + geom_boxplot() + ggtitle(nomed)

nomed <-'PROGRAMAÇÃO I'
disciplina <- comp[comp$Nome_Disciplina==nomed,]
ggplot(data = disciplina, aes(factor(Periodo), Media_Disciplina)) + geom_boxplot() + ggtitle(nomed)

nomed <-'LABORATÓRIO DE PROGRAMAÇÃO I'
disciplina <- comp[comp$Nome_Disciplina==nomed,]
ggplot(data = disciplina, aes(factor(Periodo), Media_Disciplina)) + geom_boxplot() + ggtitle(nomed)

nomed <-'LEITURA E PRODUCAO DE TEXTOS'
disciplina <- comp[comp$Nome_Disciplina==nomed,]
ggplot(data = disciplina, aes(factor(Periodo), Media_Disciplina)) + geom_boxplot() + ggtitle(nomed)

nomed <-'INTRODUÇÃO A COMPUTAÇÃO'
disciplina <- comp[comp$Nome_Disciplina==nomed,]
ggplot(data = disciplina, aes(factor(Periodo), Media_Disciplina)) + geom_boxplot() + ggtitle(nomed)

Periodo2

nomed <-'MATEMÁTICA DISCRETA'
disciplina <- comp[comp$Nome_Disciplina==nomed,]
ggplot(data = disciplina, aes(factor(Periodo), Media_Disciplina)) + geom_boxplot() + ggtitle(nomed)

nomed <-'CALCULO DIFERENCIAL E INTEGRAL II'
disciplina <- comp[comp$Nome_Disciplina==nomed,]
ggplot(data = disciplina, aes(factor(Periodo), Media_Disciplina)) + geom_boxplot() + ggtitle(nomed)

nomed <-'FUNDAMENTOS DE FÍSICA CLÁSSICA'
disciplina <- comp[comp$Nome_Disciplina==nomed,]
ggplot(data = disciplina, aes(factor(Periodo), Media_Disciplina)) + geom_boxplot() + ggtitle(nomed)

nomed <-'PROGRAMAÇÃO II'
disciplina <- comp[comp$Nome_Disciplina==nomed,]
ggplot(data = disciplina, aes(factor(Periodo), Media_Disciplina)) + geom_boxplot() + ggtitle(nomed)

nomed <-'LABORATÓRIO DE PROGRAMAÇÃO II'
disciplina <- comp[comp$Nome_Disciplina==nomed,]
ggplot(data = disciplina, aes(factor(Periodo), Media_Disciplina)) + geom_boxplot() + ggtitle(nomed)

nomed <-'TEORIA DOS GRAFOS'
disciplina <- comp[comp$Nome_Disciplina==nomed,]
ggplot(data = disciplina, aes(factor(Periodo), Media_Disciplina)) + geom_boxplot() + ggtitle(nomed)

Periodo 3

nomed <-'PROBABILIDADE E ESTATISTICA'
disciplina <- comp[comp$Nome_Disciplina==nomed,]
ggplot(data = disciplina, aes(factor(Periodo), Media_Disciplina)) + geom_boxplot() + ggtitle(nomed)

nomed <-'TEORIA DA COMPUTAÇÃO'
disciplina <- comp[comp$Nome_Disciplina==nomed,]
ggplot(data = disciplina, aes(factor(Periodo), Media_Disciplina)) + geom_boxplot() + ggtitle(nomed)

nomed <-'GERÊNCIA DA INFORMAÇÃO'
disciplina <- comp[comp$Nome_Disciplina==nomed,]
ggplot(data = disciplina, aes(factor(Periodo), Media_Disciplina)) + geom_boxplot() + ggtitle(nomed)

nomed <-'ESTRUTURA DE DADOS E ALGORITMOS'
disciplina <- comp[comp$Nome_Disciplina==nomed,]
ggplot(data = disciplina, aes(factor(Periodo), Media_Disciplina)) + geom_boxplot() + ggtitle(nomed)

nomed <-'FUNDAMENTOS DE FÍSICA MODERNA'
disciplina <- comp[comp$Nome_Disciplina==nomed,]
ggplot(data = disciplina, aes(factor(Periodo), Media_Disciplina)) + geom_boxplot() + ggtitle(nomed)

nomed <-'LAB.DE ESTRUTURA DE DADOS E ALGORITMOS'
disciplina <- comp[comp$Nome_Disciplina==nomed,]
ggplot(data = disciplina, aes(factor(Periodo), Media_Disciplina)) + geom_boxplot() + ggtitle(nomed)

Periodo 4

nomed <-'ORG.E ARQUITETURA DE COMPUTADORES I'
disciplina <- comp[comp$Nome_Disciplina==nomed,]
ggplot(data = disciplina, aes(factor(Periodo), Media_Disciplina)) + geom_boxplot() + ggtitle(nomed)

nomed <-'LAB.DE ORG.E ARQUITETURA DE COMPUTADORES'
disciplina <- comp[comp$Nome_Disciplina==nomed,]
ggplot(data = disciplina, aes(factor(Periodo), Media_Disciplina)) + geom_boxplot() + ggtitle(nomed)

nomed <-'SISTEMAS DE INFORMAÇÃO I'
disciplina <- comp[comp$Nome_Disciplina==nomed,]
ggplot(data = disciplina, aes(factor(Periodo), Media_Disciplina)) + geom_boxplot() + ggtitle(nomed)

nomed <-'ENGENHARIA DE SOFTWARE I'
disciplina <- comp[comp$Nome_Disciplina==nomed,]
ggplot(data = disciplina, aes(factor(Periodo), Media_Disciplina)) + geom_boxplot() + ggtitle(nomed)

nomed <-'LÓGICA MATEMÁTICA'
disciplina <- comp[comp$Nome_Disciplina==nomed,]
ggplot(data = disciplina, aes(factor(Periodo), Media_Disciplina)) + geom_boxplot() + ggtitle(nomed)

nomed <-'METODOS ESTATISTICOS'
disciplina <- comp[comp$Nome_Disciplina==nomed,]
ggplot(data = disciplina, aes(factor(Periodo), Media_Disciplina)) + geom_boxplot() + ggtitle(nomed)

nomed <-'PARADIGMAS DE LING. DE PROGRAMAÇÃO'
disciplina <- comp[comp$Nome_Disciplina==nomed,]
ggplot(data = disciplina, aes(factor(Periodo), Media_Disciplina)) + geom_boxplot() + ggtitle(nomed)

Periodo 5

nomed <-'METODOLOGIA CIENTÍFICA'
disciplina <- comp[comp$Nome_Disciplina==nomed,]
ggplot(data = disciplina, aes(factor(Periodo), Media_Disciplina)) + geom_boxplot() + ggtitle(nomed)

nomed <-'BANCO DE DADOS I '
disciplina <- comp[comp$Nome_Disciplina==nomed,]
ggplot(data = disciplina, aes(factor(Periodo), Media_Disciplina)) + geom_boxplot() + ggtitle(nomed)

nomed <-'INFORMÁTICA E SOCIEDADE'
disciplina <- comp[comp$Nome_Disciplina==nomed,]
ggplot(data = disciplina, aes(factor(Periodo), Media_Disciplina)) + geom_boxplot() + ggtitle(nomed)

nomed <-'ANÁLISE E TÉCNICA DE ALGORITMOS'
disciplina <- comp[comp$Nome_Disciplina==nomed,]
ggplot(data = disciplina, aes(factor(Periodo), Media_Disciplina)) + geom_boxplot() + ggtitle(nomed)

nomed <-'ALGEBRA LINEAR I'
disciplina <- comp[comp$Nome_Disciplina==nomed,]
ggplot(data = disciplina, aes(factor(Periodo), Media_Disciplina)) + geom_boxplot() + ggtitle(nomed)

nomed <-'COMPILADORES'
disciplina <- comp[comp$Nome_Disciplina==nomed,]
ggplot(data = disciplina, aes(factor(Periodo), Media_Disciplina)) + geom_boxplot() + ggtitle(nomed)

nomed <-'REDES DE COMPUTADORES'
disciplina <- comp[comp$Nome_Disciplina==nomed,]
ggplot(data = disciplina, aes(factor(Periodo), Media_Disciplina)) + geom_boxplot() + ggtitle(nomed)

Periodo 6

nomed <-'INTELIGENCIA ARTIFICIAL I'
disciplina <- comp[comp$Nome_Disciplina==nomed,]
ggplot(data = disciplina, aes(factor(Periodo), Media_Disciplina)) + geom_boxplot() + ggtitle(nomed)

nomed <-'SISTEMAS DE INFORMAÇÃO II '
disciplina <- comp[comp$Nome_Disciplina==nomed,]
ggplot(data = disciplina, aes(factor(Periodo), Media_Disciplina)) + geom_boxplot() + ggtitle(nomed)

nomed <-'INTERCONEXÃO DE REDES DE COMPUTADORES'
disciplina <- comp[comp$Nome_Disciplina==nomed,]
ggplot(data = disciplina, aes(factor(Periodo), Media_Disciplina)) + geom_boxplot() + ggtitle(nomed)

nomed <-'LAB.DE INTERCON.DE REDES DE COMPUTADORES'
disciplina <- comp[comp$Nome_Disciplina==nomed,]
ggplot(data = disciplina, aes(factor(Periodo), Media_Disciplina)) + geom_boxplot() + ggtitle(nomed)

nomed <-'LABORATÓRIO DE ENGENHARIA DE SOFTWARE'
disciplina <- comp[comp$Nome_Disciplina==nomed,]
ggplot(data = disciplina, aes(factor(Periodo), Media_Disciplina)) + geom_boxplot() + ggtitle(nomed)

nomed <-'SISTEMAS OPERACIONAIS'
disciplina <- comp[comp$Nome_Disciplina==nomed,]
ggplot(data = disciplina, aes(factor(Periodo), Media_Disciplina)) + geom_boxplot() + ggtitle(nomed)

Periodo 7

nomed <-'MÉTODOS E SOFTWARE NUMÉRICOS'
disciplina <- comp[comp$Nome_Disciplina==nomed,]
ggplot(data = disciplina, aes(factor(Periodo), Media_Disciplina)) + geom_boxplot() + ggtitle(nomed)

nomed <-'AVAL.DE DESEMPENHO DE SISTEMAS DISCRETOS'
disciplina <- comp[comp$Nome_Disciplina==nomed,]
ggplot(data = disciplina, aes(factor(Periodo), Media_Disciplina)) + geom_boxplot() + ggtitle(nomed)

nomed <-'PROJETO EM COMPUTAÇÃO I'
disciplina <- comp[comp$Nome_Disciplina==nomed,]
ggplot(data = disciplina, aes(factor(Periodo), Media_Disciplina)) + geom_boxplot() + ggtitle(nomed)

nomed <-'BANCO DE DADOS II'
disciplina <- comp[comp$Nome_Disciplina==nomed,]
ggplot(data = disciplina, aes(factor(Periodo), Media_Disciplina)) + geom_boxplot() + ggtitle(nomed)

Periodo 8

nomed <-'DIREITO E CIDADANIA'
disciplina <- comp[comp$Nome_Disciplina==nomed,]
ggplot(data = disciplina, aes(factor(Periodo), Media_Disciplina)) + geom_boxplot() + ggtitle(nomed)

nomed <-'PROJETO EM COMPUTAÇÃO II'
disciplina <- comp[comp$Nome_Disciplina==nomed,]
ggplot(data = disciplina, aes(factor(Periodo), Media_Disciplina)) + geom_boxplot() + ggtitle(nomed)