1. Introduction

This is a training for Zanzivar professionals.

##        Drink Calcium
## 1  Diet cola      50
## 2  Diet cola      62
## 3  Diet cola      48
## 4  Diet cola      55
## 5  Diet cola      58
## 6  Diet cola      61
## 7  Diet cola      58
## 8  Diet cola      56
## 9      Water      48
## 10     Water      46

2. Analysis

I will create a histogram and a bar plot for cola data.

2.1 Histogram for Calcium

hist(cola$Calcium, 
     main = "Histogram of Calcium with Cola Data", 
     col = "blue",
     xlab = "Calcium"
    )

2.2 Bar Plot for Drink

T = table(cola$Drink)
T
## 
## Diet cola     Water 
##         8         8
barplot(T)