Trabalho Individual Flávia

library(rmarkdown)
library(ggplot2)
library(dplyr)

Warning: pacote 'dplyr' foi compilado no R versão 4.4.2

Anexando pacote: 'dplyr'

Os seguintes objetos são mascarados por 'package:stats':

    filter, lag

Os seguintes objetos são mascarados por 'package:base':

    intersect, setdiff, setequal, union

library(plotly)

Warning: pacote 'plotly' foi compilado no R versão 4.4.2

Anexando pacote: 'plotly'

O seguinte objeto é mascarado por 'package:ggplot2':

    last_plot

O seguinte objeto é mascarado por 'package:stats':

    filter

O seguinte objeto é mascarado por 'package:graphics':

    layout

library (polycor)

Warning: pacote 'polycor' foi compilado no R versão 4.4.2

library(png)

Introdução

Nesta aula, vamos investigar as relações entre variáveis qualitativas e quantitativas, qualitativa e qualitativa, e quantitativa e quantitativa em um conjunto de dados relacionados à saúde e nutrição. Utilizaremos tabelas de contingência, gráficos e medidas estatísticas apropriadas para realizar esta análise.

Dados simulados.

# Definindo semente para reprodutibilidade
set.seed(123)

# Criando conjunto de dados simulado
n <- 150
dados <- data.frame(
  Idade = round(rnorm(n, mean = 40, sd = 15)),
  IMC = round(rnorm(n, mean = 25, sd = 4), 1),
  Atividade_Fisica = factor(sample(c("Baixa", "Moderada", "Alta"), n, replace = TRUE)),
  Fumante = factor(sample(c("Sim", "Não"), n, replace = TRUE)),
  Colesterol = round(rnorm(n, mean = 200, sd = 30)),
  Pressão_Arterial = round(rnorm(n, mean = 120, sd = 15))
)

# Visualizando as primeiras linhas do conjunto de dados
head(dados)

  Idade  IMC Atividade_Fisica Fumante Colesterol Pressão_Arterial
1    32 28.2         Moderada     Sim        170              120
2    37 28.1            Baixa     Não        149               74
3    63 26.3             Alta     Não        253              137
4    41 21.0             Alta     Sim        154              110
5    42 24.5             Alta     Sim        194              123
6    66 23.9         Moderada     Sim        196              124