Untitled

Questionario_Estresse <-("Base_de_dados-master/Questionario_Estresse.xls")


class(Questionario_Estresse)

## [1] "character"

summary(Questionario_Estresse)

##    Length     Class      Mode 
##         1 character character

Tabela1 = table(Questionario_Estresse)
Tabela1

## Questionario_Estresse
## Base_de_dados-master/Questionario_Estresse.xls 
##                                              1

prop.table(Tabela1)

## Questionario_Estresse
## Base_de_dados-master/Questionario_Estresse.xls 
##                                              1

round(prop.table(Tabela1)*100)

## Questionario_Estresse
## Base_de_dados-master/Questionario_Estresse.xls 
##                                            100

Podemos observar na tabela de proporção que existe uma proporcionalidade entre os alunos que trabalham e os que não.

class(Tabela1)

## [1] "table"

class(Questionario_Estresse)

## [1] "character"

pie(Tabela1, main ="Meu grafico de pizza",col = c("Blue","Yellow"))

Podemos observar no gráfico de pizza que de cada 100 alunos 38 trabalham e 62 não trabalham.