Top 3 Cloud Service Providers Stock Performance

Amazon

AMZN_SMA50 = as.numeric(strsplit(as.character(SMA(AMZN$AMZN.Adjusted, 50)), split = " "))
AMZN_SMA200 = as.numeric(strsplit(as.character(SMA(AMZN$AMZN.Adjusted, 200)), split = " "))
AMZN_Stock_Price <- plot_ly(data = data.frame(AMZN), x = index(AMZN), y = AMZN.Adjusted, name = "Daily Close Price", title = 'Amazon Stock Price')
AMZN_Stock_Price <- add_trace(AMZN_Stock_Price, y = AMZN_SMA50, name = "50 days SMA")
AMZN_Stock_Price <- add_trace(AMZN_Stock_Price, y = AMZN_SMA200, name = "200 days SMA")
AMZN_Stock_Price %>% add_trace(y = fitted(loess(AMZN$AMZN.Adjusted ~ as.numeric(index(AMZN)))), name = "Smooth Curve")

Microsoft

MSFT_SMA50 = as.numeric(strsplit(as.character(SMA(MSFT$MSFT.Adjusted, 50)), split = " "))
MSFT_SMA200 = as.numeric(strsplit(as.character(SMA(MSFT$MSFT.Adjusted, 200)), split = " "))
MSFT_Stock_Price <- plot_ly(data = data.frame(MSFT), x = index(MSFT), y = MSFT.Adjusted, name = "Daily Close Price")
MSFT_Stock_Price <- add_trace(y = MSFT_SMA50, name = "50 days SMA")
MSFT_Stock_Price <- add_trace(y = MSFT_SMA200, name = "200 days SMA")
MSFT_Stock_Price %>% add_trace(y = fitted(loess(MSFT$MSFT.Adjusted ~ as.numeric(index(MSFT)))), name = "Smooth Curve")

Google

GOOGL_SMA50 = as.numeric(strsplit(as.character(SMA(GOOGL$GOOGL.Adjusted, 50)), split = " "))
GOOGL_SMA200 = as.numeric(strsplit(as.character(SMA(GOOGL$GOOGL.Adjusted, 200)), split = " "))
GOOGL_Stock_Price <- plot_ly(data = data.frame(GOOGL), x = index(GOOGL), y = GOOGL.Adjusted, name = "Daily Close Price")
GOOGL_Stock_Price <- add_trace(y = GOOGL_SMA50, name = "50 days SMA")
GOOGL_Stock_Price <- add_trace(y = GOOGL_SMA200, name = "200 days SMA")
GOOGL_Stock_Price %>% add_trace(y = fitted(loess(GOOGL$GOOGL.Adjusted ~ as.numeric(index(GOOGL)))), name = "Smooth Curve")