Untitled

setwd("~/Data 110 Folder")
mnm <- read.csv("MnM.csv")

library(ggthemes)

## Warning: package 'ggthemes' was built under R version 4.1.3

## Warning in register(): Can't find generic `scale_type` in package ggplot2 to
## register S3 method.

library(ggrepel)

## Warning: package 'ggrepel' was built under R version 4.1.3

## Loading required package: ggplot2

library(RColorBrewer)
library(highcharter)

## Warning: package 'highcharter' was built under R version 4.1.3

## Registered S3 method overwritten by 'quantmod':
##   method            from
##   as.zoo.data.frame zoo

library(ggplot2)
library(viridis)

## Warning: package 'viridis' was built under R version 4.1.3

## Loading required package: viridisLite

View(mnm)
str(mnm)

## 'data.frame':    947 obs. of  14 variables:
##  $ student_id  : chr  "AP_LV" "AP_LV" "AP_LV" "AP_LV" ...
##  $ id          : int  1 2 3 4 5 6 7 8 9 10 ...
##  $ color       : chr  "r" "r" "r" "r" ...
##  $ defect      : chr  "c" "l" "z" "z" ...
##  $ total       : int  27 27 27 27 27 27 27 27 27 27 ...
##  $ weight_grams: int  40 40 40 40 40 40 40 40 40 40 ...
##  $ X           : logi  NA NA NA NA NA NA ...
##  $ X.1         : logi  NA NA NA NA NA NA ...
##  $ X.2         : logi  NA NA NA NA NA NA ...
##  $ X.3         : logi  NA NA NA NA NA NA ...
##  $ X.4         : logi  NA NA NA NA NA NA ...
##  $ X.5         : logi  NA NA NA NA NA NA ...
##  $ X.6         : logi  NA NA NA NA NA NA ...
##  $ X.7         : logi  NA NA NA NA NA NA ...

barplot(table(mnm$defect))

Bar plot of M&M colors

 barplot(table(mnm$color))

Bar plot of M&M color

barplot(table(mnm$color), col=c("blue","brown","green","orange",
"red","yellow"),main="My M&M Color Distribution")

Histogram of M&M weights in grams and frequency

hist(mnm$weight_grams, 
col="blue",main="MnM Bag Weight in 
Grams", xlab="Weight in Grams", 
ylab="Frequency")

Boxplot of M&M weights in grams and color

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

count.colors <- table(mnm$color) 

mnm.colors <-c('blue','brown','green','orange','red','yellow')

Pie chart of MnM colors

pie(count.colors,labels=mnm.colors, 
col=mnm.colors,main="MnMs by Color")

Barplot of M&M defects

barplot(table(mnm$defect))