Dokumen ini dibuat untuk menampilkan analisis sederhana time series
harga saham ANTM menggunakan bahasa pemrograman R. Data diambil dari
Yahoo Finance menggunakan package tidyquant.
library(tidyquant)
library(tidyverse)
library(lubridate)
library(ggplot2)
library(ggpmisc)
data_saham <- tq_get(c("ANTM.JK"),
from = "2023-01-01",
to = "2025-12-31")
data_close <- data_saham %>%
select(symbol, date, close)
head(data_close)
## # A tibble: 6 × 3
## symbol date close
## <chr> <date> <dbl>
## 1 ANTM.JK 2023-01-02 1980
## 2 ANTM.JK 2023-01-03 2000
## 3 ANTM.JK 2023-01-04 2050
## 4 ANTM.JK 2023-01-05 1965
## 5 ANTM.JK 2023-01-06 1985
## 6 ANTM.JK 2023-01-09 2060
Berikut visualisasi harga penutupan saham ANTM.
p <- ggplot(filter(data_close, symbol=="ANTM.JK"),
aes(x=date, y=close)) +
geom_line(color="gold2") +
labs(title="Time Series Harga ANTM",
x="Tanggal",
y="Harga Penutupan") +
theme_minimal()
p
Berdasarkan hasil visualisasi time series, harga saham ANTM mengalami fluktuasi dari waktu ke waktu. Grafik menunjukkan pergerakan harga penutupan saham selama periode pengamatan. Terdapat lonjakan kenaikan yang signifikan pada pertengahan tahun 2025 dan cenderung stabil hingga awal tahun 2026.