library(tidyverse)
## -- Attaching packages --------------------------------------- tidyverse 1.3.1 --
## v ggplot2 3.3.5     v purrr   0.3.4
## v tibble  3.1.6     v dplyr   1.0.8
## v tidyr   1.2.0     v stringr 1.4.0
## v readr   2.1.2     v forcats 0.5.1
## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()
#install.packages("readxl")
library(readxl)
Class_MnM_Data_1_ <- read_excel("Class MnM Data(1).xlsx")
View(Class_MnM_Data_1_)

#CHEATSHEET

readxl_example()
##  [1] "clippy.xls"    "clippy.xlsx"   "datasets.xls"  "datasets.xlsx"
##  [5] "deaths.xls"    "deaths.xlsx"   "geometry.xls"  "geometry.xlsx"
##  [9] "type-me.xls"   "type-me.xlsx"

#FirstEXAMPLE

IQR(Class_MnM_Data_1_$weight_grams)
## [1] 10
summary(Class_MnM_Data_1_$weight_grams)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   25.00   40.00   48.00   44.25   50.00   50.00
fivenum(Class_MnM_Data_1_$weight_grams)
## [1] 25 40 48 50 50
WeightIC <- weighted.mean(Class_MnM_Data_1_$weight_grams)
ClassMD <- hist(Class_MnM_Data_1_$weight_grams,
col="blue",main="MnM Bag Weight in
Grams", xlab="Weight in Grams",
ylab="Frequency")

ClassMD
## $breaks
##  [1] 24 26 28 30 32 34 36 38 40 42 44 46 48 50
## 
## $counts
##  [1]  24   0   0   0   0   0   0 105  55   0   0  54 144
## 
## $density
##  [1] 0.03141361 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
##  [7] 0.00000000 0.13743455 0.07198953 0.00000000 0.00000000 0.07068063
## [13] 0.18848168
## 
## $mids
##  [1] 25 27 29 31 33 35 37 39 41 43 45 47 49
## 
## $xname
## [1] "Class_MnM_Data_1_$weight_grams"
## 
## $equidist
## [1] TRUE
## 
## attr(,"class")
## [1] "histogram"

#Second Example

boxplot(Class_MnM_Data_1_$weight_grams ~ Class_MnM_Data_1_$color,
  xlab="Color",ylab="Weight",main="Weight and Color Box and Whisker Plot",col=c("blue","brown","green","orange","red","yellow"))

#ThirdEXample

barplot(table(Class_MnM_Data_1_$color))

barplot(table(Class_MnM_Data_1_$defect))