simple_bar_plot.R

data_1 <- data.frame(data = sample(c(0,1),9, replace = T))
data_1

##   data
## 1    1
## 2    0
## 3    0
## 4    0
## 5    1
## 6    0
## 7    0
## 8    0
## 9    0

class(data_1)

## [1] "data.frame"

table(data_1$data)

## 
## 0 1 
## 7 2

barplot(table(data_1$data),col = "skyblue",ylim = c(0, 8))
## Add text at top of bars
text(2,7,label = table(data_1$data)[2], cex = 0.8, col = "red")
text(0.7,7,label = table(data_1$data)[1], cex = 0.8, col = "red")