Classificação Cadetes do Sexo Feminino - Turma C Bas 2018

library(tidyverse)

library(readxl)
nota <- read_excel("nota.xlsx")
nota %>% 
  arrange(classif) %>% 
    filter(local=="C Bas") 

nota %>% 
  arrange(classif) %>% 
    filter(local=="EsPCEx") 

Nota e Classificação dos cad sexo feminino com a nota média (EsPCEx e C Bas)

ggplot(nota)+ 
  geom_point(aes(x=cadete, y=classif)) +
  geom_point(size=3, aes(x=cadete, y=classif, col=local, shape=local)) +
  xlab("Cadete") + ylab("Notas") + ggtitle("Classificação - Cad Sexo Feminino - Turma C Bas 2018") +
  scale_color_brewer(palette="Dark2") + theme(legend.position="top")+
#  scale_y_continuous(limits = c(6.5,10))+
  theme(axis.text.x = element_text(angle=90))

NA

ggplot(nota)+ 
  geom_point(aes(x=cadete, y=nota)) +
  geom_point(size=3, aes(x=cadete, y=nota, col=local, shape=local)) +
  xlab("Cadete") + ylab("Notas") + ggtitle("Notas - Cad Sexo Feminino - Turma C Bas 2018") +
  scale_color_brewer(palette="Dark2") + theme(legend.position="top")+
  scale_y_continuous(limits = c(6.5,10))+
  theme(axis.text.x = element_text(angle=90))

  # geom_point(size=3, aes(x=cadete, y=classif, col=local, shape=local))
  
  

Nota e Classificação dos cad sexo feminino sem a nota média (EsPCEx e C Bas)

nota <- read_excel("nota.xlsx")
nota <- nota %>% filter(local !="Nota Média")

ggplot(nota)+ 
  geom_point(aes(x=cadete, y=nota)) +
  geom_point(size=3, aes(x=cadete, y=nota, col=local, shape=local)) +
  xlab("Cadete") + ylab("Notas") + ggtitle("Notas - Cad Sexo Feminino - Turma C Bas 2018") +
  scale_color_brewer(palette="Dark2") + theme(legend.position="top")+
  scale_y_continuous(limits = c(6.5,10))+
  theme(axis.text.x = element_text(angle=90))

  # geom_point(size=3, aes(x=cadete, y=classif, col=local, shape=local))
  
  

ggplot(nota)+ 
  geom_point(aes(x=cadete, y=classif)) +
  geom_point(size=3, aes(x=cadete, y=classif, col=local, shape=local)) +
  xlab("Cadete") + ylab("Notas") + ggtitle("Classificação - Cad Sexo Feminino - Turma C Bas 2018") +
  scale_color_brewer(palette="Dark2") + theme(legend.position="top")+
#  scale_y_continuous(limits = c(6.5,10))+
  theme(axis.text.x = element_text(angle=90))

NA