Visualisasi Rentang Waktu

Data yang digunakan diambil dari databooks.com tentang jumlah pengguna internet di Indonesia dalam rentang waktu 10 tahun terakhir (2013-2023)

library(readxl)
library(ggplot2)

# Path ke file Excel Anda
file_path <- "D:/beatrics/jumlah-pengguna-internet-di-indonesia-2013-2023.xlsx"

# Membaca data dari file Excel
data <- read_excel(file_path, sheet = 1)

# Menampilkan data awal
head(data)
## # A tibble: 6 × 3
##     No. `Nama Data` `Jumlah Pengguna Internet di Indonesia`
##   <dbl> <chr>       <chr>                                  
## 1     1 2013        70,5                                   
## 2     2 2014        88,9                                   
## 3     3 2015        89,9                                   
## 4     4 2016        135                                    
## 5     5 2017        144                                    
## 6     6 2018        172
# Mengganti nama kolom
colnames(data) <- c("No", "Nama_Data", "Jumlah_Pengguna")

# Mengonversi kolom "Nama_Data" menjadi faktor urutan (ordered factor)
data$Nama_Data <- factor(data$Nama_Data, levels = unique(data$Nama_Data), ordered = TRUE)

# Membuat visualisasi time series (Line Plot)
line_plot <- ggplot(data, aes(x = Nama_Data, y = Jumlah_Pengguna, group = 1)) +
  geom_line(color = "blue") +
  labs(title = "Jumlah Pengguna Internet di Indonesia (2013-2023)",
       x = "Periode",
       y = "Jumlah Pengguna Internet") +
  theme_minimal() +
  theme(axis.text.x = element_text(angle = 90, hjust = 1))  # Memutar teks x-axis agar lebih mudah dibaca

# Membuat visualisasi bar plot
bar_plot <- ggplot(data, aes(x = Nama_Data, y = Jumlah_Pengguna, fill = Nama_Data)) +
  geom_bar(stat = "identity") +
  labs(title = "Jumlah Pengguna Internet di Indonesia (2013-2023)",
       x = "Periode",
       y = "Jumlah Pengguna Internet") +
  theme_minimal() +
  theme(axis.text.x = element_text(angle = 90, hjust = 1)) +  # Memutar teks x-axis agar lebih mudah dibaca
  scale_fill_viridis_d(name = "Periode", guide = FALSE)       # Menghilangkan legend karena tidak diperlukan

# Menampilkan kedua plot
print(line_plot)

print(bar_plot)
## Warning: The `guide` argument in `scale_*()` cannot be `FALSE`. This was deprecated in
## ggplot2 3.3.4.
## ℹ Please use "none" instead.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.