w3.R

# 周次：w3
# 任務：認識向量
# 姓名：李凱翔
# 日期：2021年2月5日

### 課本練習
# 題組一
# 將您的身高（公分）指派給 `my_height`；體重（公斤）指派給 `my_weight`
my_height <- 169
my_weight <- 70
# 分別將 `my_height` 與 `my_weight` 輸出在命令列
my_height <- 169
my_weight <- 70
# 利用 `my_height` 與 `my_weight` 計算您的**身體質量指數**（Body Mass Index，BMI），BMI 計算公式為：
bmi <- my_weight/(my_height/100)^2
bmi

## [1] 24.50895

# 將您的姓名指派給 `bmi` 並且輸出在命令列
names(bmi) <- "李凱翔"
bmi

##   李凱翔 
## 24.50895

# 判斷自己的bmi是否正常
bmi>=18.5 & 24

## 李凱翔 
##   TRUE

### 進階練習
# 題組一
# 建立一個物件，命名為height，輸入班上三位同學的身高(公尺)
height <- c(176,176,178)
# 建立一個物件，命名為weight，輸入班上三位同學的體重(公斤)
weight <- c(66,70,70)
# 建立一個物件，命名為bmi，將上述已建立的物件，寫入bmi計算公式，算出班上三位同
bmi_j <- weight/(height/100)^2
names(bmi_j) <- c("kevin","hank","andy")
# 畫圖
barplot(bmi_j,xlab = "NAME",ylab = "BMI",col = "yellow")

# 建立一個物件，命名為bmi_j，用bmi的標準，判斷三位同學的bmi是否正常
barplot(sort(bmi_j,decreasing = TRUE),main="my friend",sub="by Denny",xlab = "NAME",ylab ="BMI",col ="yellow")

bmi_j>=18.5&bmi<24

## kevin  hank  andy 
## FALSE FALSE FALSE