Trabalho Aula 2

———————————————————–

DADOS IMPORTADOS DO EXCEL

———————————————————–

library(readxl)
estresse <- read_excel("C:/Users/carol/OneDrive/Documentos/estresse.xls", sheet = "Dados")
View(estresse)

———————————————————–

TABELA DE QUEM MORA OU NAO COM OS PAIS

———————————————————–

tabela <- table (estresse$Mora_pais)
tabela

## 
##  1  2 
## 44 51

———————————————————–

TABELA DE QUEM NAMORA

———————————————————–

tabela2 <- table (estresse$Namorado_a)
tabela2

## 
##  1  2 
## 47 48

———————————————————–

GRAFICO DE QUEM MORA OU NAO COM PAIS

———————————————————–

grafico1 <-pie(tabela,main = "Quem mora com pais",
               col =c("red","grey"))

———————————————————–

GRAFICO DE QUEM NAMORA

———————————————————–

grafico2 <-pie(tabela2,main = "Quem namora",
               col = c("pink", "yellow"))

———————————————————–

CONCLUSÃO

———————————————————–

Foram analisados neste trabalho, dois casos, pessoas que moravam com pais e pessoas que namoravam ou não. Podemos concluir que 44 moram com pais e 51 não moram com os pais e 47 namoram e 48 não namoram.