Mike W
August 24, 2020
summarystats <- matmort %>% group_by(Year) %>% filter(Code != "") %>% summarize(Mean = mean(X), Median = median(X), Mode = getmode(X))
as.data.frame(summarystats)
Year Mean Median Mode
1 1990 5812.508 180 3
2 1991 5697.186 170 2
3 1992 5604.066 160 2
4 1993 5513.601 160 7
5 1994 5405.694 170 3
6 1995 5310.077 160 110
7 1996 5220.798 160 3
8 1997 5125.492 160 3
9 1998 5042.984 140 5
10 1999 4936.536 130 3
11 2000 4826.803 120 3
12 2001 4729.852 120 3
13 2002 4597.661 110 4
14 2003 4459.437 100 4
15 2004 4334.011 99 4
16 2005 4181.224 99 4
17 2006 4056.727 98 4
18 2007 3969.776 98 4
19 2008 3829.536 97 3
20 2009 3795.454 87 3
21 2010 3707.590 84 3
22 2011 3596.311 83 3
23 2012 3527.694 83 3
24 2013 3446.388 77 3
25 2014 3382.858 75 3
26 2015 3307.268 74 3
References