w2.R

# 周次：w2
# 任務：認識向量
# 姓名：沈威至
# 日期：2021年02月05日

### 課本練習
# 題組一
# 將您的身高（公分）指派給 `my_height`；體重（公斤）指派給 `my_weight`
my_height <-c(176,175,157)
my_weight <-c(70,62,49)
# 分別將 `my_height` 與 `my_weight` 輸出在命令列
my_height

## [1] 176 175 157

my_weight

## [1] 70 62 49

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

## [1] 22.59814 20.24490 19.87910

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

##      Roy     <NA>     <NA> 
## 22.59814 20.24490 19.87910

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

##  Roy <NA> <NA> 
## TRUE TRUE TRUE

### 進階練習
# 題組一
# 建立一個物件，命名為height，輸入班上三位同學的身高(公尺)
height <-c(176,175,157)
# 建立一個物件，命名為weight，輸入班上三位同學的體重(公斤)
weight <-c(70,62,49)
# 建立一個物件，命名為bmi，將上述已建立的物件，寫入bmi計算公式，算出班上三位同學的bmi
bmi_j<- weight/(height/100)^2
bmi_j

## [1] 22.59814 20.24490 19.87910

# 將輸入三位同學的名字為向量命名
names(bmi_j) <-c("Mary","Smith","Nell")
bmi_j

##     Mary    Smith     Nell 
## 22.59814 20.24490 19.87910

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

##  Mary Smith  Nell 
##  TRUE  TRUE  TRUE

bmi_j

##     Mary    Smith     Nell 
## 22.59814 20.24490 19.87910

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

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

barplot(sort(bmi_j,decreasing = TRUE),main="my friend",sub="by Roy",xlab = "NAME",ylab ="BMI",col ="yellow")

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

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