Statistika Deskriptif

Statistika Deskriptif

Instal Packages dplyr

#install.packages(dplyr)
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

Membuat Vektor

#data nama
nama1 <- c("Budi", "Ani", "Nita", "Caca", "Yuni", "Bella", "Yuki", "Zeze", "Kiki", "Kia")

#data berat badan
bb1 <- c(45, 50, 67, 89, 56, 87, 66, 50, 56, 44)

#data tinggi badan
tb1 <- c(150, 165, 176, 155, 187, 163, 145, 169, 170, 165)

kelas1 <- data.frame (nama1, bb1, tb1)
kelas1

##    nama1 bb1 tb1
## 1   Budi  45 150
## 2    Ani  50 165
## 3   Nita  67 176
## 4   Caca  89 155
## 5   Yuni  56 187
## 6  Bella  87 163
## 7   Yuki  66 145
## 8   Zeze  50 169
## 9   Kiki  56 170
## 10   Kia  44 165

Mean

mean_bb1 <- mean(kelas1$bb1)
cat ("mean berat badan:", mean_bb1, "kg" )

## mean berat badan: 61 kg

mean_tb1 <- mean(kelas1$tb1)
cat ("mean tinggi badan:", mean_tb1, "cm" )

## mean tinggi badan: 164.5 cm

Modus

modus <- function(x) {
  ux <- unique (x)
  ux[which.max(tabulate(match(x,ux)))]
}

modus_tb1 <- modus(tb1)
cat("modus tinggi badan:", modus_tb1, "cm")

## modus tinggi badan: 165 cm

modus_bb1 <- modus(bb1)
cat("modus berat badan:", modus_bb1, "kg")

## modus berat badan: 50 kg

Range

range_bb1 <- range(kelas1$bb1)
cat ("range berat badan:", range_bb1)

## range berat badan: 44 89

range_tb1 <- range(kelas1$tb1)
cat ("range tinggi badan:", range_tb1)

## range tinggi badan: 145 187

Variansi

var_bb1 <- var(kelas1$bb1)
cat ("variansi berat badan:", var_bb1)

## variansi berat badan: 262

var_tb1 <- var(kelas1$tb1)
cat ("variansi tinggi badan:", var_tb1)

## variansi tinggi badan: 152.5

Standard Deviasi

sd_bb1 <- sd(kelas1$bb1)
cat ("standard deviasi berat badan:", sd_bb1)

## standard deviasi berat badan: 16.18641

sd_tb1 <- sd(kelas1$tb1)
cat ("standard deviasi tinggi badan:", sd_tb1)

## standard deviasi tinggi badan: 12.34909

Visualisasi Data

Histogram

hist(kelas1$bb1, col = "maroon",
     main = "Histogram Berat Badan Mahasiswa Kelas 1",
     xlab = "Berat Badan (kg)")

Boxplot

boxplot(kelas1$bb1, col = "yellow",
     main = "Boxplot Berat Badan Mahasiswa Kelas 1")

Barplot

barplot(kelas1$bb1, col ="pink",
     main = "Barplot Berat Badan Mahasiswa Kelas 1",
     ylab = "Berat Badan (kg)")