European Stock Indices (1991-1998)

Abhijit Paul

November 5, 2024

Code

Through this code we try to plot the closing prices of major European stock indices in the years of 1991 to 1998.

library(plotly)
library(tidyr)
library(dplyr)
data("EuStockMarkets")
stocks <- as.data.frame(EuStockMarkets) %>%
  gather(index, price) %>%
  mutate(time = rep(time(EuStockMarkets), 4))
plot_ly(stocks, x = ~time, y = ~price, color = ~index, mode = "lines")

Plot

## Warning: package 'plotly' was built under R version 4.3.3

## Warning: package 'tidyr' was built under R version 4.3.3