This is my case study project for the Google Data Analytics Course. I have put this case study together in R Markdown to help illustrate my process and the code all in a single location.
Soon to be Retirees - This is the main audience as I am hoping to raise awareness for this audience before it’s to late. I would be targeting people in their 40’s and 50’s.
Family of Retirees - The cost of healthcare may be shouldered by the retiree’s family and making sure they are aware of the discrepancy in average cost vs how much they may have saved up is a key objective.
The Broader Public Audience - I think this is an issue that needs to have more awareness broadly before you even get close to retirement age. This would help people plan more effectively when they are still early on in their careers.
Nationwide Demographics data to find the amount of retirees nationally
From US Census - Need to download past 5 years- S2001 | Earnings in the Past 12 Months (in 2022 Inflation-Adjusted Dollars)
The Decennial Census seems to have the most info per state and by demographic although it doesn’t have exact age information. I should be able to use the 65-69 years column as 60-64 years can’t be drilled down into further S2001 | Earnings in the Past 12 Months (in 2022 Inflation-Adjusted Dollars)
The American Community Survey is more granular and is collected every year.I should use this instead of the Decennial census 2022 ACS Selected Population Profile)
THe ACS Median Income in the Past 12 Months by age shows income by 45-65 range and 65 and over ACS Median Income in the Past 12 Months by age for 2022)
Colorado Demographic data to find the amount of retirees in Colorado
Colorado Salary data for 67 age range
Cost of Assisted Living for Colorado and Nationwide
National health expenditures for Medicare & Medicaid Services
These tables were too broad - National Health Expenditures by type of service and source of funds, CY 1960-2022
Helpful documentation on Definitions & SourcesDefinitions, Sources, and Methods (PDF)
This is more helpful and should be used Health Expenditures by State of Residence, 1991-2020
Data Range - We should focus on 2010-2020 data
Age Range - I will need to focus on 65 and up as I can’t split the 55-64 range
I downloaded the data from the links above to a Case Study Data Folder on my laptop.
chooseCRANmirror(graphics=FALSE, ind=1)
knitr::opts_chunk$set(echo = TRUE)
install.packages("tidyverse")##
## The downloaded binary packages are in
## /var/folders/1v/dl3wj8hj7_qdscktqmzf7w5w0000gn/T//RtmpHl2ssv/downloaded_packages
## Warning: package 'dyplr' is not available for this version of R
##
## A version of this package for your version of R might be available elsewhere,
## see the ideas at
## https://cran.r-project.org/doc/manuals/r-patched/R-admin.html#Installing-packages
##
## The downloaded binary packages are in
## /var/folders/1v/dl3wj8hj7_qdscktqmzf7w5w0000gn/T//RtmpHl2ssv/downloaded_packages
##
## The downloaded binary packages are in
## /var/folders/1v/dl3wj8hj7_qdscktqmzf7w5w0000gn/T//RtmpHl2ssv/downloaded_packages
##
## The downloaded binary packages are in
## /var/folders/1v/dl3wj8hj7_qdscktqmzf7w5w0000gn/T//RtmpHl2ssv/downloaded_packages
##
## The downloaded binary packages are in
## /var/folders/1v/dl3wj8hj7_qdscktqmzf7w5w0000gn/T//RtmpHl2ssv/downloaded_packages
## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr 1.1.4 ✔ readr 2.1.5
## ✔ forcats 1.0.0 ✔ stringr 1.5.1
## ✔ ggplot2 3.5.0 ✔ tibble 3.2.1
## ✔ lubridate 1.9.3 ✔ tidyr 1.3.1
## ✔ purrr 1.0.2
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag() masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors
##
## Attaching package: 'janitor'
##
## The following objects are masked from 'package:stats':
##
## chisq.test, fisher.test
Adding placeholder code for now
library(readxl) National_Demo_Raw<- read_excel(‘Placeholder’) State_Demo_Raw<- read_excel(‘Placeholder’) State_SalaryData_Raw<- read_excel(‘Placeholder’) National_CostofCare_Raw<- read_excel(‘Placeholder’)
Adding placeholder code for now
glimpse(Placeholder) glimpse(Placeholder)