作業四

從疫情中心的開放資料網站蒐集到「地區年齡性別統計表-麻疹」(2003年起各地區、各年齡層、性別之病例數統計表(疾病名稱：麻疹，日期種類：發病日，病例種類：確定病例，感染來源：本土、境外移入)，資料如下:

library(readr)
measles <- read_csv("https://raw.githubusercontent.com/ywchiu/cdc_course/master/data/measles.csv")
## Parsed with column specification:
## cols(
##   確定病名 = col_character(),
##   發病年份 = col_integer(),
##   發病月份 = col_integer(),
##   縣市 = col_character(),
##   鄉鎮 = col_character(),
##   性別 = col_character(),
##   是否為境外移入 = col_character(),
##   年齡層 = col_character(),
##   確定病例數 = col_integer()
## )
head(measles)
## # A tibble: 6 x 9
##   確定病名 發病年份 發病月份   縣市   鄉鎮  性別 是否為境外移入 年齡層
##      <chr>    <int>    <int>  <chr>  <chr> <chr>          <chr>  <chr>
## 1     麻疹     2009        4 高雄市 小港區     M             否  20-24
## 2     麻疹     2009        5 基隆市 中山區     M             否  30-34
## 3     麻疹     2011        6 新北市 蘆洲區     F             是  25-29
## 4     麻疹     2014        1 高雄市 三民區     F             是      0
## 5     麻疹     2017        3 台北市 松山區     F             是      0
## 6     麻疹     2018        4 桃園市 蘆竹區     F             否  30-34
## # ... with 1 more variables: 確定病例數 <int>

請試用R 語言回答以下問題:

  1. 請統計自2010年後，非境外移入病例的男性與女性數?
  2. 繼第1題，請使用長條圖(Bar Chart) 呈現出男性與女性病例數 ?
  3. 繼第2題，請使用圓餅圖(Pir Chart) 呈現出男性與女性病例數比例 ?
  4. 請根據發病年份及發病月份，統計各年齡層的發病數量?
  5. 繼第4題，請使用折線圖(Line Chart) 依發病時間與病例數繪製各年齡層的病例趨勢圖 ?
  6. 繼第5題，請將各年齡層的病例趨勢圖合併成一張5 X 3 (5列3欄)的大圖 ?