Time Series 3 Data Saham

Data saham yang digunakan dalam visualisasi ini meliputi saham Telkom Indonesia (Persero) Tbk (TLKM), Bank Rakyat Indonesia Persero (BBRI), dan Semen Indonesia Persero Tbk (SMGR). Periode data yang diambil mencakup rentang waktu dari 29 Maret 2023 hingga 27 Maret 2025.

Time Series Saham Telkom Indonesia (Persero) Tbk (TLKM)

t <- ggplot(datatelkom, aes(x=Time, y=Price)) +
  geom_line() +
  scale_x_date(date_labels = "%b %Y", date_breaks = "1 months") +
  theme_minimal() +
  theme(axis.text.x=element_text(angle=50, hjust=1)) +
  labs(title = "Saham Telkom Indonesia (Persero) Tbk (TLKM)", 
       x = "Date", 
       y = "Price") +
  theme(plot.title = element_text(hjust = 0.5, size = 16, face = "bold")) +
  geom_vline(xintercept = as.Date("2025-01-01"),
             linetype=2, color=2,
             linewidth=1) +
  geom_vline(xintercept = as.Date("2024-01-01"),
             linetype=2, color=2,
             linewidth=1)
t

Time Series Saham Telkom Indonesia (Persero) Tbk (TLKM) with Peaks

t + stat_peaks(geom = "point", span = 15, color = "steelblue3", size = 2) +
  stat_peaks(geom = "label", span = 15, color = "steelblue3", angle = 0,
             hjust = -0.1, x.label.fmt = "%d%m%y", size = 3) +
  stat_peaks(geom = "rug", span = 15, color = "steelblue3", sides = "b")

Time Series Saham Telkom Indonesia (Persero) Tbk (TLKM) with Valleys

t + stat_valleys(geom = "point", span = 11, color = "hotpink", size = 2) +
  stat_valleys(geom = "label", span = 11, color = "hotpink", angle = 0,
               hjust = -0.1, x.label.fmt = "%Y-%m-%d", size = 3) +
  stat_valleys(geom = "rug", span = 11, color = "hotpink", sides = "b")

Time Series Saham Bank Rakyat Indonesia Persero (BBRI)

b <- ggplot(databri, aes(x=Time, y=Price)) +
  geom_line() +
  scale_x_date(date_labels = "%b %Y", date_breaks = "1 months") +
  theme_minimal() +
  theme(axis.text.x=element_text(angle=50, hjust=1)) +
  labs(title = "Saham Bank Rakyat Indonesia Persero (BBRI)", 
       x = "Date", 
       y = "Price") +
  theme(plot.title = element_text(hjust = 0.5, size = 16, face = "bold")) +
  geom_vline(xintercept = as.Date("2025-01-01"),
             linetype=2, color=2,
             linewidth=1) +
  geom_vline(xintercept = as.Date("2024-01-01"),
             linetype=2, color=2,
             linewidth=1)
b

Time Series Saham Bank Rakyat Indonesia Persero (BBRI) with Peaks

b + stat_peaks(geom = "point", span = 15, color = "steelblue3", size = 2) +
  stat_peaks(geom = "label", span = 15, color = "steelblue3", angle = 0,
             hjust = -0.1, x.label.fmt = "%d%m%y", size = 3) +
  stat_peaks(geom = "rug", span = 15, color = "steelblue3", sides = "b")

Time Series Saham Bank Rakyat Indonesia Persero (BBRI) with Valleys

b + stat_valleys(geom = "point", span = 11, color = "hotpink", size = 2) +
  stat_valleys(geom = "label", span = 11, color = "hotpink", angle = 0,
               hjust = -0.1, x.label.fmt = "%Y-%m-%d", size = 3) +
  stat_valleys(geom = "rug", span = 11, color = "hotpink", sides = "b")

Time Series Saham Semen Indonesia Persero Tbk (SMGR)

s <- ggplot(datasemen, aes(x=Time, y=Price)) +
  geom_line() +
  scale_x_date(date_labels = "%b %Y", date_breaks = "1 months") +
  theme_minimal() +
  theme(axis.text.x=element_text(angle=50, hjust=1)) +
  labs(title = "Saham Semen Indonesia Persero Tbk (SMGR)", 
       x = "Date", 
       y = "Price") +
  theme(plot.title = element_text(hjust = 0.5, size = 16, face = "bold")) +
  geom_vline(xintercept = as.Date("2025-01-01"),
             linetype=2, color=2,
             linewidth=1) +
  geom_vline(xintercept = as.Date("2024-01-01"),
             linetype=2, color=2,
             linewidth=1)
s

Time Series Saham Semen Indonesia Persero Tbk (SMGR) with Peaks

s + stat_peaks(geom = "point", span = 15, color = "steelblue3", size = 2) +
  stat_peaks(geom = "label", span = 15, color = "steelblue3", angle = 0,
             hjust = -0.1, x.label.fmt = "%d%m%y", size = 3) +
  stat_peaks(geom = "rug", span = 15, color = "steelblue3", sides = "b")

Time Series Saham Semen Indonesia Persero Tbk (SMGR) with Valleys

s + stat_valleys(geom = "point", span = 11, color = "hotpink", size = 2) +
  stat_valleys(geom = "label", span = 11, color = "hotpink", angle = 0,
               hjust = -0.1, x.label.fmt = "%Y-%m-%d", size = 3) +
  stat_valleys(geom = "rug", span = 11, color = "hotpink", sides = "b")

Time Series 3 Saham

ggplot(Gabung_data, aes(x = Time, y = Price, color = Bank)) +
  geom_line(aes(color = Bank)) +
  scale_x_date(date_labels = "%b %Y", date_breaks = "1 months") +
  theme_minimal() +
  theme(axis.text.x=element_text(angle=50, hjust=1)) +
  theme(legend.position = "right") +
  labs(title = "Perbandingan 3 Saham", 
       x = "Date", 
       y = "Price") +
  theme(plot.title = element_text(hjust = 0.5, size = 16, face = "bold")) +
  geom_vline(xintercept = as.Date("2025-01-01"),
             linetype=2, color=2,
             linewidth=1) +
  geom_vline(xintercept = as.Date("2024-01-01"),
             linetype=2, color=2,
             linewidth=1)