0128_bmi.R

65/1.6^2

## [1] 25.39062

h<-1.6
w<-65
bmi<-w/h^2
H<-c(1.6,1.65,1.68,1.69,1.80)
W<-c(65,60,63,70,75)
BMI<-W/H^2
mean(BMI)

## [1] 23.48154

BMI_m<-mean(BMI)
round(BMI_m,2)

## [1] 23.48

names(BMI)<-c("A","B","C","D",'E')
BMI

##        A        B        C        D        E 
## 25.39062 22.03857 22.32143 24.50895 23.14815

W

## [1] 65 60 63 70 75

barplot(BMI)

barplot(BMI,xlab = "NAME", ylab = "BMI")

barplot(BMI,xlab = "NAME", ylab = "BMI",col = "yellow")

barplot(BMI,xlab = "NAME", ylab = "BMI",col = c("yellow","purple","blue","pink","red"))

barplot(sort(BMI,decreasing = TRUE),xlab = "NAME", ylab = "BMI",col = c("yellow","purple","blue","pink","red"))