Load the data and summary

AAPL<-read.csv("AAPL_AUG2024.csv",header=TRUE,sep=",")
summary(AAPL$Close)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   207.2   217.7   224.6   221.6   226.5   229.8

##Plots

library(ggplot2)
ggplot(AAPL,aes(x = Close))+
  geom_histogram(bins = 5)

#THE END