從疫情中心的開放資料網站蒐集到登革熱1998年起每日確定病例統計數字,現已經根據發病年、居住縣市、性別、是否境外移入與感染國家等條件統計相關病例數,資料如下:
library(readr)
Dengue <- read_csv("https://raw.githubusercontent.com/ywchiu/cdc_course/master/data/Dengue.csv")
## Warning: Missing column names filled in: 'X1' [1]
## Parsed with column specification:
## cols(
## X1 = col_integer(),
## 發病年 = col_integer(),
## 居住縣市 = col_character(),
## 性別 = col_character(),
## 是否境外移入 = col_character(),
## 感染國家 = col_character(),
## 病例數 = col_integer()
## )
head(Dengue)
## # A tibble: 6 x 7
## X1 發病年 居住縣市 性別 是否境外移入 感染國家 病例數
## <int> <int> <chr> <chr> <chr> <chr> <int>
## 1 1 2001 台中市 女 否 中華民國 1
## 2 2 2002 台中市 女 否 中華民國 3
## 3 3 2004 台中市 女 否 中華民國 1
## 4 4 2011 台中市 女 否 中華民國 3
## 5 5 2013 台中市 女 否 中華民國 1
## 6 6 2014 台中市 女 否 中華民國 8
請試用R 語言回答以下問題: