library(readxl)
Questionario_Estresse <- read_excel("C:/Users/Dell/Desktop/Base_de_dados-master/Questionario_Estresse.xls", 
                                    sheet = "Dados")

##Trabalho 003 Trabalho de análises qualitativas e gráfico pizza, foi importado do Excel um arquivo de onde foram escolhidos duas informações para fazer tabela de proporção e gráficos pizza.

##ADICIONEI O QUESTIONÁRIO DE INTERESSE

str(Questionario_Estresse)
## tibble [95 x 10] (S3: tbl_df/tbl/data.frame)
##  $ Aluno       : num [1:95] 1 2 3 4 5 6 7 8 9 10 ...
##  $ Turma       : num [1:95] 1 1 1 1 1 1 1 1 1 1 ...
##  $ Mora_pais   : num [1:95] 2 1 2 2 2 2 2 1 1 1 ...
##  $ RJ          : num [1:95] 2 1 2 2 2 2 2 1 1 1 ...
##  $ Namorado_a  : num [1:95] 2 2 2 1 2 1 2 1 2 2 ...
##  $ Trabalha    : num [1:95] 2 2 2 1 1 1 2 1 1 1 ...
##  $ Desempenho  : num [1:95] 8.89 8.8 8 8.8 8.9 8.1 9.2 8.5 8.7 8.3 ...
##  $ Estresse    : num [1:95] 23 24 25 38 41 25 41 20 26 36 ...
##  $ Créditos    : num [1:95] 27 28 25 21 18 29 26 24 20 49 ...
##  $ Horas_estudo: num [1:95] 27 28 25 30 20 32 25 25 25 59 ...
summary(Questionario_Estresse)
##      Aluno          Turma         Mora_pais           RJ          Namorado_a   
##  Min.   : 1.0   Min.   :1.000   Min.   :1.000   Min.   :1.000   Min.   :1.000  
##  1st Qu.:24.5   1st Qu.:1.000   1st Qu.:1.000   1st Qu.:1.000   1st Qu.:1.000  
##  Median :48.0   Median :2.000   Median :2.000   Median :2.000   Median :2.000  
##  Mean   :48.0   Mean   :2.074   Mean   :1.537   Mean   :1.653   Mean   :1.505  
##  3rd Qu.:71.5   3rd Qu.:3.000   3rd Qu.:2.000   3rd Qu.:2.000   3rd Qu.:2.000  
##  Max.   :95.0   Max.   :3.000   Max.   :2.000   Max.   :2.000   Max.   :2.000  
##                                                                                
##     Trabalha       Desempenho       Estresse        Créditos    
##  Min.   :1.000   Min.   :5.820   Min.   :12.00   Min.   :15.00  
##  1st Qu.:1.000   1st Qu.:8.500   1st Qu.:22.50   1st Qu.:23.00  
##  Median :2.000   Median :8.700   Median :27.00   Median :24.00  
##  Mean   :1.621   Mean   :8.594   Mean   :27.82   Mean   :24.95  
##  3rd Qu.:2.000   3rd Qu.:9.050   3rd Qu.:33.00   3rd Qu.:27.00  
##  Max.   :2.000   Max.   :9.700   Max.   :44.00   Max.   :49.00  
##                                                  NA's   :1      
##   Horas_estudo  
##  Min.   :19.00  
##  1st Qu.:25.00  
##  Median :30.00  
##  Mean   :30.73  
##  3rd Qu.:35.00  
##  Max.   :60.00  
##

##INSERI A TABELA DE QUANTAS HORAS DE ESTUDO E NAMORO

Foi inserida a tabela de quantas horas de estudo e namoro

tabela_comb <- table(Questionario_Estresse$Horas_estudo)
tabela_comb
## 
## 19 20 21 23 24 25 26 27 28 29 30 32 33 34 35 36 40 44 59 60 
##  1  6  1  2  6  9  4  1  6  4 18  5  6  1  6  6  8  3  1  1
tabela_nam <- table(Questionario_Estresse$Trabalha)
tabela_nam
## 
##  1  2 
## 36 59

##Tabela de interesse ADICIONEI A TABELA DE INFORMAÇÕES DAS INFORMAÇÕES DA TABELA, MULTIPLICANDO POR CEM, COMO VIMOS NA AULA, PARA FICAR COM O NÚMERO MAIS ARREDONDADO

prop.table(tabela_comb)*100
## 
##        19        20        21        23        24        25        26        27 
##  1.052632  6.315789  1.052632  2.105263  6.315789  9.473684  4.210526  1.052632 
##        28        29        30        32        33        34        35        36 
##  6.315789  4.210526 18.947368  5.263158  6.315789  1.052632  6.315789  6.315789 
##        40        44        59        60 
##  8.421053  3.157895  1.052632  1.052632
prop.table(tabela_nam)*100
## 
##        1        2 
## 37.89474 62.10526

##Pizza

E POR FIM FOI FEITO O GRÁFICO PIZZA

pie(tabela_comb)

pie(tabela_comb,main="HORAS")

pie(tabela_nam,main ="NAMORO")

Gráfico: SEGUNDO TRABALHO DA MATÉRIA DE ESTATISTICA, DENTRE OS ALUNOS ENTREVISTADOS PARA OS DADOS DO QUESTIONÁRIO, A MÉDIA DE HORAS ESTUDADAS É 30.37, E MAIORIA DOS ESTUDANTES NÃO NAMORA