Visualize That - Chapter 4 - unemployment

This is the unemployment example from Visualize That, Chapter4.

We will load the data directly from the book’s website.

unemployment <- read.csv("http://datasets.flowingdata.com/unemployment-rate-1948-2010.csv", sep=",")
unemployment[1:10,]

Plain scatter plot with fitted linear line

plot(1:length(unemployment$Value), unemployment$Value)
lines(c(1,746), c(4.889523,6.42593))

Scatter plot with loess

scatter.smooth(x=1:length(unemployment$Value), y=unemployment$Value)

Fix y-axis to start at zero

scatter.smooth(x=1:length(unemployment$Value), y=unemployment$Value, ylim=c(0,11), degree=2)

Change color

scatter.smooth(x=1:length(unemployment$Value), y=unemployment$Value, ylim=c(0,11), degree=2, col="#CCCCCC", span=0.5)