Assignment 2: Hypothesis Testing

install.packages("tidyverse")

## Installing package into '/home/rstudio-user/R/x86_64-pc-linux-gnu-library/3.6'
## (as 'lib' is unspecified)

library(tidyverse)

## ── Attaching packages ────────────────────────────────────────────────────────── tidyverse 1.3.0 ──

## ✓ ggplot2 3.3.0     ✓ purrr   0.3.4
## ✓ tibble  3.0.1     ✓ dplyr   0.8.5
## ✓ tidyr   1.1.0     ✓ stringr 1.4.0
## ✓ readr   1.3.1     ✓ forcats 0.5.0

## ── Conflicts ───────────────────────────────────────────────────────────── tidyverse_conflicts() ──
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()

library(readxl)
strawberry2 <- read_excel("strawberry2.xlsx")
strw <- read_excel("strawberry2.xlsx")
strw.sel<-strw%>%select(orig_food_common_name,orig_source_name,orig_content)
head(strw.sel)

names(strw.sel)

## [1] "orig_food_common_name" "orig_source_name"      "orig_content"

strw.vitc<-strw.sel[strw.sel$orig_source_name %in% c("Vitamin C, total"),]
head(strw.vitc)

ggplot(data=strw.vitc, aes(x=orig_food_common_name, y= orig_content))+geom_bar(stat ="identity",aes(fill=orig_food_common_name))+theme(axis.text.x=element_blank(),axis.ticks.x=element_blank())+labs(x="Strawberry",y="Total Vitamin C(mg/100g.)")