Homework5

作業五

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

library(readr)

## Warning: package 'readr' was built under R version 3.2.5

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>    <int>
## 1 麻疹         2009        4 高雄市 小港區 M     否         20-24        2
## 2 麻疹         2009        5 基隆市 中山區 M     否         30-34        1
## 3 麻疹         2011        6 新北市 蘆洲區 F     是         25-29        1
## 4 麻疹         2014        1 高雄市 三民區 F     是         0            1
## 5 麻疹         2017        3 台北市 松山區 F     是         0            1
## 6 麻疹         2018        4 桃園市 蘆竹區 F     否         30-34        1

請試用 ggplot2 回答以下問題:

1. 請使用長條圖(Bar Chart) 呈現出2010年後，非境外移入病例的男性與女性病例數 ?
2. 繼第1題，請使用圓餅圖(Pie Chart) 呈現出男性與女性病例數比例 ?
3. 請使用折線圖(Line Chart) 依發病時間與病例數繪製各年齡層的病例趨勢圖 ?