Futebol_Brasileiro
library(readxl)
tabela_brasileiro_2019_4_ <- read_excel("tabela_brasileiro_2019 (4).xlsx")
head(tabela_brasileiro_2019_4_)
## # A tibble: 6 × 16
## C Participantes PG J V E D GP GC SG `%A`
## <dbl> <chr> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
## 1 1 Flamengo 90 38 28 6 4 86 37 49 78.9
## 2 2 Santos 74 38 22 8 8 60 33 27 64.9
## 3 3 Palmeiras 74 38 21 11 6 61 32 29 64.9
## 4 4 Gremio 65 38 19 8 11 64 39 25 57
## 5 5 Athletico Paranae… 64 38 18 10 10 51 32 19 56.1
## 6 6 Sao Paulo 63 38 17 12 9 39 30 9 55.3
## # … with 5 more variables: `publico_pagante_(mi)` <chr>,
## # `ingressos_vendidos_(mi)` <chr>, `%de ingressos vendidos` <chr>,
## # `renda_liquida_(mi_reais)` <chr>, `renda_bruta_(mi_reais)` <chr>
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(flextable)
Neymagia_Presente!
tabela1 <- tabela_brasileiro_2019_4_ %>% select(Participantes, PG) %>%
group_by(Participantes) %>%
summarise(PG) %>%
data.frame() %>% flextable()
tabela1 %>% flextable::theme_box()
Participantes | PG |
Athletico Paranaense | 64 |
Atletico Mineiro | 48 |
Avai | 20 |
Bahia | 49 |
Botafogo | 43 |
Ceara | 39 |
Chapecoense | 32 |
Corinthians | 56 |
Cruzeiro | 36 |
CSA | 32 |
Flamengo | 90 |
Fluminense | 46 |
Fortaleza | 53 |
Goias | 52 |
Gremio | 65 |
Internacional | 57 |
Palmeiras | 74 |
Santos | 74 |
Sao Paulo | 63 |
Vasco | 49 |
tabela2 <- tabela_brasileiro_2019_4_ %>% select(Participantes, `renda_liquida_(mi_reais)`) %>%
group_by(Participantes) %>%
summarise(`renda_liquida_(mi_reais)`) %>%
data.frame() %>% flextable()
tabela2 %>% flextable::theme_box()
Participantes | renda_liquida_.mi_reais. |
Athletico Paranaense | 2.91 |
Atletico Mineiro | -0.39 |
Avai | 0.42 |
Bahia | 4.21 |
Botafogo | -1.42 |
Ceara | 2.77 |
Chapecoense | 1.37 |
Corinthians | 19.55 |
Cruzeiro | 1.21 |
CSA | 3.52 |
Flamengo | 26.26 |
Fluminense | -1.74 |
Fortaleza | 2.95 |
Goias | 5.13 |
Gremio | 8.61 |
Internacional | 10.29 |
Palmeiras | 17.79 |
Santos | 31.94 |
Sao Paulo | 15.91 |
Vasco | 5.92 |
tabela3 <- tabela_brasileiro_2019_4_ %>% select(Participantes, GP) %>%
group_by(Participantes) %>%
summarise(GP) %>%
data.frame() %>% flextable()
tabela3 %>% flextable::theme_box()
Participantes | GP |
Athletico Paranaense | 51 |
Atletico Mineiro | 45 |
Avai | 18 |
Bahia | 44 |
Botafogo | 31 |
Ceara | 36 |
Chapecoense | 31 |
Corinthians | 42 |
Cruzeiro | 27 |
CSA | 24 |
Flamengo | 86 |
Fluminense | 38 |
Fortaleza | 50 |
Goias | 46 |
Gremio | 64 |
Internacional | 44 |
Palmeiras | 61 |
Santos | 60 |
Sao Paulo | 39 |
Vasco | 39 |
par(cex=0.7)
plot(tabela_brasileiro_2019_4_$`ingressos_vendidos_(mi)`,tabela_brasileiro_2019_4_$GP, pch=16, col="red",
main = "Relação de Gols e Ingressos Vendidos",
ylab = "Gols Pró" , xlab = "Ingressos Vendidos",
ylim = c(0,100))
barplot(GP~`renda_liquida_(mi_reais)`,data = tabela_brasileiro_2019_4_,col="red", xlab ="Renda Liquída (Milhões)", ylab = "Quantidade de Gols", ylim = c(0,100))
HOJE_TEM
Brasil_Way