Boxplot

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 = "", y = Close))+ 
  geom_boxplot()+
  labs(title = "Boxplot of Apple's Closing Prices", y = "Close",x = "")

#THE END