Nvidia Exploratory Data Analysis Project

Introduction

This is my first solo Exploratory Data Analysis project since I began learning R in June of this year. I will be looking at Nvidia’s stock price and their balance sheet trying to understand the factors influencing their rise to the 4T Market Cap they hit in July of this year.

Load Packages

library(alphavantager)
library(tidyverse)

Retrieving Nvidia’s Data

NVDA <- av_get(symbol = "NVDA",
        av_fun = "TIME_SERIES_MONTHLY",
        outputsize = "FULL"
        )

Graphing Nvidia’s Closing Price and Volume from 1999 to 2025

NVDA |> 
  ggplot()+
    geom_area(aes(x = timestamp, y = close), 
              fill = "green", alpha = 1)+
    geom_area(aes(x = timestamp, y = volume / 1e7), 
              fill = "white", alpha = 0.5) +
    scale_y_continuous(name = "Closing Price (USD)",
                       sec.axis = sec_axis(~ . * 1e7, name = "Volume Traded")
                       )+
    labs(
      title = "Nvidia's Closing Price vs Volume Traded from 1999 to Today.",
      subtitle = "Graphed by Sameer Hirani",
      x = "Date"
    )+
    theme_bw(paper = "Black", ink = "white", accent = "white")