Média Desvio Padrão

Importação dos dados

library(readxl)

## Warning: package 'readxl' was built under R version 3.5.3

Questionario_Estresse <- read_excel("C:/Users/labccet/Downloads/Base_de_dados-master/Questionario_Estresse.xls")

head(Questionario_Estresse)

## # A tibble: 6 x 10
##   Aluno Turma Mora_pais    RJ `Namorado(a)` Trabalha Desempenho Estresse
##   <dbl> <dbl>     <dbl> <dbl>         <dbl>    <dbl>      <dbl>    <dbl>
## 1     1     1         2     2             2        2       8.89       23
## 2     2     1         1     1             2        2       8.8        24
## 3     3     1         2     2             2        2       8          25
## 4     4     1         2     2             1        1       8.8        38
## 5     5     1         2     2             2        1       8.9        41
## 6     6     1         2     2             1        1       8.1        25
## # ... with 2 more variables: Créditos <dbl>, Horas_estudo <dbl>

Manipulação dos Dados

Aqui vou trocar os nomes das colunas e tirar os caracteres especiais.

.

names(Questionario_Estresse)

##  [1] "Aluno"        "Turma"        "Mora_pais"    "RJ"          
##  [5] "Namorado(a)"  "Trabalha"     "Desempenho"   "Estresse"    
##  [9] "Créditos"     "Horas_estudo"

nomes<-c("Aluno","Turma","Mora_pais","RJ","Namorado_a","Trabalha","Desempenho","Estresse","Creditos","Horas_estudo")
colnames(Questionario_Estresse)<-nomes
names(Questionario_Estresse)

##  [1] "Aluno"        "Turma"        "Mora_pais"    "RJ"          
##  [5] "Namorado_a"   "Trabalha"     "Desempenho"   "Estresse"    
##  [9] "Creditos"     "Horas_estudo"

Média e Desvio Padrão

Aqui temos a média e o desvio padrão das variáveis: Créditos, Horas de Estudo e Desempenho do Aluno.

Media_C <- mean(Questionario_Estresse$Creditos,na.rm=TRUE)
Desvio_Padrao_C <- sd(Questionario_Estresse$Creditos,na.rm=TRUE)

Media_C

## [1] 24.94681

Desvio_Padrao_C 

## [1] 4.080815

#-----------------------------------------------------------------

Media_ <- mean(Questionario_Estresse$Horas_estudo)
Desvio_Padrao_ <- sd(Questionario_Estresse$Horas_estudo)

Media_

## [1] 30.72632

Desvio_Padrao_

## [1] 7.276371

#------------------------------------------------------------------

Media_D <- mean(Questionario_Estresse$Desempenho)
Desvio_Padrao_D <- sd(Questionario_Estresse$Desempenho)

Media_D

## [1] 8.593789

Desvio_Padrao_D

## [1] 0.775319

E um Gráfico

par(bg="#f5dcef")
boxplot((Questionario_Estresse$Horas_estudo),col = "pink", main = "Um gráfico",horizontal=TRUE)

Conclusão

É fácil usar o Rmarkdown