• NVDA = stock ticker for Nvidia

• Nvidia = The world leader in artificial intelligence computing

• This presentation uses R to examine NVDA price per share over the last 5 years (July 1, 2019 - June 30, 2024)

# Load libraries
suppressMessages(suppressWarnings(library(tidyverse)))
suppressMessages(suppressWarnings(library(plotly)))
suppressMessages(suppressWarnings(library(quantmod)))

# Get from/to dates
from.date <- as.Date("07/01/19", format="%m/%d/%y") # From date
to.date   <- as.Date("06/30/24", format="%m/%d/%y") # To date

# Get NVDA stock data
getSymbols("NVDA", src="yahoo", from = from.date, to = to.date) 

## [1] "NVDA"

nvda <- as.data.frame(NVDA) # create df
nvda$date <- time(NVDA)     # get date var

# plot daily open
p <- plot_ly(nvda,x = ~date,y = ~NVDA.Open,type = "scatter",
             mode = "lines",name = "Daily Open")

# add daily close, daily low and daily high
p <- p %>%
    add_trace(y =~NVDA.Close,name = "Daily Close",mode = "lines") %>%
    add_trace(y =~NVDA.Low,name   = "Daily Low",  mode = "lines") %>%
    add_trace(y = ~NVDA.High,name = "Daily High", mode = "lines") %>%
    layout(title = "NVDA Stock (7/1/2019 - 6/30/2024)",
           xaxis = list(title="Date"),
           yaxis = list(title="Price Per Share"),hovermode="x")