–> CARREGAMENTO DA BASE DE DADOS

> FILTRAÇÃO DOS ANOS QUE SERÃO ESTUDADOS E A UNIÃO DE DUAS VARIÁVEIS
library(readr)
microdados <- read_csv("C:/Users/02aci/Downloads/microdados.csv")

library(dplyr)
library(flextable)
library(DT)
library(ggplot2)

microdados2 <-microdados %>% filter(ano==1984 | ano==2016)


microdados2 <-microdados2 %>%
  mutate(
    anosexo = case_when(
      ano == 1984 & sexo =="F" ~ "Feminino_1984",
      ano == 1984 & sexo =="M" ~ "Masculino_1984",
      ano == 2016 & sexo =="F" ~ "Feminino_2016",
      ano == 2016 & sexo =="M" ~ "Masculino_2016",
      TRUE                      ~ "outros"))
microdados3 <-microdados %>% filter(ano==1984)
microdados3 <-microdados3 %>%
  mutate(
    anosexo = case_when(
      ano == 1984 & sexo =="F" ~ "Feminino_1984",
      ano == 1984 & sexo =="M" ~ "Masculino_1984",
      TRUE                      ~ "outros"))


microdados4 <-microdados %>% filter(ano==2016)
microdados4 <-microdados4 %>%
  mutate(
    anosexo = case_when(
      ano == 2016 & sexo =="F" ~ "Feminino_2016",
      ano == 2016 & sexo =="M" ~ "Masculino_2016",
      TRUE                      ~ "outros"))



datatable(microdados2)

–> DECLARACÃO DE OBJETIVOS E HIPÓTESES

INTRODUÇÃO

> As Olimpíadas surgiram por volta do século VIII a.C., na antiga Hélade, conjunto das cidades-estado da Grécia Clássica. A realização dos jogos ocorria na cidade de Olímpia, de onde veio o nome “Olimpíadas”, para onde os cidadãos das outras cidades peregrinavam a fim de participarem das competições.
Após o fim da Hélade, no mundo antigo, as Olimpíadas caíram no esquecimento durante séculos. Outros esportes foram se desenvolvendo no interior de cada civilização, mas não havia algo que tivesse a envergadura da celebração dos jogos de Olímpia. A restauração das práticas esportivas em um festival como as antigas Olimpíadas só foi realizado na década de 1890 por um aristocrata e pedagogo suíço chamado Pierre de Frédy, mais conhecido como Barão de Coubertin.
O Barão de Coubertin acreditava que a prática do esporte devia ser estimulada na sociedade contemporânea, sobretudo entre os jovens. Além disso, era interessante que houvesse uma organização internacional de jogos esportivos que ajudasse a promover a “paz entre as nações”, já que aquele contexto (de transição do século XX para o século XXI) estava carregado de rivalidades entre as potências imperialistas.
Apesar de ter sido criada como uma celebração e refeita no intuito de promover a paz as olimpíadas acabaram ressaltando problemas sociais gravíssimos ao redor do mundo. E dentro desse trabalho buscamos como objetivo mostrar a enorme desigualdade de gênero que sofreram e sofrem as mulheres desde o surgimento dos jogos olímpicos.
As mulheres enfrentam desigualdades de gênero em quase todas as esferas da sociedade. No esporte não é diferente. As mulheres no esporte ficaram proibidas de disputar as olimpíadas desde a origem. Foram praticamente três mil anos para conseguir entrar no jogo. O próprio Barão de Coubertin, tido como o fundador dos Jogos da Era Moderna, acreditava que um Olimpíada com mulheres seria desinteressante, pouco atraente e inapropriada. Por conta da falta de espaço nos jogos tradicionais, as mulheres chegaram a fundar no início do século 20 uma Liga alternativa oficial para poderem competir.

OBJETIVOS

Mesmo com tamanha resistência de uma sociedade patriarcal buscamos com nosso trabalho mostrar que desde o ano de 1900 nas Olímpiadas de Paris onde houve a primeira participação feminina na história, até os dias atuais houve uma evolução inimaginável dentro do cenário esportivo tanto em relação a representatividade e participação quanto em número de medalhas, contudo nosso trabalho ainda destaca que mesmo após 30 olímpiadas desde a primeira participação ainda há muito caminho a percorrer em busca de igualdade, afinal igualdade não é um dos princípios do tão famigerado “espírito olímpico”?

HIPÓTESES E VARIÁVEIS

- MEDALHA, ANO E SEXO
- MEDALHA E SEXO (POR ANO)
- SEXO E IDADE
- Há uma presença maior de homens que mulheres apesar do crescimento gradativo da presença feminina
- Há um aumento de medalhas para as mulheres mas permanecem menores que as medalhas dos homens em todas as medalhas
- O crescimento do número de homens nas olimpíadas aumentaram em relação ao ano de 2016, em comparação com o de 1984
- O número de medalhas dos homens aumentaram em 2016, comparado ao de 1984

–> FONTE DOS DADOS

> A BASE DE DADOS FOI ACHADA NO SITE BASEDEDADOS.ORG, UM SITE PRÓPRIO PARA VOCÊ ACHAR BASES PARA DIVERSOS TEMAS COM SEGURANÇA NOS DADOS.

–> DESCRIÇÃO DE CADA CONJUNTO DE DADOS

–> ANO X SEXO X MEDALHA

> TABELA DE NÚMEROS ABSOLUTOS - COLOCADA PARA CONSEGUIR VISUALIZAR COM PRECSIÃO CADA DADO EM NÚMEROS EXATOS PARA SE TER DADOS PRECISOS E CERTEIROS
tabela <- table(microdados2$anosexo, microdados2$medalha) %>% data.frame()
tabela <- tabela %>% rename (sexo_ano=Var1, medalhas=Var2, quantidade=Freq)
tabela %>% flextable() %>% theme_zebra()
> TABELA DE BARPLOT - COLOCADA PARA TER UMA VISUALIZAÇÃO EM BARRAS DO TAMANHO DA DIFERENÇA E CRESCIMENTO
tabela18 <- table(microdados2$anosexo, microdados2$medalha)
barplot(tabela18,beside=TRUE, col=c("red","pink","lightblue3","steelblue"), 
        horiz = FALSE,
        legend.text = rownames(tabela18),
        args.legend = list(x = "topright"),
        main="MEDALHAS POR SEXO")

–> ANO X SEXO

> TABELA DE NÚMEROS ABSOLUTOS - COLOCADA PARA CONSEGUIR VISUALIZAR COM PRECSIÃO CADA DADO EM NÚMEROS EXATOS PARA SE TER DADOS PRECISOS E CERTEIROS
tabela1 <- table(microdados2$ano, microdados2$sexo) %>% data.frame()
tabela1 <- tabela1 %>% rename (Ano=Var1, Sexo=Var2, quantidade=Freq)
tabela1 %>% flextable() %>% theme_zebra()
> TABELA DE GGPLOT - COLOCADA PARA TER UMA MELHOR VISUALIZAÇÃO EM BARRAS DO TAMANHO DA DIFERENÇA E CRESCIMENTO
ggplot(microdados2) +
  aes(x = ano, fill = sexo) +
  geom_bar(position = "dodge") +
  scale_fill_viridis_d(option = "cividis", 
                       direction = 1) +
  labs(x = ".", y = "Frequência", title = "ANO X SEXO") +
  theme_minimal() +
  theme(plot.title = element_text(face = "bold", hjust = 0.5), axis.title.y = element_text(face = "bold"))

–> ANO X IDADE

> MÉDIA, MEDIANA, MÍNIMA, MÁXIMA E DESVIO PADRÃO - UTILIZADO PARA SE TER A MÉDIA DE IDADE DE CADA SEXO NOS ANOS ESTUDADOS PARA SE OBTER O MELHOR RESULTADO
> ERRO NA VISUALIZAÇÃO DOS DADOS - A CORRIGIR
–> AS VARIÁVEIS ANO X SEXO E ANO X SEXO E MEDALHA NÃO POSSUEM DADOS QUANTITATIVOS PARA SE FAZER A MÉDIA, MEDIANA, DESVIO PADRÃO, MÍNIMO E MÁXIMO (POR SER EXCLUSIVAMENTE 2 ANOS). NESTE CASO FOI USADA A VARIÁVEL IDADE X SEXO, QUE ESTÁ DANDO ERRO AO SE REFERIR AO ANO DE 1984. ADEMAIS, COLOCAMOS NO RELATÓRIO PARA PLENA NOÇÃO DA VISUALIZAÇÃO DOS PASSOS DO GRUPO E CADA ERRO SERÁ ALTERADO MAIS TARDE
microdados3 %>% select(anosexo,idade) %>% group_by(anosexo) %>%  
  summarise(Mediana=median(idade), Minimo=min(idade), Maximo=max(idade), Media=mean(idade),desvio_padrao=round(sd(idade),2))%>% flextable() %>% theme_zebra()
microdados4 %>% select(anosexo,idade) %>% group_by(anosexo) %>%  
  summarise(Mediana=median(idade), Minimo=min(idade), Maximo=max(idade), Media=mean(idade),desvio_padrao=round(sd(idade),2))%>% flextable() %>% theme_zebra()