library(quantmod)
library(ggplot2)
library(dplyr)
library(lubridate)
library(ggpmisc)
#Data harian saham selama 3 tahun
getSymbols(c("BBCA.JK","BMRI.JK","BBRI.JK"),
           src="yahoo",
           from="2023-01-01",
           to="2025-12-31")
## [1] "BBCA.JK" "BMRI.JK" "BBRI.JK"
bbca <- data.frame(Time=index(BBCA.JK), Price=as.numeric(Cl(BBCA.JK)))
bmri <- data.frame(Time=index(BMRI.JK), Price=as.numeric(Cl(BMRI.JK)))
bbri <- data.frame(Time=index(BBRI.JK), Price=as.numeric(Cl(BBRI.JK)))
bbca$Saham <- "BBCA"
bmri$Saham <- "BMRI"
bbri$Saham <- "BBRI"
alldata <- rbind(bbca,bmri,bbri)
#multiple graph
ggplot(alldata, aes(x=Time, y=Price, color=Saham)) +
  geom_line(size=1) +
  theme_minimal() +
  scale_x_date(date_labels="%b %Y", date_breaks="6 months") +
  theme(legend.position = "bottom")+
  
  geom_vline(xintercept=as.Date("2023-01-01"), linetype=2)+
  geom_vline(xintercept=as.Date("2024-01-01"), linetype=2)+
  geom_vline(xintercept=as.Date("2025-01-01"), linetype=2)+
  
  labs(title="Perbandingan Harga Saham",
       x="Date",
       y="Closing Price (IDR)")

Interpretasi

Berdasarkan grafik, BBCA menunjukkan harga saham tertinggi selama periode pengamatan dibandingkan BBRI dan BMRI, dengan pergerakan yang cenderung lebih stabil meskipun tetap mengalami fluktuasi. Harga saham BBCA mencapai titik tertinggi pada pertengahan hingga akhir tahun 2024, kemudian mengalami penurunan pada tahun 2025, namun tetap berada pada level yang lebih tinggi dibandingkan kedua saham lainnya. BMRI berada pada posisi menengah dengan tren kenaikan yang cukup baik hingga akhir 2024, tetapi mengalami penurunan yang cukup signifikan pada awal 2025 sebelum kembali bergerak stabil. Sementara itu, BBRI memiliki harga saham terendah dan menunjukkan fluktuasi yang lebih besar, terutama setelah pertengahan 2024, dengan kecenderungan tren menurun hingga akhir periode pengamatan.