w5.R

# 周次：w5
# 任務：流程控制
# 姓名：廖呈祐
# 日期：2021年03月03日

library(showtext)

## Loading required package: sysfonts

## Loading required package: showtextdb

showtext_auto()
### 題組一
## 1. 參考https://health99.hpa.gov.tw/onlineQuiz/bmi
## 利用w2(bmi)的作業，判斷自己體位狀況

# 將您的身高（公分）指派給 `my_height`；體重（公斤）指派給 `my_weight`
my_height <- 169#cm
my_weight <- 63#kg
# 分別將 `my_height` 與 `my_weight` 輸出在命令列

# 利用 `my_height` 與 `my_weight` 計算您的**身體質量指數**（Body Mass Index，BMI），BMI 計算公式為：https://health99.hpa.gov.tw/onlineQuiz/bmi
BMI <- my_weight/(my_height/100)^2
# 將您的姓名指派給 `bmi` 並且輸出在命令列
names(BMI) <- "廖呈祐的BMI"
BMI

## 廖呈祐的BMI 
##    22.05805

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

## 廖呈祐的BMI 
##        TRUE

# 判斷bmi的體位狀況
if(BMI>=18.5&BMI<24){
print("健康體位")
}else if(BMI<18.5){
print("過輕")
}else if(BMI>24&BMI<27){
print("過重")
}else if(BMI>=24&BMI<27){
print("輕度肥胖")
}else if(BMI>=30&BMI<35){
print("中度肥胖")
}else{print("重度肥胖")}

## [1] "健康體位"

## 題組二 
# 1. 判斷全班同學體位狀況
# 請先下載google問卷結果
# 讓Rstudio cloud讀xlsx檔
#installed.packages("readxl")
#library(readxl)
#data <- read_excel("psy.xlsx")
#View(data)


# 檢視資料檔案內容

# 檢視欄位名稱

# 用英文重新命名欄位名稱

# 建立一個物件bmi_j，計算同學們的bmi

# 檢視所有同學的體位狀況