# 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)

# 完成