Disini kita akan membahas penerapan integrasi dalam kehidupan sehari-hari.

Dalam kasus ini, kita memiliki fungsi konsumsi harian (C(t)) yang merupakan fungsi sederhana.Grafik menunjukkan bagaimana konsumsi harian berubah selama periode waktu tertentu (ditunjukkan oleh kurva garis), dan area kurva (diisi dengan warna biru) mencerminkan total konsumsi selama periode tersebut.

# Load library
library(ggplot2)
# Disini kita menggunakan fungsi library() untuk memuat paket atau pustaka ggplot2. Paket ini digunakan untuk membuat grafik dalam lingkungan R.

# Fungsi konsumsi harian
# pada Fungsi konsumsi dalam contoh ini adalah (10+2sin(t))
consumption_function <- function(t) {
  return(10 + 2 * sin(t))
}

# Batas waktu
# Menetapkan batas waktu atau periode dalam hal t. Dalam contoh ini, periode adalah dari 0 hingga 2π.
time_range <- c(0, 2 * pi)  # Contoh periode 0 hingga 2*pi

# Buat grid untuk waktu
#Membuat grid waktu dengan 100 titik di dalam rentang waktu yang telah ditentukan.
time <- seq(time_range[1], time_range[2], length.out = 100)

# Hitung nilai fungsi konsumsi di setiap titik pada grid
# Menggunakan sapply untuk menghitung nilai fungsi konsumsi pada setiap titik di grid waktu.
consumption <- sapply(time, consumption_function)

# Plotting hasil
# Menggunakan ggplot untuk membuat grafik konsumsi harian. geom_line() menambahkan garis yang menghubungkan titik-titik pada plot. geom_ribbon() menambahkan area di bawah kurva sebagai visualisasi tambahan. Membuat plot dengan judul dan label sumbu menggunakan labs dan menggunakan tema minimal dengan theme_minimal().
ggplot(data.frame(time, consumption), aes(x = time, y = consumption)) +
  geom_line() +
  geom_ribbon(aes(ymin = 0, ymax = consumption), fill = "lightblue", alpha = 0.5) +
  labs(title = "Total Konsumsi Harian",
       x = "Waktu",
       y = "Konsumsi Harian") +
  theme_minimal()

# Fungsi pemasukan harian
# Fungsi pemasukan dalam contoh ini adalah (15+5cos(t/2)).
income_function <- function(t) {
  return(15 + 5 * cos(t/2))
}

# Batas waktu
time_range <- c(0, 4 * pi)  # Contoh periode 0 hingga 4*pi

# Buat grid untuk waktu
time <- seq(time_range[1], time_range[2], length.out = 100)

# Hitung nilai fungsi pemasukan di setiap titik pada grid
income <- sapply(time, income_function)

# Plotting hasil
ggplot(data.frame(time, income), aes(x = time, y = income)) +
  geom_line() +
  geom_ribbon(aes(ymin = 0, ymax = income), fill = "lightgreen", alpha = 0.5) +
  labs(title = "Total Pemasukan Harian",
       x = "Waktu",
       y = "Pemasukan Harian") +
  theme_minimal()

# Terakhir, menggabungkan kedua fungsi konsumsi dan pemasukan dalam satu grafik. Menggunakan warna berbeda dan gaya garis untuk membedakan keduanya. Juga menambahkan area di bawah kurva sebagai visualisasi tambahan dan memberikan judul serta label sumbu pada grafik. Keseluruhan, kode ini mengilustrasikan cara membuat grafik untuk dua fungsi yang bervariasi sepanjang waktu dan menyatukannya dalam satu grafik menggunakan paket ggplot2 dalam lingkungan R.


# Hitung nilai fungsi konsumsi dan pemasukan di setiap titik pada grid
consumption <- sapply(time, consumption_function)
income <- sapply(time, income_function)

# Data frame untuk ggplot
data <- data.frame(time, consumption, income)

# Plotting hasil
ggplot(data, aes(x = time)) +
  geom_line(aes(y = consumption), color = "purple", linetype = "solid", size = 1) +
  geom_line(aes(y = income), color = "orange", linetype = "dashed", size = 1) +
  geom_ribbon(aes(ymin = 0, ymax = consumption), fill = "lightblue", alpha = 0.5) +
  geom_ribbon(aes(ymin = 0, ymax = income), fill = "lightgreen", alpha = 0.5) +
  labs(title = "Pemasukan dan Konsumsi Harian",
       x = "Waktu",
       y = "Jumlah") +
  theme_minimal()
## Warning: Using `size` aesthetic for lines was deprecated in ggplot2 3.4.0.
## ℹ Please use `linewidth` instead.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.

Dalam kode ini, kita memiliki dua fungsi, yaitu consumption_function dan income_function, masing-masing merepresentasikan konsumsi harian dan pemasukan harian.

Kita menghitung nilai fungsi konsumsi dan pemasukan di setiap titik pada grid waktu yang telah dibuat.

Kita menggunakan ggplot untuk membuat grafik. Dua kurva dipresentasikan menggunakan geom_line, satu untuk konsumsi (ungu) dan satu untuk pemasukan (oren). Kedua area di bawah kurva diisi dengan warna, memberikan gambaran tentang total konsumsi dan pemasukan selama periode waktu yang ditentukan. Dalam grafik ini bisa dilihat bahwa rata-rata pemasukan lebih besar daripada konsumsi