FIN346

Tech and Communication- IBM, AAPL, RTX, NFLX, ANET, SMCI Other: GE, KO, BA Retail and Consumer Cyclical: LULU, GPS, SBUX, WMT, AMZN, BBY, COST ETFS: QQQ, XLE, PRGSX, VOOG, SPY

###Biggest Winner - Boeing (BA) +24.76%

library(plotly)

## 
## Attaching package: 'plotly'

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

## The following object is masked from 'package:stats':
## 
##     filter

## The following object is masked from 'package:graphics':
## 
##     layout

dfBA <- data.frame(Date = index(BA), coredata(BA))
dfBA <- tail(dfBA, 60)  # Fix typo in tail() function

# Custom colors
i <- list(line = list(color = 'green'))
d <- list(line = list(color = 'red'))


(BAPLOT <- dfBA %>%
  plot_ly(x = ~Date, type = "candlestick",
          open = ~BA.Open, close = ~BA.Close,
          high = ~BA.High, low = ~BA.Low,
          increasing = i, decreasing = d) |> 
  layout(title = list(text = "The Bills - BA Price Behavior Over Project", font = list(color = "white")),
         xaxis = list(title = "Date", color = "white"),
         yaxis = list(title = "Price (USD)", color = "white"),
         margin = list(l = 50, r = 50, t = 50, b = 50),
         plot_bgcolor = "black",  # Set background color to black
         paper_bgcolor = "black",  # Set paper background color to black
       
         annotations = list(
           list(x = as.Date("2023-09-18"), y = max(dfBA$BA.High), xref = "x", yref = "y",
                text = "Start of Project", showarrow = TRUE, arrowhead = 4, ax = 0, ay = -40, font = list(color = "white"))
         )
  ))

---

More information on Boeing will go here

---

library(plotly)

dfSPY <- data.frame(Date = index(SPY), coredata(SPY))
dfSPY <- tail(dfSPY, 60)  # Fix typo in tail() function

# Custom colors
i <- list(line = list(color = 'green'))
d <- list(line = list(color = 'red'))


(SPYPLOT <- dfSPY %>%
  plot_ly(x = ~Date, type = "candlestick",
          open = ~SPY.Open, close = ~SPY.Close,
          high = ~SPY.High, low = ~SPY.Low,
          increasing = i, decreasing = d) |> 
  layout(title = list(text = "The Bills - SPY Price Behavior Over Project", font = list(color = "white")),
         xaxis = list(title = "Date", color = "white"),
         yaxis = list(title = "Price (USD)", color = "white"),
         margin = list(l = 50, r = 50, t = 50, b = 50),
         plot_bgcolor = "black",  # Set SPYckground color to black
         paper_bgcolor = "black",  # Set paper SPYckground color to black
       
         annotations = list(
           list(x = as.Date("2023-09-18"), y = max(dfSPY$SPY.High), xref = "x", yref = "y",
                text = "Start of Project", showarrow = TRUE, arrowhead = 4, ax = 0, ay = -40, font = list(color = "white"))
         )
  ))

library(plotly)

dfXLE <- data.frame(Date = index(XLE), coredata(XLE))
dfXLE <- tail(dfXLE, 60)  # Fix typo in tail() function

# Custom colors
i <- list(line = list(color = 'green'))
d <- list(line = list(color = 'red'))


(XLEPLOT <- dfXLE %>%
  plot_ly(x = ~Date, type = "candlestick",
          open = ~XLE.Open, close = ~XLE.Close,
          high = ~XLE.High, low = ~XLE.Low,
          increasing = i, decreasing = d) |> 
  layout(title = list(text = "The Bills - XLE Price Behavior Over Project", font = list(color = "white")),
         xaxis = list(title = "Date", color = "white"),
         yaxis = list(title = "Price (USD)", color = "white"),
         margin = list(l = 50, r = 50, t = 50, b = 50),
         plot_bgcolor = "black",  # Set XLEckground color to black
         paper_bgcolor = "black",  # Set paper XLEckground color to black
       
         annotations = list(
           list(x = as.Date("2023-09-18"), y = max(dfXLE$XLE.High), xref = "x", yref = "y",
                text = "Start of Project", showarrow = TRUE, arrowhead = 4, ax = 0, ay = -40, font = list(color = "white"))
         )
  ))