????? ??????????(9983201200027)
??????? ????????? ??? ?????????????
?.???????
???????? :
? ??????????? ??????? ????? ?????? ?? ????? ??? ???????????? ?????? ?????? ???? ???? ??? ?????, ??? ?????????? ?????? ????? ? ??????? ???? ??????? ?? ????? ????? ?????, ???? ??? 24? ???????? ???????. ????? ???????? ??????? ??? ????????? ??????????? ?? ???????????? ???? ???????? ???? ??? ?? 1956 ??? ?? 2014. (???????? ?????????? ????) 1
????? 1? :
????????? ?? ????????? ??? ????????????????? :
> csv_files=dir(pattern = “csv$”)
> csv_files
[1] “babies.death.csv” “DP_LIVE_06062016124245319.csv”
> th=read.table(csv_files[1],header=T,sep=”;”)
# ???????? ????????????
> library(dplyr)
> foo=th
> colnames(foo)[1:6]=c(“????”,”?????????.??????”,”???.6.??”,”???.7.???.17.??”,”???.18.??.???.11.???”,”??????????.?????”)
# ????????? ??????? wide format => long format ?? ????? ??? ?????????? ??? 1?? ??????????
library(reshape2)
bax=select(foo,????,?????????.??????,??????????.?????)
bax2=melt(bax,id=”????”)
years=c(1955,1965,1975,1985,1995,2005,2014)
ggplot(bax2, aes(????, value, shape = variable)) + geom_point() +
labs(x = ‘????’, y = ‘???????????’, shape = ‘?????????’) +
scale_shape_discrete(labels = c(“????????? ??????”, “?????????? ?????”)) +
scale_x_discrete(limits = years) +
theme(axis.text.x = element_text(angle = 60, hjust = 1))
# ????????? ??????? wide format =>long format ??? ?? 2? ???????
bax3=select(foo,????,???.6.??,???.7.???.17.??,???.18.??.???.11.???)
bax4=melt(bax3,id=”????”)
ggplot(bax4, aes(????, value, shape = variable)) + geom_point() +
labs(x = ‘????’, y = ‘????????? ??????’, shape = ‘??????’) +
scale_shape_discrete(labels = c(“0-6 ??.”, “7-17 ??.”,”18 ??.-11 ???.”)) +
scale_x_discrete(limits = years) +
theme(axis.text.x = element_text(angle = 60, hjust = 1))
????? 2? :
????????? ??? ???????
??????? 1o : ??????????? ???????? ?????? ?? ??????????? ?????????? ??????? ??? ??? ?????????? ????? ??? ?? ???????? ??? 50 ????? ??? 70, ??? ??? ?? 1980 ??? ??? ?????? ??????? ??? ????? ??????,???? ???????. ???????? ?????????? ??? ????? ?? ???? ??? ????????? ??? 70 ?? ??????????? ?????????? ??????? ???? ???????????? ??? ?????? ??? ??????????? ??????.
??????? 2o : ???????? ??? ???????? ???????? ??? ?????????? ???????. ???????? ??? ??? ?? 1956, ??? ????????? ?? ????? ???????? ??? ??? ?? 1995, (?? ????????? ???????), ?? ??????????? ??? ???? ???? ??? ??? 18 ??????. ???’??? ???? ??? ??? ?? ???? ??? ????????? ??? 70 ??????????? ??? ????? ?? ???????? ????????????? ??? ??? ?? 2000 ??? ???? ?? ???????? ????? ????? ???????.
## ???? ?????????.?????? ??????????.?????
## 1 1956 6128 2035
## 2 1960 6300 2274
## 3 1965 5194 2384
## 4 1970 4290 1922
## 5 1975 3409 1701
## 6 1980 2658 1368
## 7 1981 2294 1323
## 8 1982 2076 1187
## 9 1983 1932 1174
## 10 1984 1803 1130
## 11 1985 1647 950
## 12 1986 1381 926
## 13 1987 1247 853
## 14 1988 1187 736
## 15 1989 989 735
## 16 1990 993 735
## 17 1991 927 706
## 18 1992 871 629
## 19 1993 864 679
## 20 1994 823 599
## 21 1995 827 645
## 22 1996 730 599
## 23 1997 657 628
## 24 1998 674 597
## 25 1999 619 624
## 26 2000 561 540
## 27 2001 522 588
## 28 2002 530 510
## 29 2003 420 504
## 30 2004 429 477
## 31 2005 409 421
## 32 2006 415 376
## 33 2007 397 434
## 34 2008 314 392
## 35 2009 371 505
## 36 2010 436 500
## 37 2011 357 431
## 38 2012 293 446
## 39 2013 346 376
## 40 2014 346 353
## ???? ???.6.?? ???.7.???.17.?? ???.18.??.???.11.???
## 1 1956 1661 1216 3251
## 2 1960 1932 1131 3237
## 3 1965 2145 855 2194
## 4 1970 2103 742 1445
## 5 1975 1973 583 853
## 6 1980 1611 441 606
## 7 1981 1293 444 557
## 8 1982 1146 434 496
## 9 1983 1040 408 484
## 10 1984 979 381 443
## 11 1985 890 339 418
## 12 1986 730 247 404
## 13 1987 706 195 346
## 14 1988 656 217 314
## 15 1989 502 168 319
## 16 1990 492 174 327
## 17 1991 437 190 300
## 18 1992 420 169 282
## 19 1993 438 186 240
## 20 1994 413 168 242
## 21 1995 418 169 240
## 22 1996 371 155 204
## 23 1997 347 156 154
## 24 1998 310 154 210
## 25 1999 300 140 179
## 26 2000 278 123 160
## 27 2001 235 129 158
## 28 2002 241 121 168
## 29 2003 186 96 138
## 30 2004 190 87 152
## 31 2005 190 94 125
## 32 2006 180 101 134
## 33 2007 164 88 145
## 34 2008 130 82 102
## 35 2009 146 92 133
## 36 2010 176 108 152
## 37 2011 143 91 123
## 38 2012 123 66 104
## 39 2013 171 77 98
## 40 2014 165 72 108
