ATV 5 E 6

##média##
load("C:/Users/julia/Downloads/Base_de_dados-master/Base_de_dados-master/Game of Thrones.RData")
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)
media_1 <- round (mean(tempo_de_tela$minutos))
media_1

## [1] 27

desvio_1 <- round(sd(tempo_de_tela$minutos),2)
desvio_1

## [1] 46.03

summary((tempo_de_tela$minutos))

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   1.150   4.375  10.300  27.261  27.650 293.300

##BOXPLOT##
boxplot(tempo_de_tela$minutos,col=c("orange"), main= "Tempo de tela por episodio")

personagens_livro$nobre<-ifelse(personagens_livro$nobre==1,'nobre','pebleu')

##tabelas##
tabela_01<-
  table(personagens_livro$sexo, personagens_livro$nobre)
tabela_01

##            
##             nobre pebleu
##   femenino     84     73
##   masculino   346    414

tabela_01 %>% data.frame() %>% flextable() %>% theme_tron()

Var1	Var2	Freq
femenino	nobre	84
masculino	nobre	346
femenino	pebleu	73
masculino	pebleu	414

##gráficos##
graf_barras <-
  barplot(tabela_01,legend=TRUE, beside= TRUE, main= "GRÁFICO NÚMERO DE NOBRES E NÃO NOBRES POR GÊNERO",col=c("blue", "purple"))

graf_barras

##      [,1] [,2]
## [1,]  1.5  4.5
## [2,]  2.5  5.5

Para a realização da atividade, houve a necessidade de importar dados da biblioteca, sendo, assim, possível calcular a média padrão.

Nobreza e sexo foram as opções para a fabricação de variáveis qualitativas e de proporção. Feito isso, temos a tabela e o gráfico.

Pelo gráfico, conclui-se que a quantidade de mulheres plebeias e nobres é semelhante e a de homens plebeus prevalece frente ao número de nobres.

ATV 5 E 6

GIAN MARCO

09/08/2021