library(xlsx)
data <- read.xlsx("psy.xlsx", 1, encoding = "UTF-8")
# 檢視資料檔案內容
View(data)
str(data)
## 'data.frame': 18 obs. of 19 variables:
## $ 時間戳記 : POSIXct, format: "2021-02-27 10:14:22" "2021-02-27 10:30:25" ...
## $ 電子郵件地址 : chr "0803brian@gmail.com" "bbirbbira@gmail.com" "p7786071@gmail.com" "kd910518@gmail.com" ...
## $ 姓名 : chr "1130730408莊詠翔" "1130730404 陳芎宇" "1130730406 楊世宏" "1130730416 <U+9EC4>子騏" ...
## $ 請問你的出生年月日 : Date, format: "2002-03-08" "2001-12-04" ...
## $ 請問你的生理性別 : chr "男" "男" "男" "男" ...
## $ 請問你的身高.公分. : num 180 173 170 177 169 178 172 167 188 158 ...
## $ 請問你的體重.公斤. : num 60 62 69 65 64 78 72 63 100 53 ...
## $ 請問你大約每週有幾天會使用IG..單位..天數. : num 6 4 1 7 7 7 6 7 7 7 ...
## $ 在你有玩IG的那一天.你一整天大概玩多久..以小時計算.請填數字.例如30分鐘.請填0.5小時.若3小時.則填3.: num 0.5 0.25 0.3 0.5 0.2 2 1 1 0.5 0.5 ...
## $ 當在瀏覽IG時.你多常關注那些比你過得好的人. : chr "經常" "有時" "有時" "有時" ...
## $ 當在瀏覽IG時.你多常關注那些比你過得差的人. : chr "有時" "完全沒有" "完全沒有" "有時" ...
## $ 整體而言.你對於自己滿不滿意. : chr "普通" "普通" "普通" "滿意" ...
## $ 整體而言.你對於你的社交生活滿不滿意. : chr "普通" "不滿意" "滿意" "滿意" ...
## $ 整體而言.你對自己目前的健康狀況滿不滿意. : chr "非常不滿意" "普通" "滿意" "滿意" ...
## $ 整體而言.你對於你的生活滿不滿意. : chr "普通" "不滿意" "滿意" "滿意" ...
## $ 請問你有心事的時候.經常找哪位同學聊聊 : chr "1130730401張藝馨" "1130730404 陳芎宇" "1130730404 陳芎宇" "1130730414 蔡承軒" ...
## $ 請問你缺錢的時候.經常找哪位同學借錢 : chr "1130730406 楊世宏" "1130730404 陳芎宇" "1130730401張藝馨" "1130730402洪銘材" ...
## $ 請用20個字以上描述你認為軍校生應具備的特質與能力 : chr "懂得變通，不能什麼都只聽上面的人說話，要有自己的想法，但也不能直接頂撞，要保護自己" "能夠服從上級命令，卻又不失自己的想法，不會盲目的服從" "我認為軍校生要勤奮自主，並且有靈活的思考方式。" "應該要能對自己的國家有認同感，培養國際局勢，並於在學期間規劃好未來生涯" ...
## $ 請用20個字以上描述你的理想情人的標準與特質 : chr "長頭髮、可愛型的、稍微粘人但也不要太黏，160-170之間" "能夠了解我的，能夠體諒我的個性的，能夠聽我和陪我說話的" "能夠互相理解、尊重彼此的喜好、協助對方完成目標、視彼此為重要他人。" "我也沒什麼好描述的啦，條件又沒多好哪有資格要求東要求西，感覺對了就好反正也把不到" ...
# 檢視欄位名稱
names(data)
## [1] "時間戳記"
## [2] "電子郵件地址"
## [3] "姓名"
## [4] "請問你的出生年月日"
## [5] "請問你的生理性別"
## [6] "請問你的身高.公分."
## [7] "請問你的體重.公斤."
## [8] "請問你大約每週有幾天會使用IG..單位..天數."
## [9] "在你有玩IG的那一天.你一整天大概玩多久..以小時計算.請填數字.例如30分鐘.請填0.5小時.若3小時.則填3."
## [10] "當在瀏覽IG時.你多常關注那些比你過得好的人."
## [11] "當在瀏覽IG時.你多常關注那些比你過得差的人."
## [12] "整體而言.你對於自己滿不滿意."
## [13] "整體而言.你對於你的社交生活滿不滿意."
## [14] "整體而言.你對自己目前的健康狀況滿不滿意."
## [15] "整體而言.你對於你的生活滿不滿意."
## [16] "請問你有心事的時候.經常找哪位同學聊聊"
## [17] "請問你缺錢的時候.經常找哪位同學借錢"
## [18] "請用20個字以上描述你認為軍校生應具備的特質與能力"
## [19] "請用20個字以上描述你的理想情人的標準與特質"
# 用英文重新命名欄位名稱
names(data)[1:19] <- c("time", "email",
"name","birth",
"gender","height",
"weight","useig","usetime",
"up_com","down_com",
"sat_self","sat_social",
"sat_health","sat_life",
"mate_talk","mate_money",
"cadet","lover")
names(data)
## [1] "time" "email" "name" "birth" "gender"
## [6] "height" "weight" "useig" "usetime" "up_com"
## [11] "down_com" "sat_self" "sat_social" "sat_health" "sat_life"
## [16] "mate_talk" "mate_money" "cadet" "lover"
# 建立一個物件bmi_j，計算同學們的bmi
bmi_j <- data$weight / (data$height / 100)^2
bmi_j
## [1] 18.51852 20.71569 23.87543 20.74755 22.40818 24.61810 24.33748 22.58955
## [9] 28.29335 21.23057 18.59113 23.87543 26.47211 17.84652 18.33910 23.12406
## [17] 21.67126 23.24380
# 檢視所有同學的體位狀況
for (bmi in bmi_j){
if(bmi>=18.5 &bmi<24){
print("健康體位")
} else if (bmi<18.5){
print("體重過輕")
} else{
print("體位異常")
}
}
## [1] "健康體位"
## [1] "健康體位"
## [1] "健康體位"
## [1] "健康體位"
## [1] "健康體位"
## [1] "體位異常"
## [1] "體位異常"
## [1] "健康體位"
## [1] "體位異常"
## [1] "健康體位"
## [1] "健康體位"
## [1] "健康體位"
## [1] "體位異常"
## [1] "體重過輕"
## [1] "體重過輕"
## [1] "健康體位"
## [1] "健康體位"
## [1] "健康體位"