W3.R

# 周次：w3
# 任務：認識向量
# 姓名：黃子騏
# 日期：2021年02月03日

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

## [1] 20.74755

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

##       騏 
## 20.74755

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

##   騏 
## TRUE

### 進階練習
# 題組一
# 建立一個物件，命名為height，輸入班上三位同學的身高(公尺)
height <- c(188,176,170)

# 建立一個物件，命名為weight，輸入班上三位同學的體重(公斤)
weight <- c(100,80,52)

# 建立一個物件，命名為bmi，將上述已建立的物件，寫入bmi計算公式，算出班上三位同學的bmi
bmi_j <- weight/(height/100)^2

names(bmi_j) <- c("s","m","j")

# 畫圖 
barplot(bmi_j, xlab = "NAME", ylab = "BMI",col = "yellow")

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

barplot(sort(bmi_j, decreasing = TRUE), xlab = "NAME", ylab = "BMI",col = "yellow")

barplot(sort(bmi_j, decreasing = TRUE), xlab = "NAME", ylab = "BMI",col = "yellow")
barplot(sort(bmi_j, decreasing = TRUE), xlab = "NAME", ylab = "BMI",col = c(1:3))

barplot(sort(bmi_j, decreasing = TRUE), main = "My Classmates’ BMI",sub= "By w", xlab = "NAME", ylab = "BMI",col = c(1:3))

# 建立一個物件，命名為bmi_j，用bmi的標準，判斷三位同學的bmi是否正常
bmi_j>=18.5&bmi_j<24

##     s     m     j 
## FALSE FALSE FALSE

### 課本練習
# 題組二
# 香港搖滾樂隊 Beyond 於 1983 年成立，我們假設成立日期是 1983-12-31，請將成立日期指派給 `beyond_start` 並轉換成整數輸出在命令列
# 請以系統日期計算今年是 Beyond 成立幾週年紀念？

### 進階練習
# 題組二
# 五月天於 1999年7月7日 正式出道
# 請將成立日期命名為Mayday_start並轉換成整數輸出在命令列
# 請以系統日期計算今年是 五月天 成立幾週年紀念？
# 防彈少年團BST於 2013年7月9日 正式出道
# 請問五月天比防彈少年團BST出道時間早多少天?