Trabalho Bioestatística

Author

Ana Prya Bartolo Gomes, Bruna Lacerda, Felipe Almada, Ismael de Jesus, Luiz Daniel Gonzalez de Sena, Michaelle Nery

library(readxl)
world_data_2023 <- read_excel("~/Custom Office Templates/world-data-2023.xltx", 
    col_types = c("text", "text", "text", 
        "numeric", "numeric", "text", "numeric", 
        "text", "numeric", "text", "text", 
        "text", "text", "text", "numeric", 
        "text"))
View(world_data_2023)

Pib para faixa

world_data_2023$`PIB ($)`<-cut(world_data_2023$`PIB ($)`,c(0, 14083906357,95503088538,21427700000000))
world_data_2023$`PIB ($)`

world_data_2023$`PIB ($)`
levels(world_data_2023$`PIB ($)`)<-c("Baixo", "Médio", "Alto")

Emissões para faixa

world_data_2023$`Emissão de Co2 (toneladas)`<-cut(world_data_2023$`Emissão de Co2 (toneladas)`,c(0,2065,34693,9893038))
world_data_2023$`Emissão de Co2 (toneladas)`
 
world_data_2023$`Emissão de Co2 (toneladas)`
levels(world_data_2023$`Emissão de Co2 (toneladas)`)<-c("Baixo", "Médio", "Alto")

Gráfico Emissões x PIB

# world_data_2023 %>%
#  filter(!is.na(`Emissão de Co2 (toneladas)`)) %>%
#  filter(!is.na(`PIB ($)`)) %>%
#  ggplot() +
#   aes(x = `Emissão de Co2 (toneladas)`, y = `PIB ($)`) +
#   geom_tile() +
#   theme_minimal()

Gráfico Taxa de Desemprego x Continente

world_data_2023$`Taxa de desemprego (%)`<-cut(world_data_2023$`Taxa de desemprego (%)`,c(0,14,29))
world_data_2023$`Taxa de desemprego (%)`
levels(world_data_2023$`Taxa de desemprego (%)`)<-c("Baixo", "Alto")


world_data_2023$`Taxa de desemprego (%)`
library(dplyr)
library(ggplot2)

world_data_2023 %>%
 filter(!is.na(Continente)) %>%
 filter(!is.na(`Taxa de desemprego (%)`)) %>%
 ggplot() +
 aes(x = Continente, fill = `Taxa de desemprego (%)`) +
 geom_bar() +
 scale_fill_hue(direction = 1) +
 coord_flip() +
 theme_minimal() +
 theme(plot.title = element_text(face = "bold", hjust = 0.5))

Gráfico Taxa de Desemprego x Continente

world_data_2023$`Taxa de desemprego (%)`<- as.numeric(world_data_2023$`Taxa de desemprego (%)`)
str(world_data_2023)

 world_data_2023 %>%
 filter(!is.na(Continente)) %>%
 filter(!is.na(`Área florestal (%)`)) %>%
 filter(!is.na(`Taxa de desemprego (%)`)) %>%
 ggplot() +
  aes(x = Continente, y = `Taxa de desemprego (%)`) +
  geom_boxplot(fill = "#112446") +
  labs(title = "Taxa de desemprego por continente") +
  theme_minimal() +
  theme(plot.title = element_text(face = "bold", hjust = 0.5))

Descrição de Taxa de desemprego (mediana, VC, IQR)

library(summarytools)
descr(world_data_2023$`Taxa de desemprego (%)`)

Descriptive Statistics  
world_data_2023$`Taxa de desemprego (%)`  
N: 196  

                      Taxa de desemprego (%)
----------------- --------------------------
             Mean                       1.10
          Std.Dev                       0.30
              Min                       1.00
               Q1                       1.00
           Median                       1.00
               Q3                       1.00
              Max                       2.00
              MAD                       0.00
              IQR                       0.00
               CV                       0.27
         Skewness                       2.71
      SE.Skewness                       0.18
         Kurtosis                       5.36
          N.Valid                     176.00
        Pct.Valid                      89.80

Gráfico Salário Mínimo x Taxa de Natalidade

world_data_2023$`Taxa de natalidade`<- as.numeric(world_data_2023$`Taxa de natalidade`)
world_data_2023$`Salário Mínimo($)`<- as.numeric(world_data_2023$`Salário Mínimo($)`)
str(world_data_2023)

world_data_2023 %>%
 filter(!is.na(`Taxa de natalidade`)) %>%
 filter(!is.na(`Salário Mínimo($)`)) %>%
 ggplot() +
  geom_smooth(span = 1L) +
  aes(x = `Salário Mínimo($)`, y = `Taxa de natalidade`) +
  geom_point(shape = "circle", size = 1.5, colour = "#112446") +
  labs(
    title = "Influência do salário mínimo na taxa de natalidade"
  ) +
  theme_minimal() +
  theme(plot.title = element_text(face = "bold", hjust = 0.5))

Gráfico Densidade x Continente

library(dplyr)
library(ggplot2)

world_data_2023 %>%
 filter(!is.na(Continente)) %>%
 filter(!is.na(`Densidade (P/Km2)`)) %>%
 ggplot() +
 aes(x = Continente, weight = `Densidade (P/Km2)`) +
 geom_bar(fill = "#112446") +
 labs(y = "Densidade (P\\Km2)") +
 theme_minimal()

Warning: Computation failed in `stat_count()`
Caused by error in `FUN()`:
! 'type' inválido (character) do argumento

Área Florestal para faixa

world_data_2023$`Área florestal (%)`<- as.numeric(world_data_2023$`Área florestal (%)`)

world_data_2023$`Área florestal (%)`<-cut(world_data_2023$`Área florestal (%)`,c(0,31.8,98.3))

world_data_2023$`Área florestal (%)`
levels(world_data_2023$`Área florestal (%)`)<-c("Pouco extensa", "Extensa")

Emissão de Co2 para faixa

world_data_2023$`Emissão de Co2 (toneladas)`<-as.numeric(world_data_2023$`Emissão de Co2 (toneladas)`)

world_data_2023$`Emissão de Co2 (toneladas)`<-cut(world_data_2023$`Emissão de Co2 (toneladas)`,c(0,2065,34693,9893038))
world_data_2023$`Emissão de Co2 (toneladas)`
 
world_data_2023$`Emissão de Co2 (toneladas)`
levels(world_data_2023$`Emissão de Co2 (toneladas)`)<-c("Baixo", "Médio", "Alto")

Gráfico Emissão de Co2 x Área florestal

library(dplyr)
library(ggplot2)

world_data_2023 %>%
 filter(!is.na(Continente)) %>%
 filter(!is.na(`Taxa de natalidade`)) %>%
 filter(!is.na(`Emissão de Co2 (toneladas)`)) %>%
 filter(!is.na(`Área florestal (%)`)) %>%
 filter(!is.na(`PIB ($)`)) %>%
 filter(!is.na(`Salário Mínimo($)`)) %>%
 filter(!is.na(`Taxa de desemprego (%)`)) %>%
 ggplot() +
 aes(x = `Emissão de Co2 (toneladas)`, fill = `Área florestal (%)`) +
 geom_bar() +
 scale_fill_hue(direction = 1) +
 labs(y = " ") +
 theme_minimal()