Skip to content

Instantly share code, notes, and snippets.

@dawaldron

dawaldron/homeownership_cps.R

Last active July 9, 2019 03:13
Show Gist options
  • Save dawaldron/8a7a3bbc0bc435b362edbddb899b1721 to your computer and use it in GitHub Desktop.
Save dawaldron/8a7a3bbc0bc435b362edbddb899b1721 to your computer and use it in GitHub Desktop.
Download ZIP
Calculate homeownership by age from ASEC - 1976-2018
Raw
homeownership_cps.csv
YEAR 15 to 19 20 to 24 25 to 29 30 to 34 35 to 39 40 to 44 45 to 49 50 to 54 55 to 59 60 to 64 65 to 69 70 to 74 75 to 79 80 to 84 85 to 89 90 to 94 95 to 99
1976 3.33 15.54 43.92 63.13 70.62 73.77 77.04 76.26 76.5 74.6 72.13 68.38 63.41 58.34 46.44 36.13 18.24
1977 2.03 14.87 43.26 62.6 71.32 73.66 76.21 77.82 76.15 74.12 71.36 68.8 62.93 59.2 48.7 38.92 21.46
1978 2.85 15.3 43.07 61.46 71.12 73.48 77.72 76.83 76.9 75.82 70.95 70.23 64.07 58.74 49.89 48.42 38.75
1979 2.53 17.47 44.97 62.2 72.34 73.99 77.35 79.41 79.55 79.64 73.4 71.61 66.26 61.6 55.05 47.02 52.74
1980 2.88 17.55 44.35 63.17 73.22 76.28 78.72 79.27 80.1 77.51 75.02 72.78 66.34 60.53 56.35 47.74 36.22
1981 2.39 16.35 42.68 61.2 72.61 75.86 78.99 80.12 81.15 78.28 76.65 73.37 69.43 62.67 55.69 49.72 35.65
1982 1.86 14.23 39.19 59.25 70.88 76.31 76.96 80.78 81.39 80.37 77.85 74.7 69.45 65.28 59.8 49.09 39.62
1983 1.38 11.98 35.1 54.71 67.11 74.33 75.79 77.97 80.78 79.88 76.83 72.19 69.09 64.58 56.85 44.54 48.26
1984 1.49 10.7 35.43 53.61 66.34 72.28 75.2 79.05 78.99 78.9 76.7 72.83 68.85 64.74 54.35 45.78 38.31
1985 1.61 10.48 34.54 53.24 66.6 70.43 73.86 78.02 78.18 78.96 77.4 73.75 67.92 63.99 52.58 41.44 27.25
1986 1.69 10.74 32.91 52.36 64.52 68.93 73.73 78.81 80.91 78.12 77.32 74.18 68.14 60.36 52.78 42.47 39.45
1987 1.17 9.94 32.48 51.73 63.49 70.56 74.42 78.36 79.31 80.29 77.78 74.87 69.15 61.63 53.89 44.43 37.93
1988 1.01 9.37 32.19 51.55 62.3 71.31 74.86 76.09 79.08 79.54 78.91 74.06 70.16 61.71 55.66 45.16
1989 1.55 10.19 31.94 51.73 63.27 70.3 73.67 76.19 79.76 78.48 77.74 75.05 69.46 62.61 52.8 46.16
1990 1.04 9.29 31.47 49.57 61.67 68.78 73.7 77.45 77.43 80.07 77.49 75.76 69.68 63.83 56.02 44.75
1991 1.44 8.58 29.29 48.61 60.02 68.3 72.93 75.93 77.77 79.88 79.42 76.33 70.73 64.72 56.33 46.52
1992 1.26 7.96 28.75 47.12 60.33 68.5 72.86 74.81 78.5 79.72 78.67 76.28 72.63 67.75 58.38 46.82
1993 1.4 8.16 29.58 47.53 59.77 67.69 72.89 76.82 76.69 78.64 79 77 73.7 66.87 58.37 48.5
1994 0.89 8 28.46 46.93 58.48 66.2 70.97 75.99 77.2 78.82 79.89 77.57 74.91 66.92 61.33 51.23
1995 1.06 7.58 28.44 49.25 59.75 65.64 72.17 76.46 77.56 79.62 79.53 79.68 76.35 68.34 59.83 41.87
1996 1.76 8.26 28.6 48.53 58.83 65.54 72.05 74.67 77.97 79.83 81.19 79.53 75.46 69.64 59.25 44.49
1997 2.32 8.42 29.5 48.47 60.19 65.8 70.83 74.71 76 78.21 80.91 78.91 73.84 70.78 59.39 43.69
1998 1.71 8.59 29.65 49.6 59.21 66.53 71.51 75.21 76.23 79.37 80.18 79.41 76.24 71.41 59.44 47.67
1999 1.62 8.53 29.57 49.05 60.11 65.89 71.92 76.16 77.96 79.62 81.76 79.66 77.04 72.22 60.3 50.27
2000 2.21 9.07 30.77 50.62 59.72 66.37 70.75 75.98 77.45 78.9 80.81 80.55 77.1 72.57 62.2 49.67
2001 2.4 9.73 29.97 50.74 61.22 67.65 71.57 75.22 76.58 78.12 80.49 80.65 78.15 73.41 64.06 51.13
2002 2.46 9.81 30.7 49.49 61.16 68.12 71.15 74.27 77.64 78.26 81.07 79.79 77.37 68.85
2003 2.36 9.14 30.86 51.07 60.66 66.96 71.19 75.26 78.76 79.78 79.59 77.92 76.34 69.42
2004 2.5 9.56 31.19 50.66 61.13 66.37 72.53 73.08 78.66 80.66 80.23 79.55 78.44 74.49 62.86
2005 2.65 10.29 32.45 51.68 61.68 67.35 70.29 73.92 77.65 80.03 79.92 79.28 78.55 73.91 61.94
2006 2.33 9.65 30.92 49.97 60.74 65.36 69.94 72.25 77.09 79.08 78.99 79.59 77.7 73.39 63.3
2007 2.69 9.01 31.64 48.32 59.66 66.42 69.58 72.71 76.86 79.24 80.01 78.69 78.41 74.35 62.42
2008 2.02 8.68 29.82 47.94 59.9 64.44 69.13 71.72 76.32 79.16 78.57 78.51 76.6 71.91 62.68
2009 2.01 8.37 27.19 46.58 57.89 63.9 67.35 71.49 74.77 79.12 80.07 78.1 77.08 71.57 63.75
2010 2.03 7.25 26.72 43.61 56.51 62.48 67.56 70.69 74.08 76.81 79.17 78.79 78.19 73.67 64.75
2011 2.07 6.32 24.01 43.11 54.33 61.49 65.73 69.9 74.21 76.6 78.77 79.29 77.36 74.75 64
2012 2.19 6.29 23.68 42.03 52.19 59.96 63.54 68.53 73.15 75.73 78.89 79.99 77.73 76.43 64.5
2013 2.05 6.18 23.54 41.73 50.29 59.73 64.61 67.14 71.99 75.59 77.89 79.3 77.28 74.47 64.16
2014 2.43 6.52 22.44 40.46 50.91 58.64 63.67 67.39 71.39 74.1 77.83 78.7 76.09 75.62 65.39
2015 2.48 6.04 21.16 39.31 49.49 56.58 61.74 66.2 71.06 73.43 76.07 77.41 77.15 73.14 64.66
2016 1.95 6.3 20.18 37.91 49.2 57.39 60.99 66.1 71.4 72.74 76.58 78.74 76.01 74.77 62.95
2017 2.12 6.96 20.26 38.05 50.49 56.91 61.94 65.08 69.04 73.92 75.72 78.45 75.97 73.98 59.91
2018 2.21 6.87 20.62 39.52 50.98 57.83 62.6 65.09 68.64 73.82 76.45 78.53 76.68 72.78 60.09
Raw
homeownership_cps.R
library(data.table)
library(magrittr)
dt <- fread('cps_00046.csv')
dt[, agegrp := paste0(floor(AGE / 5) * 5, ' to ', floor(AGE / 5) * 5 + 4)]
dt.sum <- dt[AGE >= 18,
.(sample = .N,
total = sum(ASECWT),
refper = sum(ASECWT * (RELATE %in% c(101,201))),
owners = sum(ASECWT * (RELATE %in% c(101,201)) * (HHTENURE == 1))),
.(YEAR, agegrp)] %>%
.[, refrate := round(100 * refper / total, 2)] %>%
.[, ownrate := round(100 * owners / total, 2)] %>%
dcast(YEAR ~ agegrp, value.var = 'ownrate')
fwrite(dt.sum, 'homeownership_cps.csv')
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment