Tugas2_statistika

`

library(ggplot2)
library(readxl)
library(DT)
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

dataset <- read_xlsx("C:/Users/HP/Downloads/dataset.xlsx")
datatable(dataset)

top5tersedia <- dataset %>%
  slice_max(`Tersedia`, n = 5) %>%
  arrange(`Tersedia`)

bottom5tersedia <- dataset %>%
  slice_min(`Tersedia`, n = 5) %>%
  arrange(`Tersedia`)


ggplot(data = top5tersedia, 
       mapping = aes(x = reorder(Kota, `Tersedia`), y = `Tersedia`)) + 
  geom_col(fill = "pink", alpha = 0.7) + 
  labs(
    title = "5 Kabupaten/Kota dengan Data Tersedia Terbesar", 
    x = "Kabupaten/Kota", 
    y = "Tersedia"
  ) + 
  geom_text(aes(label = `Tersedia`), vjust = -0.25)

ggplot(data = bottom5tersedia, 
       mapping = aes(x = reorder(Kota, `Tersedia`), y = `Tersedia`)) + 
  geom_col(fill = "red", alpha = 0.7) + 
  labs(
    title = "5 Kabupaten/Kota dengan Data Tersedia Terendah", 
    x = "Kabupaten/Kota", 
    y = "Tersedia"
  ) + 
  geom_text(aes(label = `Tersedia`), vjust = -0.25)

  ggplot(
  data = top5tersedia,
  mapping = aes(
    x = reorder(Kota, `Tersedia`),
    y = `Tersedia`
  )
) +
  geom_segment(
    aes(
      xend = reorder(Kota, `Tersedia`),
      y = 0,
      yend = `Tersedia`
    ),
    color = "skyblue"
  ) +
  geom_point(
    color = "navyblue",
    size = 4,
    alpha = 0.6
  ) +
  geom_text(
    aes(label = `Tersedia`),
    hjust = -0.3
  ) +
  coord_flip() +
  labs(
    title = "5 Kabupaten/Kota dengan Data Tersedia Terbesar",
    y = "Jumlah Data Tersedia",
    x = "Kabupaten/Kota"
  )

  bottom5 <- dataset %>%
  slice_min(`Persentase Tersedia`, n = 5) %>%
  arrange(`Persentase Tersedia`)

ggplot(
  bottom5,
  aes(x = reorder(Kota, `Persentase Tersedia`),
      y = `Persentase Tersedia`)
) +
  geom_segment(
    aes(
      xend = reorder(Kota, `Persentase Tersedia`),
      y = 0,
      yend = `Persentase Tersedia`
    ),
    color = "tomato"
  ) +
  geom_point(
    color = "darkred",
    size = 4,
    alpha = 0.7
  ) +
  geom_text(
    aes(label = round(`Persentase Tersedia`, 2)),
    hjust = -0.2
  ) +
  coord_flip() +
  labs(
    title = "5 Kabupaten/Kota dengan Persentase Tersedia Terendah",
    x = "Kabupaten/Kota",
    y = "Persentase Tersedia (%)"
  )

  ggplot(dataset, aes(x = `Tersedia`)) +
  geom_histogram(
    bins = 10,
    fill = "skyblue",
    color = "black",
    alpha = 0.7
  ) +
  labs(
    title = "Distribusi Jumlah Data Tersedia",
    x = "Tersedia",
    y = "Frekuensi"
  ) +
  theme_minimal()

  ggplot(dataset, aes(x = `Tidak tersedia`)) +
  geom_histogram(
    bins = 10,
    fill = "coral",
    color = "black",
    alpha = 0.7
  ) +
  labs(
    title = "Distribusi Jumlah Data Tidak Tersedia",
    x = "Tidak tersedia",
    y = "Frekuensi"
  ) +
  theme_minimal()

  ggplot(dataset, aes(x = `Persentase Tersedia`)) +
  geom_histogram(
    bins = 10,
    fill = "mediumseagreen",
    color = "black",
    alpha = 0.7
  ) +
  labs(
    title = "Distribusi Persentase Data Tersedia",
    x = "Persentase Tersedia (%)",
    y = "Frekuensi"
  ) +
  theme_minimal()

  ggplot(dataset, aes(x = `Persentase Tersedia`)) +
  geom_density(
    fill = "purple",
    alpha = 0.4,
    color = "purple"
  ) +
  labs(
    title = "Distribusi Kepadatan Persentase Data Tersedia",
    x = "Persentase Tersedia (%)",
    y = "Density"
  ) +
  theme_minimal()

  ggplot(
  dataset,
  aes(x = `Tersedia`, y = `Tidak tersedia`)
) +
  geom_point(
    color = "navyblue",
    size = 3,
    alpha = 0.6
  ) +
  labs(
    title = "Hubungan Data Tersedia dan Tidak Tersedia",
    x = "Tersedia",
    y = "Tidak tersedia"
  ) +
  theme_minimal()

  ggplot(
  dataset,
  aes(x = `Tersedia`, y = `Tidak tersedia`)
) +
  geom_point(
    color = "navyblue",
    size = 3,
    alpha = 0.6
  ) +
  geom_smooth(
    method = "lm",
    se = FALSE,
    color = "red"
  ) +
  labs(
    title = "Hubungan Data Tersedia dan Tidak Tersedia",
    x = "Tersedia",
    y = "Tidak tersedia"
  ) +
  theme_minimal()

## `geom_smooth()` using formula = 'y ~ x'