##本來這一個tb的data當中的column不是變數值，是男生：0-4歲、5-14歲、0-14歲、15-24歲（依次）
library(tidyverse)## ─ Attaching packages ──────────────────────────── tidyverse 1.3.0 ─## ✓ ggplot2 3.3.2 ✓ purrr 0.3.4
## ✓ tibble 3.0.3 ✓ dplyr 1.0.2
## ✓ tidyr 1.1.2 ✓ stringr 1.4.0
## ✓ readr 1.3.1 ✓ forcats 0.5.0## ─ Conflicts ────────────────────────────── tidyverse_conflicts() ─
## x dplyr::filter() masks stats::filter()
## x dplyr::lag() masks stats::lag()tb <- head(read.csv("tb.csv"))
tb## iso2 year new_sp m_0.4 m_5.14 m_0.14 m_15.24 m_25.34 m_35.44 m_45.54 m_55.64
## 1 AD 1989 NA NA NA NA NA NA NA NA NA
## 2 AD 1990 NA NA NA NA NA NA NA NA NA
## 3 AD 1991 NA NA NA NA NA NA NA NA NA
## 4 AD 1992 NA NA NA NA NA NA NA NA NA
## 5 AD 1993 15 NA NA NA NA NA NA NA NA
## 6 AD 1994 24 NA NA NA NA NA NA NA NA
## m_65 m_unknown f_0.4 f_5.14 f_0.14 f_15.24 f_25.34 f_35.44 f_45.54 f_55.64
## 1 NA NA NA NA NA NA NA NA NA NA
## 2 NA NA NA NA NA NA NA NA NA NA
## 3 NA NA NA NA NA NA NA NA NA NA
## 4 NA NA NA NA NA NA NA NA NA NA
## 5 NA NA NA NA NA NA NA NA NA NA
## 6 NA NA NA NA NA NA NA NA NA NA
## f_65 f_unknown
## 1 NA NA
## 2 NA NA
## 3 NA NA
## 4 NA NA
## 5 NA NA
## 6 NA NA##試著用gather把column集中下來，不過為什麼只有剩下m_0-4歲？如果想看5-14歲、15-24歲這些怎麼看呢？
tb.colnames <- colnames(tb)
tb.new <- tb %>%
gather( tb.colnames[4:ncol(tb)],
key = "type",
value = "cases")
tb.new## iso2 year new_sp type cases
## 1 AD 1989 NA m_0.4 NA
## 2 AD 1990 NA m_0.4 NA
## 3 AD 1991 NA m_0.4 NA
## 4 AD 1992 NA m_0.4 NA
## 5 AD 1993 15 m_0.4 NA
## 6 AD 1994 24 m_0.4 NA
## 7 AD 1989 NA m_5.14 NA
## 8 AD 1990 NA m_5.14 NA
## 9 AD 1991 NA m_5.14 NA
## 10 AD 1992 NA m_5.14 NA
## 11 AD 1993 15 m_5.14 NA
## 12 AD 1994 24 m_5.14 NA
## 13 AD 1989 NA m_0.14 NA
## 14 AD 1990 NA m_0.14 NA
## 15 AD 1991 NA m_0.14 NA
## 16 AD 1992 NA m_0.14 NA
## 17 AD 1993 15 m_0.14 NA
## 18 AD 1994 24 m_0.14 NA
## 19 AD 1989 NA m_15.24 NA
## 20 AD 1990 NA m_15.24 NA
## 21 AD 1991 NA m_15.24 NA
## 22 AD 1992 NA m_15.24 NA
## 23 AD 1993 15 m_15.24 NA
## 24 AD 1994 24 m_15.24 NA
## 25 AD 1989 NA m_25.34 NA
## 26 AD 1990 NA m_25.34 NA
## 27 AD 1991 NA m_25.34 NA
## 28 AD 1992 NA m_25.34 NA
## 29 AD 1993 15 m_25.34 NA
## 30 AD 1994 24 m_25.34 NA
## 31 AD 1989 NA m_35.44 NA
## 32 AD 1990 NA m_35.44 NA
## 33 AD 1991 NA m_35.44 NA
## 34 AD 1992 NA m_35.44 NA
## 35 AD 1993 15 m_35.44 NA
## 36 AD 1994 24 m_35.44 NA
## 37 AD 1989 NA m_45.54 NA
## 38 AD 1990 NA m_45.54 NA
## 39 AD 1991 NA m_45.54 NA
## 40 AD 1992 NA m_45.54 NA
## 41 AD 1993 15 m_45.54 NA
## 42 AD 1994 24 m_45.54 NA
## 43 AD 1989 NA m_55.64 NA
## 44 AD 1990 NA m_55.64 NA
## 45 AD 1991 NA m_55.64 NA
## 46 AD 1992 NA m_55.64 NA
## 47 AD 1993 15 m_55.64 NA
## 48 AD 1994 24 m_55.64 NA
## 49 AD 1989 NA m_65 NA
## 50 AD 1990 NA m_65 NA
## 51 AD 1991 NA m_65 NA
## 52 AD 1992 NA m_65 NA
## 53 AD 1993 15 m_65 NA
## 54 AD 1994 24 m_65 NA
## 55 AD 1989 NA m_unknown NA
## 56 AD 1990 NA m_unknown NA
## 57 AD 1991 NA m_unknown NA
## 58 AD 1992 NA m_unknown NA
## 59 AD 1993 15 m_unknown NA
## 60 AD 1994 24 m_unknown NA
## 61 AD 1989 NA f_0.4 NA
## 62 AD 1990 NA f_0.4 NA
## 63 AD 1991 NA f_0.4 NA
## 64 AD 1992 NA f_0.4 NA
## 65 AD 1993 15 f_0.4 NA
## 66 AD 1994 24 f_0.4 NA
## 67 AD 1989 NA f_5.14 NA
## 68 AD 1990 NA f_5.14 NA
## 69 AD 1991 NA f_5.14 NA
## 70 AD 1992 NA f_5.14 NA
## 71 AD 1993 15 f_5.14 NA
## 72 AD 1994 24 f_5.14 NA
## 73 AD 1989 NA f_0.14 NA
## 74 AD 1990 NA f_0.14 NA
## 75 AD 1991 NA f_0.14 NA
## 76 AD 1992 NA f_0.14 NA
## 77 AD 1993 15 f_0.14 NA
## 78 AD 1994 24 f_0.14 NA
## 79 AD 1989 NA f_15.24 NA
## 80 AD 1990 NA f_15.24 NA
## 81 AD 1991 NA f_15.24 NA
## 82 AD 1992 NA f_15.24 NA
## 83 AD 1993 15 f_15.24 NA
## 84 AD 1994 24 f_15.24 NA
## 85 AD 1989 NA f_25.34 NA
## 86 AD 1990 NA f_25.34 NA
## 87 AD 1991 NA f_25.34 NA
## 88 AD 1992 NA f_25.34 NA
## 89 AD 1993 15 f_25.34 NA
## 90 AD 1994 24 f_25.34 NA
## 91 AD 1989 NA f_35.44 NA
## 92 AD 1990 NA f_35.44 NA
## 93 AD 1991 NA f_35.44 NA
## 94 AD 1992 NA f_35.44 NA
## 95 AD 1993 15 f_35.44 NA
## 96 AD 1994 24 f_35.44 NA
## 97 AD 1989 NA f_45.54 NA
## 98 AD 1990 NA f_45.54 NA
## 99 AD 1991 NA f_45.54 NA
## 100 AD 1992 NA f_45.54 NA
## 101 AD 1993 15 f_45.54 NA
## 102 AD 1994 24 f_45.54 NA
## 103 AD 1989 NA f_55.64 NA
## 104 AD 1990 NA f_55.64 NA
## 105 AD 1991 NA f_55.64 NA
## 106 AD 1992 NA f_55.64 NA
## 107 AD 1993 15 f_55.64 NA
## 108 AD 1994 24 f_55.64 NA
## 109 AD 1989 NA f_65 NA
## 110 AD 1990 NA f_65 NA
## 111 AD 1991 NA f_65 NA
## 112 AD 1992 NA f_65 NA
## 113 AD 1993 15 f_65 NA
## 114 AD 1994 24 f_65 NA
## 115 AD 1989 NA f_unknown NA
## 116 AD 1990 NA f_unknown NA
## 117 AD 1991 NA f_unknown NA
## 118 AD 1992 NA f_unknown NA
## 119 AD 1993 15 f_unknown NA
## 120 AD 1994 24 f_unknown NA