W3.R

# 周次：w3
# 任務：認識向量
# 姓名：廖呈祐
# 日期：2021年2月3日

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

## 廖呈祐的BMI 
##    22.05805

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

## 廖呈祐的BMI 
##        TRUE

### 進階練習
# 題組一
# 建立一個物件，命名為height，輸入班上三位同學的身高(公尺)
# 建立一個物件，命名為weight，輸入班上三位同學的體重(公斤)
# 建立一個物件，命名為bmi，將上述已建立的物件，寫入bmi計算公式，算出班上三位同學的bmi
#ChangHeight <- 172
#ChangWeight <- 70
#ChenHeight <- 173
#ChenWeight <- 64
#ZhangHeight <- 172
#ZhangWeight<- 55
height <- c(172,173,172)
weight <- c(70,64,55)
BMI_j <- weight/(height/100)^2
names(BMI_j) <- c("Candy Chang","Eddy Chen","Zhang the Round ")
BMI_j

##      Candy Chang        Eddy Chen Zhang the Round  
##         23.66144         21.38394         18.59113

# 畫圖
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=c(1:3))

barplot(sort(BMI_j,decreasing=FALSE),main="My Classmates' BMI",sub="By Liao",ylab="BMI",col="chocolate")

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

##      Candy Chang        Eddy Chen Zhang the Round  
##             TRUE             TRUE             TRUE

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

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