Stock DVN

1. Tổng quan:

Sử dụng dữ liệu cổ phiếu DVN của PVIAM để vẽ ra những biểu đồ như: Scatter Plot, Candlestick Charts, Bar Charts, Multi-line Chart. Bên cạnh vẽ những biểu đồ trực quan hóa dữ liệu, tác giả cũng tiến hành sử dụng ARIMA để tiến hành dự đoán giá trị của cổ phiếu.

Tiến hành:

2.1. Cài đặt Package và nhập dữ liệu PVIAM:

1. Cài đặt Package

# Các packages cần cài đặt
install.packages("knitr")
install.packages("plotly")
library(plotly)
install.packages("tq")
library(tq)
install.packages("quantmod")
library(quantmod)
install.packages("TTR")
library(TTR)
install.packages("ggplot2")
library(ggplot2)
library(ggplot2)
library(TTR)
library(magrittr)

2. Nhập dữ liệu PVIAM:

#Import Data----
mydata <- read.csv("C:\\Users\\buith\\KPIM Joint Stock Company\\Business Intelligence - 4. Projects\\Research Portfolio Management Models\\R\\Data cổ phiếu PVI.csv")
mydata <- mydata[complete.cases(mydata$gia_mo_cua), ]

# Transform data----
mydata <- na.omit(mydata)
mydata$ngay <- as.Date(mydata$ngay, format = "%m/%d/%Y")
mydata$ma <- as.character(mydata$ma)
mydata$gia_mo_cua <- as.numeric(mydata$gia_mo_cua)
mydata$gia_dong_cua <- as.numeric(mydata$gia_dong_cua)
mydata$khoi_luong_giao_dich_khop_lenh <- as.numeric(mydata$khoi_luong_giao_dich_khop_lenh)
mydata$gia_cao_nhat <- as.numeric(mydata$gia_cao_nhat)
mydata$gia_thap_nhat <- as.numeric(mydata$gia_thap_nhat)
mydata$gia_dieu_chinh <- as.numeric(mydata$gia_dieu_chinh)
mydata$gia_tri_thay_doi <- as.numeric(mydata$gia_tri_thay_doi)

2.2. Lọc ra dữ liệu cổ phiếu DVN:

# Lọc dữ liệu DVN----
DVN <- mydata[mydata$ma == "DVN", ]
DVN <- na.omit(DVN)
DVN <- DVN[complete.cases(DVN$gia_tri_thay_doi), ]

2.3. Scattor Plot for DVN

plot(DVN$gia_dong_cua, main = "Closing Prices of DVN in 2022", ylab="DVN Close Price", x=DVN$ngay, xlab="Date")

2.4. Candlestick of DVN

DVN %>%
  plot_ly(x = ~ngay, type = "candlestick",
          open = ~gia_mo_cua, close = ~gia_dong_cua, high = ~gia_cao_nhat, low = ~gia_thap_nhat) %>%
  layout(title = "Candlestick Chart for DVN",
         xaxis = list(title = "Date"),
         yaxis = list(title = "Price"))

2.5. Bar chart for DVN

DVN_bar <- DVN %>%
  plot_ly(x = ~ngay, y = ~khoi_luong_giao_dich_khop_lenh, type = "bar", 
          marker = list(color = "#1f77b4")) %>%
  layout(title = "DVN Daily Trading Volume", plot_bgcolor = "#e5ecf6",
         xaxis = list(title = "Date"), yaxis = list(title = "Volume"))
DVN_bar

2.6. Multi-line Chart

DVN$ma7 = SMA(DVN$gia_tri_thay_doi, n=7)
DVN$ma30 = SMA(DVN$gia_tri_thay_doi, n=30)
ggplot(data = DVN) +
  geom_line(aes(x = ngay, y = gia_tri_thay_doi , color = "Daily Price")) +
  geom_line(aes(x = ngay, y = ma7, color = "Weekly Moving Average"))  +
  geom_line(aes(x = ngay, y = ma30, color = "Monthly Moving Average"))  +
  ylab('DVN Stock Price') +
  xlab('Time') +
  labs(color = 'Trendline')