# 周次：w3
# 任務：認識向量
# 姓名：楊享富
# 日期：2021年2月3日
### 寫下人生第一支程式
feeling <- "我跟著金寶老師一起學R，超快樂的!"
print(feeling)
## [1] "我跟著金寶老師一起學R，超快樂的!"
feeling
## [1] "我跟著金寶老師一起學R，超快樂的!"
# 寫下你的自我介紹
aboutme <- "我喜歡運動，打排球，愛好閱讀，對心理系有興趣，喜歡把每個遊戲都玩得深入，最驕傲的事就是我打遊戲超強，全台排名50內那種，覺得自己有打電競的天分盒盒盒盒"
### 課本練習
# 題組一
# 將您的身高（公分）指派給 `my_height`；體重（公斤）指派給 `my_weight`
my_height <- 178
my_weight <- 72
# 分別將 `my_height` 與 `my_weight` 輸出在命令列
# 利用 `my_height` 與 `my_weight` 計算您的**身體質量指數**（Body Mass Index，BMI），BMI 計算公式為：
bmi <- my_weight/(my_height/100)^2
# 將您的姓名指派給 `bmi` 並且輸出在命令列
names(bmi) <- "楊享富"
bmi
## 楊享富
## 22.7244
# 判斷自己的bmi是否正常
bmi>=18.5&bmi<24
## 楊享富
## TRUE
### 進階練習
# 題組一
# 建立一個物件，命名為height，輸入班上三位同學的身高(公尺)
my_height <- c(180,170,178)
# 建立一個物件，命名為weight，輸入班上三位同學的體重(公斤)
my_weight <-c(60,52,78)
# 建立一個物件，命名為bmi，將上述已建立的物件，寫入bmi_j計算公式，算出班上三位同學的bmi
bmi_j <- my_weight/(my_height/100)^2
names(bmi_j) <-c( "Xaing","benben","lo")
# 畫圖
barplot(bmi_j,xlab="NAME",ylab="BMI",col="springgreen3")
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(613:615))
barplot(sort(bmi_j,decreasing=TRUE),main="My Bro's BMI",sub="By Fu",xlab="NAME",ylab="BMI",col=(604:607))
# 建立一個物件，命名為bmi_j，用bmi的標準，判斷三位同學的bmi是否正常
bmi_j>=18.5&bmi_j<24
## Xaing benben lo
## TRUE FALSE FALSE
### 課本練習
# 題組二
# 香港搖滾樂隊 Beyond 於 1983 年成立，我們假設成立日期是 1983-12-31，請將成立日期指派給 `beyond_start` 並轉換成整數輸出在命令列
# 請以系統日期計算今年是 Beyond 成立幾週年紀念？
### 進階練習
# 題組二
# 五月天於 1999年7月7日 正式出道
# 請將成立日期命名為Mayday_start並轉換成整數輸出在命令列
# 請以系統日期計算今年是 五月天 成立幾週年紀念？
# 防彈少年團BST於 2013年7月9日 正式出道
# 請問五月天比防彈少年團BST出道時間早多少天?