US Birth Rate Trend

## [1] 608   3

## 'data.frame':    608 obs. of  3 variables:
##  $ Year      : int  1947 1997 1987 2015 1945 2012 1997 1947 1992 1953 ...
##  $ Age.Group : Factor w/ 8 levels "10-14 years",..: 4 8 7 4 3 2 7 2 1 1 ...
##  $ Birth.Rate: num  176 0.4 4.4 104.3 138.9 ...

Establishing 20 year trend line

#Looking data on national scale: another dataset is loaded : ## Teen birth rate for age group 15 _ 19, by county

## Loading required package: acs

## Loading required package: stringr

## Loading required package: XML

## 
## Attaching package: 'acs'

## The following object is masked from 'package:dplyr':
## 
##     combine

## The following object is masked from 'package:base':
## 
##     apply

On particular year : 2015

Looking into numbers by states

Looking into California state only

The higest rate in “Del Norte” county