0126_BMI.R

74/1.75^2

## [1] 24.16327

h <- 1.75
w <- 74
bmi <- w/h^2
H <- c(1.5, 1.6, 1.7, 1.65, 1.8) #輸入身高資料
W <- c(44, 50, 60, 88, 95)
BMI <- W/H^2
H_m <- mean(H)
mean(W)

## [1] 67.4

BMI

## [1] 19.55556 19.53125 20.76125 32.32323 29.32099

round(BMI, 2)#取小數點後2位

## [1] 19.56 19.53 20.76 32.32 29.32

names(BMI) <- c("A","B", "C", "D","E")#為資料(向量)命名

#畫直條圖
barplot(BMI, xlab = "姓名", ylab = "BMI值",col = "yellow")

barplot(sort(BMI), xlab = "姓名", ylab = "BMI值",col = "yellow")

barplot(sort(BMI, decreasing = TRUE), xlab = "姓名", ylab = "BMI值",col = "yellow")

barplot(sort(BMI, decreasing = TRUE), xlab = "姓名", ylab = "BMI值",col = c(1:5))

barplot(sort(BMI, decreasing = TRUE), main = "全班BMI值",sub = "華仔製圖", xlab = "姓名", ylab = "BMI值",col = c(1:5))

#畫散佈圖
plot(H,W)