Why Interest Rates Matter:
Interest rates are at the center of all financial transactions.
They impact the economy by influencing:
The Federal Reserve’s Role:
The Federal Reserve adjusts the federal funds rate, or the interest rate at which banks borrow money. The fed funds rate is generally referred to as an indication to the rise or fall of other interest rates. The Federal Reserve’s goal is to watch for indicators of inflation in order to adjust the fed funds rate to control prices.
In summary, the higher the interest rate, the more expensive it is to borrow money, and the more expensive it is to borrow money, the less money people spend.
The Phillips Curve, seen below, indicates that over time there is a supposed inverse relationship between unemployment rates and the inflation rate. As the relationship between the Federal Funds Rate and unemployment and inflation rates are analyzed, we will attempt to see if the Short Run Phillips Curve (SRPC) is representative of the data collected over the 62-year period.
The following packages were used:
library(readxl)
library(knitr)
library(plyr)
library(tidyr)
library(ggplot2)
library(dplyr)
library(tibble)
library(DT)
library(ggalt)
library(ggcorrplot)
Data Source: The dataset is composed of statistics provided by the Federal Reserve Bank of St. Louis’ Economic Data Portal, the US Bureau of Economic Analysis, and the US Bureau of Labor Statistics.
The dataset contains 904 observations and 10 variables.
#Read Data via Excel File
read_excel("FinalProjectData.xlsx")
#Load and Save Data as a .RMD file
load(file="Final.Data.RData")
save(Full.Data, file="Final.Data.RData")
#Create Dataframe
d<- read_excel("FinalProjectData.xlsx")
#Exploring the Dataset:
#Find Total Number of Observations
nrow(d)
#Find Variable Names
names(d)
#Summarize Dataset Characteristics
summary(d)
What the Dataset Measures: The data analyzes changes in the following variables every month from July of 1954 through March of 2017:
Analytic Tools and Processes
Using descriptive, exploratory, causal, and predictive analysis, I’d like to determine the extent to which changes in Federal Fund Rates directly correlate with changes in unemployment, GDP, and inflation. Given the patterns provided in the data, I’d like to notice any seasonality associated with the data points, while accounting for important historical changes within the US economy and the Federal Reserve.
Data Cleansing
#Renaming Variables . . .
d <- plyr::rename(d, c("Effective Federal Funds Rate"="FFR",
"Federal Funds Target Rate"="FFTR",
"Federal Funds Upper Target" = "FFUT",
"Federal Funds Lower Target"="FFLT",
"Real GDP (Percent Change)" = "GDP",
"Unemployment Rate" ="UR",
"Inflation Rate"= "IR"))
#Simplifying Date . . .
dd <-unite(d, Date, Year, Month, Day, sep="-")
#Organize Date by Year
years <- d %>%
group_by(Year) %>%
summarise_all(funs(mean),na.rm=TRUE)
#Eliminate Month and Day Variables from Yearly Data
y <- years[, -c(2:3)]
A few of the time periods I would like to consider in my analysis:
DC <- d %>%
unite(Date, Year, Month, Day, sep="-") %>%
filter(Date>="1995-1-1") %>%
filter(Date<"2002-1-1")
datatable(DC)
GR <- d %>%
unite(Date, Year, Month, Day, sep="-") %>%
filter(Date>"2007-12-1")%>%
filter(Date<"2009-6-1")
datatable(GR)
DF <- d %>%
unite(Date, Year, Month, Day, sep="-") %>% filter(Date>="2010-1-1") %>%
filter(Date<="2011-1-1")
datatable(DF)
The data were compiled with the intention of addressing the following questions:
Other implications for the information drawn from this data could include the observation of cyclical patterns for unemployment levels and inflation, further emphasizing the impact the Federal Reserve has on day-to-day life.
Interest Rates and Unemployment: * The correlation matrix below highlights the weak relationship between the Federal Funds Rate and Unemployment, regardless of the day of the month or the month in which the data was collected. While the relationship between these two variables is weak, the Federal Funds Rate stimulates a variety of economic factors, including inflation and GDP that ultimately determine the state of the job market, and subsequently, employment.
corr <- round(cor(years),2)
ggcorrplot(corr,
type="lower",
lab=TRUE,
lab_size=5,
colors=c("seagreen", "lightblue", "blue", "white", "darkblue"),
title="Fed Funds Rates and Unemployement Rates",
ggtheme=theme_bw)
The Federal Reserve sets target interest rates, or the rates at which banks borrow money from each other, after reviewing current economic data. The Fed gives banks high incentive to meet the target rates by setting the effective interest rate in the loans they provide.
The mean target rate over the 62-year period was approximately 5.7%, however, it reached a high of 11% in periods of low economic growth.
qplot(d$FFTR, geom="histogram",
binwidth = .5,
main="Frequency of Effective Federal Funds Target Rates",
xlab="Federal Funds Rate",
ylab="Frequency",
fill=I("blue"),
col=I("darkblue"),
alpha=I(.3))+
theme_minimal()
Although it would be ideal for the Federal Reserve to predict upcoming economic activity, and adjust interest rates accordingly, it is impossible to do so. As a result, the Fed seems to adjust rates in response to changes in consumer habits, which change based on how much money consumers have and how favorable the economy is at any given time.
Over the 62-year period, the mean Interest Rate was 4.9% and the median Interest Rate was 4.7%.
qplot(d$FFR, geom="histogram",
binwidth = .5,
main="Frequency of Effective Federal Funds Rates",
xlab="Federal Funds Rate",
ylab="Frequency",
fill=I("darkblue"),
col=I("blue"),
alpha=I(.3)) +
scale_x_continuous(NULL, limits=c(.1,20))+
theme_minimal()
qplot(d$GDP, geom="histogram",
binwidth = .5,
main="Frequency of Change in GDP",
xlab="Change in Gross Domestic Product (GDP)",
ylab="Frequency",
fill=I("darkblue"),
col=I("blue"),
alpha=I(.3))+
theme_minimal()
Inflation is generally regarded as the increase of prices of goods and the decrease in the purchasing power of money. In terms of this analysis, inflation is seen as a response variable to the interest rates set by the Fed.
Over the 62-year period, the mean inflation rate was 3.7% and the median, the more appropriate measure for this skewed data, is 2.8%. Inflation rises from a mere 0.6% to 13.6% and tends to decrease over the long-run as unemployment rates increase. The relationship between inflation and interest rates is generally regarded as inverse. When consumers spend more, inflation increases, however, when interest rates rise, consumers spend less and save money for higher returns.
Unemployment rates rise when the economy is slow and as a result, spending power for consumers decrease, and the Fed and banks attempt to find ways to get consumers to borrow and spend more money.
During the 62-year period, unemployment rates ranged from 3.4% to 10.8%, with the average being 5.9%. The current average US unemployment rate for 2017 is 4.3%. A low unemployment rate is plausible considering how low interest rates have been since the Great Recession.
qplot(d$UR, geom="histogram",
binwidth = .5,
main="Frequency of Unemployment Rates",
xlab="Unemployment Rate",
ylab="Frequency",
fill=I("blue"),
col=I("darkblue"),
alpha=I(.3))+
theme_minimal()
ggplot(dd, aes(FFR, IR))+
geom_point(color="seagreen")+
ggtitle("The Federal Reserve's Impact on Inflation",
subtitle= "The Effective Federal Funds Rate and Inflation Rate 1956-2016")+
labs(y="Inflation Rate", x="Effective Federal Funds Rate") +
geom_abline(col="lightgreen", lwd=2)+
theme_minimal()
y %>%
ggplot(aes(x=Year)) +
geom_line(aes(y=IR, size=0), color="darkgreen", show.legend=FALSE)+
geom_line(aes(y=FFR, size=0), color="darkblue", show.legend=FALSE) +
geom_ribbon(aes(ymin=IR , ymax=FFR),fill="lightgreen", alpha= .5) +
scale_x_continuous(NULL, limits=c(1955,2016), breaks =seq(1956,2016, by=5)) +
ggtitle("The Federal Reserve's Impact on Inflation Rates",
subtitle= "The Effective Federal Funds Rate and the Inflation Rate from 1956-2016")+
theme_minimal()+
theme(panel.grid.minor = element_blank())
ggplot(y, aes(Year, UR, size='qsec'))+
geom_line(color="seagreen", show.legend=FALSE) +
geom_hline(aes(yintercept = 4.6), linetype= "dashed")+ annotate("text", x=1996.5, y=4.5, label= "Average Unemployment Rate: 4.6%", size=3)+
scale_x_continuous(NULL,breaks=seq(1995,2000, by=1), limits = c(1995,2000))+
scale_y_continuous(NULL, limits=c(2,6))+
theme_minimal()
ggplot(y, aes(Year, UR, size='qsec'))+
geom_line(color="seagreen", show.legend=FALSE) +
geom_hline(aes(yintercept = 6.9), linetype= "dashed")+ annotate("text", x=2006.5, y=7.5, label= "Average Unemployment Rate: 6.9%", size=3)+
scale_x_continuous(NULL, limits=c(2005,2010))+
scale_y_continuous(NULL,breaks=seq(0,10, by=1, limits=c(3,10)))+
labs(title="Unemployment Rates during Great Recession",
subtitle="Great Recession begins December 2007 and ends July 2009",
x="Year",
y="Unemployment Rate")+
theme_minimal()
ggplot(y, aes(Year, UR, size='qsec'))+
geom_line(color="seagreen", show.legend=FALSE) +
geom_hline(aes(yintercept = 9.6), linetype= "dashed")+ annotate("text", x=2010, y=10.5, label= "Average Unemployment Rate: 9.6%", size=3)+
scale_x_continuous(NULL, limits=c(2009,2012))+
scale_y_continuous(NULL,breaks=seq(6,12, by=1, limits=c(7,11)))+
labs(title="Unemployment Rates during Dodd Frank Reform",
subtitle="Dodd-Frank Act Passed in July 2010",
x="Year",
y="Unemployment Rate")+
theme_minimal()
ggplot(GR, aes(UR, IR, size='qsec'))+
geom_line(color="seagreen", show.legend=FALSE) +
labs(title="Inflation and Unemployment Rates During Great Recession",
subtitle="Data from 2007-2009",
y="Inflation Rate",
x="Unemployment Rate")+
theme_minimal()
ggplot(NULL,aes(UR, IR))+
geom_point(data=DF, color='lightblue', size=2) +
geom_point(data=GR, color='blue',size=2) +
geom_point(data=DC, color='seagreen3', size=2) +
geom_encircle(aes(x=UR, y=IR),
data=DC,
color="red",
size=2,
expand=0.03)+
annotate("text", x=6.75, y=3, label= "Dot Com Bubble", size=3)+
annotate("text", x=8, y=2, label= "Great Recession", size=3)+
annotate("text", x=8.5, y=.75, label= "Dodd Frank Act", size=3)+
theme_minimal()+
labs(subtitle="Unemployment Vs. Inflation",
y="Inflation Rate",
x="Unemployment Rate",
title="The Fed's Impact on Employement")
ggplot(y, aes(x=Year, y=FFR))+
geom_bar(stat='identity', aes(fill=FFTR),width=.5)+
labs(subtitle="Effective Fed Funds Rate from 1955-2017",
title="Fed Funds and Fed Funds Target Rates")+
theme_minimal()
ggplot(years, aes(x=IR, y=FFR))+
geom_point(aes(col=GDP))+
labs(subtitle="Inflation and the Effective Federal Funds Rate from 1955-2017",
y="Effective Federal Funds Rate",
x="Inflation Rate",
title="The Fed's Impact on Inflation Rates")+
geom_smooth(method="lm")+
theme_minimal()
ggplot(dd %>%group_by(FFR)%>%
summarise('Mean GDP'=mean(GDP)),
aes(FFR, 'Mean GDP')) +
geom_bar(stat="identity", fill=hcl(195,100,65))+
theme_minimal()+
labs(title="GDP Change based on Fed Funds Rate",
x="Effective Federal Funds Rate",
subtitle="Data from 1955-2016")
The Problem: Many factors in the economy depend on interest rates, which are determined by target rates set by the Federal Reserve. It may seem ironic that the central government has so much control over the ever-changing cost of necessities and commodities; including but not limited to, the housing marketing, student loan rates, and gas prices. However, upon analyzing the impact the Federal Reserve’s Target and Effective Rates have on economic inflation, unemployment rates, and change in GDP, it becomes clear that the impact of the federal reserve exists to minimize the negative aspects of our economy, such as high inflation and unemployment.
The Data and Methodology: Over the course of the 62-year time period covered in the data, three specific periods of versatile economic activity were highlighted: The Dot Com Bubble, the Great Recession, and the passing of the Dodd-Frank Act. The data were analyzed over these periods to determine the effectiveness of the Federal Reserve during times of uncertainty in the economy, due to factors that are relatively out of the government’s control.
The data were observed for variable frequency and averages, correlation between variables, and dramatic changes in variable value over time.
Take-Aways:
Although it is not possible for the Federal Reserve to predict economic activity, it can manage drastic changes by setting target rates in response to on-going fluctuations in GDP, inflation, and unemployment. Inflation and unemployment generally follow the Phillips Curve, and inflation decreases as unemployment increases as indicated by the Short Run Phillips Curve. GDP changes in response to inflation and unemployment, which are impacted directly by the effective federal funds rate, set by banks and other lending institutions.
In conclusion, economic volatility is unpredictable. The Federal Reserve raises and lowers interest rates mainly with the focus on correcting consumer spending by changing the cost of borrowing money. There is no concrete solution or method of finding balance in the economy. Rather, the Fed makes slight frequent adjustments to target rates to address negative economic activity. In periods of uncertainty, it appears that no action is sometimes the best action. In recent years, the Fed has developed a stigma for maintaining low interest rates as a result of the Great Recession, however, closer analysis of recent patterns of economic activity show that unemployment and inflation rates have not warranted a drastic raise in interest rates.
Limitations of the Analysis:
The biggest limitation of the analysis comes in the form of missing values, and lack of certainty in some of the variables. While GDP, Inflation, and Unemployment have strong relationships with interest rates, the economy ultimately operates on many factors that exist outside of this analysis.