# your code goes here
 
library(dplyr)
 
typhoon <- read.csv("C:\\Users\\TOM\\Desktop\\颱風資料\\typhoon.csv")  
typhoon <- read.csv("C:\\Users\\chiuyuanwu\\Desktop\\typhoon.csv")
wanted_days <- typhoon %>% filter(Hour %in% c(0, 6, 12, 18)) %>%
                           group_by(Year, Month, Day) %>%  # 我猜測你完整的資料集有不同年月份，這樣寫比較不會出錯
                           summarise(n = n_distinct(Hour)) %>% filter(n == 4) # 挑選出同一天含有這四個時間點的日期儲存為變數
                           ## 注意，上述寫法若同天有兩個颱風可能會出錯，建議你建一個颱風的id
 
typhoon_filter <- typhoon %>% filter(Year %in% wanted_days$Year & 
                                     Month %in% wanted_days$Month & 
                                     Day %in% wanted_days$Day)
 
# 完成

IyB5b3VyIGNvZGUgZ29lcyBoZXJlCgpsaWJyYXJ5KGRwbHlyKQoKdHlwaG9vbiA8LSByZWFkLmNzdigiQzpcXFVzZXJzXFxUT01cXERlc2t0b3BcXOmisemiqOizh+aWmVxcdHlwaG9vbi5jc3YiKSAgCnR5cGhvb24gPC0gcmVhZC5jc3YoIkM6XFxVc2Vyc1xcY2hpdXl1YW53dVxcRGVza3RvcFxcdHlwaG9vbi5jc3YiKQp3YW50ZWRfZGF5cyA8LSB0eXBob29uICU+JSBmaWx0ZXIoSG91ciAlaW4lIGMoMCwgNiwgMTIsIDE4KSkgJT4lCiAgICAgICAgICAgICAgICAgICAgICAgICAgIGdyb3VwX2J5KFllYXIsIE1vbnRoLCBEYXkpICU+JSAgIyDmiJHnjJzmuKzkvaDlrozmlbTnmoTos4fmlpnpm4bmnInkuI3lkIzlubTmnIjku73vvIzpgJnmqKPlr6vmr5TovIPkuI3mnIPlh7rpjK8KICAgICAgICAgICAgICAgICAgICAgICAgICAgc3VtbWFyaXNlKG4gPSBuX2Rpc3RpbmN0KEhvdXIpKSAlPiUgZmlsdGVyKG4gPT0gNCkgIyDmjJHpgbjlh7rlkIzkuIDlpKnlkKvmnInpgJnlm5vlgIvmmYLplpPpu57nmoTml6XmnJ/lhLLlrZjngrrorormlbgKICAgICAgICAgICAgICAgICAgICAgICAgICAgIyMg5rOo5oSP77yM5LiK6L+w5a+r5rOV6Iul5ZCM5aSp5pyJ5YWp5YCL6aKx6aKo5Y+v6IO95pyD5Ye66Yyv77yM5bu66K2w5L2g5bu65LiA5YCL6aKx6aKo55qEaWQKCnR5cGhvb25fZmlsdGVyIDwtIHR5cGhvb24gJT4lIGZpbHRlcihZZWFyICVpbiUgd2FudGVkX2RheXMkWWVhciAmIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgTW9udGggJWluJSB3YW50ZWRfZGF5cyRNb250aCAmIAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgRGF5ICVpbiUgd2FudGVkX2RheXMkRGF5KQoKIyDlrozmiJA=