ATIVIDADE 3

Prévia do material em texto

Aluno: Dalton Gomes Pereira
Tutor (a): Taiane Dorati Becaro
Grupo: A
PARTE 1
Questão 1
> library(readxl)
> Consumo <- read_excel("Consumo de carne.xlsx")
> View(Consumo)
Questão 2
Gráfico 1 <- plot(Consumo$ano,Consumo$consumo_bovino,type = "l")
Questão 3
Grafico2 <-plot(Consumo$ano,Consumo$consumo_bovino,type = "l",ylim =
c(0,105),col="red",lwd=3,main = "Consumo",xlab = "Ano",ylab = "Libras/ano")
Grafico3 <-plot(Consumo$ano,Consumo$consumo_bovino,type = "l")
> lines(Consumo$ano,Consumo$consumo_frango)
Grafico5<-plot(Consumo$ano,Consumo$consumo_bovino,type = "l",ylim =
c(0,105),col="red",lwd=2,main = "Consumo",xlab = "Ano",ylab = "Libras/ano")
> lines(Consumo$ano,Consumo$consumo_frango,col="green",lwd=2)
> lines(Consumo$ano,Consumo$consumo_suino,col="blue",lwd=2)
Questão 4
> par(mfrow=c(1,2))
> plot(Consumo$ano,Consumo$consumo_bovino,type = "l",ylim =
c(0,105),col="red",lwd=2,main = "Consumo",xlab = "Ano",ylab = "Consumo-por-habitante")
> lines(Consumo$ano,Consumo$consumo_frango,col="green",lwd=2)
> plot(Consumo$ano,Consumo$preco_bovino_varejo,type = "l",ylim =
c(0,600),col="red",lwd=2,main = "Preço",xlab = "Ano",ylab = "Preco-por-ano")
> lines(Consumo$ano,Consumo$preco_frango_varejo,col="green",lwd=2)
Questão 5
Por meio da análise dos gráficos é possível identificar um aumento no consumo de carne de
frango em relação à carne bovina pois há um aumento exponencial no valor da carne bovina e
por conta da falta e/ou dos baixos recursos financeiros que grande parte da sociedade possui,
fica inviável a continuidade de consumo de carne bovina.
Questão 6
par(mfrow=c(1,1))
PARTE 2
Questão 7
> library(readr)
> pesquisa <- read_delim("pesquisa.csv", delim = ";",
+ escape_double = FALSE, trim_ws = TRUE)
Questão 8
Média
> mean(pesquisa$bovino)
[1] 18.755
Mediana
> median(pesquisa$bovino)
[1] 17.5
Histograma
> hist(pesquisa$bovino)
> abline(v=mean(pesquisa$bovino))
É possível observar uma grande proximidade nos dados obtidos de acordo com o consumo de
carne bovina entre os 100 indivíduos, no quesito média e mediana, o histograma apresenta
uma grande variação na frequência anual no consumo de carne em relação a todos os
indivíduos.
Questão 9
Média
> mean(pesquisa$frango)
[1] 9.635
Mediana
> median(pesquisa$frango)
[1] 9.9
Histograma
> hist(pesquisa$frango)
> abline(v=mean(pesquisa$frango))
É possível observar uma grande proximidade nos valores dos dados analisados, mediante a
média, mediana e o histograma.
Questão 10
Média
> mean(pesquisa$porco)
[1] 3.409
Mediana
> median(pesquisa$porco)
[1] 2.55
Histograma
> hist(pesquisa$porco)
> abline(v=mean(pesquisa$porco))
Após a análise de dados, foi possível definir uma grande diferença em relação a média,
mediana e o histograma, possuindo valores bem distintos quando se comparadas todas as
variáveis, isso indica que o consumo de carne suína encontra-se bastante baixo em relação
aos outros tipos de carnes.
Questão 11
Desvio padrão
Bovino
> sd(pesquisa$bovino)
[1] 11.92795
Frango
> sd(pesquisa$frango)
[1] 4.17722
Suíno
> sd(pesquisa$porco)
[1] 3.43288
Por meio da análise do desvio padrão foi possível definir que o consumo de carne bovina
possui maior variabilidade que as demais.