w2.R

# 周次：w3
# 任務：認識向量
# 姓名：王妤森
# 日期：2021年02月05日

### 課本練習
# 題組一
# 將您的身高（公分）指派給 `my_height`；體重（公斤）指派`my_weight`
my_height <- 163
my_weight <- 50
# 分別將 `my_height` 與 `my_weight` 輸出在命令列
my_height

## [1] 163

my_weight

## [1] 50

# 利用 `my_height` 與 `my_weight` 計算您的**身體質量指數**（Body Mass Index，BMI），BMI 計算公式為：
bmi <- my_weight/(my_height/100)^2
bmi

## [1] 18.81892

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

##   wusuan 
## 18.81892

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

## wusuan 
##   TRUE

### 進階練習
# 題組一
# 建立一個物件，命名為height，輸入班上三位同學的身高(公尺)
height <- c(155,178,171)
# 建立一個物件，命名為weight，輸入班上三位同學的體重(公斤)
weight <- c(55,70,58)
# 建立一個物件，命名為bmi，將上述已建立的物件，寫入bmi計算公式，算出班上三位同學的bmi
bmi_j <- weight/(height/100)^2
names(bmi_j) <- c("cx","yu","fan")
bmi_j

##       cx       yu      fan 
## 22.89282 22.09317 19.83516

bmi_j>=18.5&bmi_j<24

##   cx   yu  fan 
## TRUE TRUE TRUE

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

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 = "yellow")
barplot(sort(bmi_j,decreasing = TRUE),main = "my fiends'bmi",sub = "by wusuan",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),xlab = "NAME",ylab = "BMI",col = "yellow")

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

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

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