Premature Death Rates _ California counties

What is Premature Death Rate?

• Years of potential life lost before age 75 per 100,000 population (one-year estimate)
• Premature death is a measure of years of potential life lost due to death occurring before the age of 75. Deaths at younger ages contribute more to the premature death rate than deaths occurring closer to age 75. For example, a person dying at age 70 would lose five years of potential life, whereas a child dying at age five would lose 70 years of potential life.
• Data Source & Year(s): CDC WONDER, Multiple Cause of Death Files, 2019

Premature Death Rate for Orange County, CA (CDC20N2U006059)

The crude death rate is the number of deaths reported each calendar year divided by the population, multiplied by 100,000. Premature death rate includes all deaths where the deceased is younger than 75 years of age. 75 years of age is the standard consideration of a premature death according to the CDC’s definition of Years of Potential Life Loss.

Premature Death Rate for Los Angeles County, CA (CDC20N2U006037)

Premature Death Rate for San Diego County, CA (CDC20N2U006073)

Premature Death Rate for Riverside County, CA (CDC20N2U006065)

Premature Death Rate for Fresno County, CA (CDC20N2U006019)

Premature Death Rate for Imperial County, CA (CDC20N2U006025)

Premature Death Rate for San Joaquin County, CA (CDC20N2U006077)

Premature Death Rate for Placer County, CA (CDC20N2U006061)

Premature Death Rate for San Bernardino County, CA (CDC20N2U006071)

indicator <-fredr_series_observations(series_id = "CDC20N2U006065", 
      observation_start = as.Date("2010-01-01"))
indicator1 <-fredr_series_observations(series_id = "CDC20N2U006073", 
      observation_start = as.Date("2010-01-01"))
indicator2 <-fredr_series_observations(series_id = "CDC20N2U006025", 
      observation_start = as.Date("2010-01-01"))
indicator3 <-fredr_series_observations(series_id = "CDC20N2U006059", 
      observation_start = as.Date("2010-01-01"))
#Premature Death Rate for Imperial County, CA (CDC20N2U006025)

ggplot() + 
 
  geom_line(data=indicator,mapping = aes(x=date,y=value),color="red",size=1)  +
  geom_text(data = tail(indicator,n=1),
            aes(x=date,y = value, label= "Riverside"), 
            hjust= 1, vjust = 0, size= 3.5,color="red") +
  
  geom_line(data=indicator1,mapping = aes(x=date,y=value),color="blue",size=1)  +
  geom_text(data = tail(indicator1,n=1),
            aes(x=date,y = value, label= "San Diego"), 
            hjust= 1, vjust = 0, size= 3.5,color="blue") +
  
  geom_line(data=indicator2,mapping = aes(x=date,y=value),color="green4",size=1)  +
  geom_text(data = tail(indicator2,n=1),
            aes(x=date,y = value, label= "Imperial"), 
            hjust= 1, vjust = 0, size= 3.5,color="green4") +
  
  geom_line(data=indicator3,mapping = aes(x=date,y=value),color="black",size=1)  +
  geom_text(data = tail(indicator3,n=1),
            aes(x=date,y = value, label= "Orange"), 
            hjust= 1, vjust = 0, size= 3.5,color="black") +
 
      labs(title = "Premature Death Rate by Counties", 
          subtitle = str_glue("From {min(indicator$date)} through {max(indicator$date)}\nNot seasonally adjusted"),
       x="Annual", y="Rate per 100,000",
       caption = "Data source: FRED Federal Reserve \n Illustration by @JoeLongSanDiego")+
    theme_economist()