USD Change in Non-farm Payrolls

nfp.R

library(ggplot2)

#curl 'http://research.stlouisfed.org/fred2/series/PAYEMS/downloaddata' --data 'form%5Bnative_frequency%5D=Monthly&form%5Bunits%5D=lin&form%5Bfrequency%5D=Monthly&form%5Baggregation%5D=Average&form%5Bobs_start_date%5D=1939-01-01&form%5Bobs_end_date%5D=2015-01-01&form%5Bfile_format%5D=csv&form%5Bdownload_data_2%5D=' -o /tmp/PAYEMS.csv
nfp <- read.csv("/tmp/PAYEMS.csv")
nfp$DATE <- as.Date( nfp$DATE, "%Y-%m-%d" )
df <- data.frame( change=diff(nfp$VALUE), date=tail(nfp$DATE,-1) )
plot <- ggplot(df,aes(x=date,y=change)) + 
  geom_area()
plot