TimeSeries

Petit Test

Just for fun :)

setwd("C:\\Users\\Piss\\Documents\\My Sherpa\\STAQUET")

data_fin <- read.csv("Base de données définitive mémoire 2012-2017.csv", sep = ";")


library(highcharter)
library(zoo)

data_fin[,2:(ncol(data_fin)-1)] <- apply(data_fin[,2:(ncol(data_fin)-1)], 2 , as.numeric) / 1e6

data_fin$Date <- as.Date(as.character(data_fin$Date),"%d/%m/%Y")

highchart(type = "stock") %>% 
  hc_title(text = "Time series with HighCharts (T.Staquet)") %>% 
  hc_subtitle(text = "Different values for index XXX (?)") %>% 
  hc_tooltip(valueDecimals = 2) %>% 
  hc_add_series_times_values(data_fin$Date,
                             data_fin$Open,
                             name = "Open value") %>% 
  hc_add_series_times_values(data_fin$Date,
                             data_fin$High,
                             name = "High value") %>% 
  hc_add_series_times_values(data_fin$Date,
                             data_fin$Low,
                             name = "Low value") %>% 
  hc_add_series_times_values(data_fin$Date,
                             data_fin$Close,
                             name = "Close value") %>% 
  hc_add_series_times_values(data_fin$Date,
                             data_fin$Adj.Close,
                             name = "Adjusted close value") %>%
  hc_add_theme(hc_theme_sandsignika())