VASCO DA GAMA

R Markdown

This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.

#BASE DE DADOS VASCO DA GAMA

#1-Gols por Temporada (Barras)

library(ggplot2)

temporadas <- data.frame(
  Ano = c(2020, 2021, 2022, 2023, 2024),
  Gols = c(45, 38, 52, 41, 49)
)

ggplot(temporadas, aes(x = factor(Ano), y = Gols)) +
  geom_col(fill = "black") +
  labs(title = "Gols do Vasco por Temporada",
       x = "Ano",
       y = "Gols")

#2. Vitórias, Empates e Derrotas (Pizza)

resultado <- data.frame(
  Categoria = c("Vitórias", "Empates", "Derrotas"),
  Total = c(18, 10, 10)
)

ggplot(resultado, aes(x = "", y = Total, fill = Categoria)) +
  geom_col() +
  coord_polar("y") +
  labs(title = "Resultados da Temporada")

#3. Público Médio por Jogo (Linha)

publico <- data.frame(
  Rodada = 1:10,
  Torcedores = c(15000, 18000, 22000, 27000, 25000,
                 30000, 28000, 32000, 35000, 40000)
)

ggplot(publico, aes(x = Rodada, y = Torcedores)) +
  geom_line(color = "black", linewidth = 1.2) +
  geom_point(color = "red") +
  labs(title = "Público Médio do Vasco",
       x = "Rodada",
       y = "Torcedores")

#4. Distribuição de Idade dos Jogadores (Histograma)

idades <- data.frame(
  Idade = c(20,21,22,22,23,24,24,25,26,26,
            27,27,28,29,30,31,32,33,34,35)
)

ggplot(idades, aes(x = Idade)) +
  geom_histogram(fill = "gray", bins = 8) +
  labs(title = "Idade dos Jogadores do Vasco",
       x = "Idade",
       y = "Quantidade")

#5. Gols por Jogador (Barras Horizontais)

artilheiros <- data.frame(
  Jogador = c("Vegetti", "Payet", "Coutinho", "Rayan", "Puma"),
  Gols = c(15, 8, 7, 6, 4)
)

ggplot(artilheiros,
       aes(x = reorder(Jogador, Gols), y = Gols)) +
  geom_col(fill = "black") +
  coord_flip() +
  labs(title = "Artilheiros do Vasco",
       x = "Jogador",
       y = "Gols")