x <- read.csv("Table221.csv",header=T)
x
attach(x)
table(BloodType)

​

barplot(table(BloodType))

 

bf <- c(35,31,13,11)

barplot(bf,names.arg=c("A","O","AB","B"))

​