Tugas Visualisasi Time Series

knitr::opts_chunk$set(echo=FALSE)

## Loading required package: xts

## Loading required package: zoo

## 
## Attaching package: 'zoo'

## The following objects are masked from 'package:base':
## 
##     as.Date, as.Date.numeric

## Loading required package: TTR

## Registered S3 method overwritten by 'quantmod':
##   method            from
##   as.zoo.data.frame zoo

## Warning: package 'ggplot2' was built under R version 4.5.3

## 
## Attaching package: 'ggplot2'

## The following object is masked from 'package:e1071':
## 
##     element

## Loading required package: ggpp

## Registered S3 methods overwritten by 'ggpp':
##   method                  from   
##   heightDetails.titleGrob ggplot2
##   widthDetails.titleGrob  ggplot2

## 
## Attaching package: 'ggpp'

## The following object is masked from 'package:ggplot2':
## 
##     annotate

Mencari 3 Data Time Series

## [1] "NVDA"

## [1] "PLTR"

## [1] "GSPC"

## Warning in merge.xts(close_nvidia, close_palantir, close_sp500, join =
## "outer"): 'join' only applicable to two object merges

##         date NVDA.Close PLTR.Close GSPC.Close
## 1 2023-03-14     24.063       7.89    3919.29
## 2 2023-03-15     24.228       7.90    3891.93
## 3 2023-03-16     25.541       7.98    3960.28
## 4 2023-03-17     25.725       7.88    3916.64
## 5 2023-03-20     25.900       8.08    3951.57

Membuat Plot Time Series

1. NVIDIA

## 2. PALANTIR

3. S&P 500

## Don't know how to automatically pick scale for object of type <xts/zoo>.
## Defaulting to continuous.

## Warning in `[<-.data.frame`(`*tmp*`, , y_vars, value = list(y =
## c(3894.01000976562, : replacement element 1 has 4518 rows to replace 753 rows
## Warning in `[<-.data.frame`(`*tmp*`, , y_vars, value = list(y =
## c(3894.01000976562, : replacement element 1 has 4518 rows to replace 753 rows
## Warning in `[<-.data.frame`(`*tmp*`, , y_vars, value = list(y =
## c(3894.01000976562, : replacement element 1 has 4518 rows to replace 753 rows

Plot Multiple Data Series

1. NVDA-PLTR-GSPC

2. NVDA-pltr

## 3. NVDA-GSPC

3. PLTR-GSPC

Boxplot

Terlihat jelek karena skalanya berbeda, seperti pada grafik close price sebelumnya.

Jika dilakukan NVDA dan PLTR saja, maka didapatkan: