-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathAS02_R-Intermediate_ref.Rmd
executable file
·281 lines (231 loc) · 11 KB
/
AS02_R-Intermediate_ref.Rmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
---
title: "AS02_R-Intermediate"
author: "曾子軒 Teaching Assistant"
date: "2021/03/09"
output:
html_document:
number_sections: no
theme: united
highlight: tango
toc: yes
toc_depth: 4
toc_float:
collapsed: no
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE, results = 'hold', comment = '#>', error = TRUE)
```
## 作業目的: R-Intermediate
這份作業希望能夠讓你熟習於在 R 裡面的流程控制(control flow)，主要練習條件判斷與迴圈，並實際撰寫函數，題目共有三題。
第一題希望你用條件判斷和迴圈拼出一段程式碼，題目敘述看起來有些荒謬，但現實世界中有可以對應、正常一些的例子。
第二題則是將第一題改寫成函數，這樣的過程在後面擷取網頁資料時會用到，舉例來說，你可能想抓 PTT 上 NTUCourse 板上的資料，第一次你寫了一個迴圈，半個月之後你想抓 KoreaDrama 板上的資料，所以改寫之前的程式碼，或者乾脆重新寫了一次，若相同的過程不斷重複，將前面的程式碼改寫成函數，就是相對較有效率的做法。
第三題和前兩題無關，希望你寫一個輸入日期、輸出星座的函數，利用 Yahoo 或 Google Search 其實就可以搜到很多類似功能的網站，但現在的你也完全有能力寫出相同的東西。
希望你在實作的過程中有所學習，雖然遇到 error 或卡住的時候會心情很悶，但這種壓力可以刺激成長，如同《一流的人如何保持顛峰》所說，在成為頂尖高手的路上需要拼搏(努力)，而拼搏需要面對建設性挫敗（productive failure），而非讓人愉悅的練習，希望在這份作業中你越挫越勇，並且記得休息唷
## 作業: R-Intermediate
滿分 120 分，超過 100 分會以實際分數登記 e.g. 118 分。
### for loop & conditional statement (40 分)
有位同學小軒非常偏食，又會因為某些原因恣意的拒吃某些店家。請依照小軒的飲食禁忌，利用迴圈與條件判斷，印出一週中每天各自小軒**會吃**的店家。
- 飲食條件一: 若當天為週間的奇數日(週一、週三、週五)，僅吃名稱長度為奇數的店家
- 飲食條件二: 若當天為週間的偶數日(週二、週四)，僅吃名稱中包含"水餃"的店家
- 飲食條件三: 若當天為週六，僅吃名稱中包含"館"的店家
- 飲食條件四: 若當天為週日，小軒節食都不吃，請印出**一次**"週日小軒都不吃"
上面的條件看來有些複雜，下方提供提示:
- 本題可以利用雙層迴圈
- 判斷店名長度可以利用`str_length()`函數，像是`str_length("小軒")` 的結果是 2
- 判斷店名是否包含特定字詞，可以利用正規表達式，之後會教學，可以先用 `str_detect(字串, "關鍵字")`判斷，舉例來說，`str_detect("信陽麵館", "館")` 會得到 TRUE
- 最後一部分(印出**一次**"週日小軒都不吃")相對困難，可以想一下要怎麼不多印幾次，譬如利用條件判斷式
- 若用`str_detect()`，記得先安裝 `tidyverse` or `stringr`後載入套件
```{r message=FALSE, warning=FALSE}
### your code
library(tidyverse)
vector_shop <- c("五九麵館", "親來食堂", "憶馬當鮮", "揪食堂韓國餐館",
"找碗", "大李水餃", "李記水餃", "林師傅", "馬祖麵館")
vector_weekday <- c("週一", "週二", "週三", "週四", "週五", "週六", "週日")
for (i in 1:length(vector_weekday)) {
for (j in 1:length(vector_shop)) {
if(i %in% c(1,3,5)){
if(str_length(vector_shop[j]) %% 2 == 1){print(str_c(vector_weekday[i], "小軒吃", vector_shop[j]))}
} else if(i %in% c(2, 4)){
if(str_detect(vector_shop[j], "水餃")){print(str_c(vector_weekday[i], "小軒吃", vector_shop[j]))}
} else if(i %in% c(6)){
if(str_detect(vector_shop[j], "館")){print(str_c(vector_weekday[i], "小軒吃", vector_shop[j]))}
} else if(i %in% c(7) & j == 1) {
print("週日小軒都不吃")
}
}
}
### result should be
# [1] "週一小軒吃揪食堂韓國餐館"
# [1] "週一小軒吃林師傅"
# [1] "週二小軒吃大李水餃"
# [1] "週二小軒吃李記水餃"
# [1] "週三小軒吃揪食堂韓國餐館"
# [1] "週三小軒吃林師傅"
# [1] "週四小軒吃大李水餃"
# [1] "週四小軒吃李記水餃"
# [1] "週五小軒吃揪食堂韓國餐館"
# [1] "週五小軒吃林師傅"
# [1] "週六小軒吃五九麵館"
# [1] "週六小軒吃揪食堂韓國餐館"
# [1] "週六小軒吃馬祖麵館"
# [1] "週日小軒都不吃"
```
### functions (i) (40 分)
承接上題，請將上方迴圈改寫為名為 `hsuan_meal()` 的函數，小軒使用此函數時會輸入當週的第幾天 e.g. 週一，以及店家名稱，並依照飲食條件得到結果。
- 預期結果舉例:
- `hsuan_meal("週一", "林師傅")` 會得到 `週一小軒吃林師傅`
- `hsuan_meal("週二", "親來食堂")` 會得到 `週二小軒不吃親來食堂`
- `hsuan_meal("週日", "找碗")` 會得到 `週日小軒不吃找碗`
```{r}
vector_shop <- c("五九麵館", "親來食堂", "憶馬當鮮", "揪食堂韓國餐館",
"找碗", "大李水餃", "李記水餃", "林師傅", "馬祖麵館")
vector_weekday <- c("週一", "週二", "週三", "週四", "週五", "週六", "週日")
### your code
hsuan_meal <- function(weekday, name){
if(which(vector_weekday==weekday) %% 2 == 1 & str_length(name) %% 2 == 1 ) {
print(str_c(weekday, "小軒吃", name))
} else if(which(vector_weekday==weekday) %in% c(2,4) & str_detect(name, "水餃")) {
print(str_c(weekday, "小軒吃", name))
} else if(which(vector_weekday==weekday) %in% c(6) & str_detect(name, "館")) {
print(str_c(weekday, "小軒吃", name))
} else {
print(str_c(weekday, "小軒不吃", name))
}
}
### result should be
hsuan_meal("週一","林師傅")
# [1] "週一小軒吃林師傅"
hsuan_meal("週二","親來食堂")
# [1] "週二小軒不吃親來食堂"
hsuan_meal("週日","找碗")
# [1] "週日小軒不吃找碗"
```
### functions (ii) (40 分)
請撰寫一個函數 `get_zodiac()`，使用者輸入生日(字串或者數值，底下會舉例)，該函數便會告訴你所屬的星座。
不能使用他人開發好的現成函數，要自己寫喔。
- 可以利用條件判斷(if else)來比較日期，你會用到很多 if else
- 可以利用 `library(lubridate)` 處理使用者輸入的日期，有幾個可以用的函數譬如 `as_date()`, `month()`, `day()`
- 如果對方亂輸入，要跳出一段訊息，這邊也可以用 if else 解決
- 預期結果舉例:
- `get_zodiac("1996-09-25")` 會得到 `天秤座`
- `get_zodiac("1996-09-01")` 會得到 `處女座`
- `get_zodiac(19970101)` 會得到 `魔羯座`
- `get_zodiac("一九九八三月十四日")` 會得到 `請以'YYYY-MM-DD'格式輸入數字`
- 我會輸入上面以外的測資，所以不要僅寫針對上面四個輸入值的 if else 喔！
```{r warning=F, message=F}
library(tidyverse)
library(lubridate)
### 綺薇
get_zodiac_kiwi <- function(x){
x <- ymd(x)
if(is.na(x)){
print("請以'YYYY-MM-DD'格式輸入數字")
}else if((month(x)==12)&&(day(x)>=23)){
print("摩羯座")
}else if((month(x)==01)&&(day(x)<=22)){
print("摩羯座")
}else if((month(x)==01)&&(day(x)>=23)){
print("水瓶座")
}else if((month(x)==02)&&(day(x)<=22)){
print("水瓶座")
}else if((month(x)==02)&&(day(x)>=23)){
print("雙魚座")
}else if((month(x)==03)&&(day(x)<=22)){
print("雙魚座")
}else if((month(x)==03)&&(day(x)>=23)){
print("牡羊座")
}else if((month(x)==04)&&(day(x)<=22)){
print("牡羊座")
}else if((month(x)==04)&&(day(x)>=23)){
print("金牛座")
}else if((month(x)==05)&&(day(x)<=22)){
print("金牛座")
}else if((month(x)==05)&&(day(x)>=23)){
print("雙子座")
}else if((month(x)==06)&&(day(x)<=22)){
print("雙子座")
}else if((month(x)==06)&&(day(x)>=23)){
print("巨蟹座")
}else if((month(x)==07)&&(day(x)<=22)){
print("巨蟹座")
}else if((month(x)==07)&&(day(x)>=23)){
print("獅子座")
}else if((month(x)==08)&&(day(x)<=22)){
print("獅子座")
}else if((month(x)==08)&&(day(x)>=23)){
print("處女座")
}else if((month(x)==09)&&(day(x)<=22)){
print("處女座")
}else if((month(x)==09)&&(day(x)>=23)){
print("天秤座")
}else if((month(x)==10)&&(day(x)<=22)){
print("天秤座")
}else if((month(x)==10)&&(day(x)>=23)){
print("天蠍座")
}else if((month(x)==11)&&(day(x)<=22)){
print("天蠍座")
}else if((month(x)==11)&&(day(x)>=23)){
print("射手座")
}else if((month(x)==12)&&(day(x)<=22)){
print("射手座")
}
}
### test
get_zodiac_kiwi("1996-09-25")
get_zodiac_kiwi("1996-09-01")
get_zodiac_kiwi(19960925)
get_zodiac_kiwi("一九九八三月十四日")
### 子軒
get_zodiac_dennis <- function(hbd) {
if(is.na(as_date(as.character(hbd)))){
print("請以'YYYY-MM-DD'格式輸入數字")
}
else {
hbd <- as_date(as.character(hbd))
hbd_month <- month(hbd)
hbd_day <- day(hbd)
hbd_num <- hbd_month*100 + hbd_day
if(hbd_num >= 120 & hbd_num <= 218) {zodiac <- '水瓶座'}
else if(hbd_num >= 219 & hbd_num <= 320) {zodiac <- '雙魚座'}
else if(hbd_num >= 321 & hbd_num <= 419) {zodiac <- "白羊座"}
else if(hbd_num >= 420 & hbd_num <= 520) {zodiac <- '金牛座'}
else if(hbd_num >= 521 & hbd_num <= 620) {zodiac <- '雙子座'}
else if(hbd_num >= 621 & hbd_num <= 722) {zodiac <- '巨蟹座'}
else if(hbd_num >= 723 & hbd_num <= 822) {zodiac <- '獅子座'}
else if(hbd_num >= 823 & hbd_num <= 922) {zodiac <- '處女座'}
else if(hbd_num >= 923 & hbd_num <= 1022) {zodiac <- '天秤座'}
else if(hbd_num >= 1023 & hbd_num <= 1121) {zodiac <- '天蠍座'}
else if(hbd_num >= 1122 & hbd_num <= 1221) {zodiac <- '射手座'}
else if(hbd_num >= 1222 | hbd_num <= 119) {zodiac <- '摩羯座'}
else {zodiac <- "gg"}
return(zodiac)
}
}
### test
get_zodiac_dennis("1996-09-25")
get_zodiac_dennis("1996-09-01")
get_zodiac_dennis(19960925)
get_zodiac_dennis("一九九八三月十四日")
### 美瑜
get_zodiac_meiyu <- function(input_date) {
if(!is.character(input_date)){ input_date <- as.character(input_date) }
zodiac_date <- c(21, 20, 21, 20, 21, 22, 23, 23, 23, 24, 22, 21)
zodiac_name <- c("摩羯座", "水瓶座", "雙魚座", "牡羊座", "金牛座", "雙子座",
"巨蟹座", "獅子座", "處女座", "天秤座", "天蠍座", "射手座", "摩羯座")
input_date <- lubridate::as_date(input_date)
if(is.na(input_date)) {
print("請以'YYYY-MM-DD'格式輸入數字")
} else {
if(as.numeric(day(input_date)) / zodiac_date[as.numeric(month(input_date))] < 1){
print(zodiac_name[as.numeric(month(input_date))])
} else {
print(zodiac_name[as.numeric(month(input_date))+1])
}
}
}
### test
get_zodiac_meiyu("1996-09-25")
get_zodiac_meiyu("1996-09-01")
get_zodiac_meiyu(19960925)
get_zodiac_meiyu("一九九八三月十四日")
```