Checked content

File:US Seasonal Unemployment.svg

Summary

Description
English: Chart of the seasonal US unemployment rate from the BLS statistics, showing mean, 95% interval and outliers. Puerto Rico has been removed from the data set. Source: ftp://ftp.bls.gov/pub/time.series/la/la.data.3.AllStatesS
Date 12 December 2010
Source Own work
Author Autopilot

Source

u <- read.table("la.data.3.AllStatesS", header=T, fill=T)
 
# Convert the months into fractional years
u$time <- u$year + (as.numeric(u$period) - 1) / 12
 
# Get just the measurement values (those that end in "03")
m <- u[grep("03$", u$series_id),]
 
# And ignore the ones that are in Puerto-rico, state code 43
m <- subset(m, series_id != "LASST43000003")
 
# make the year a factor
m$year <- as.factor(m$year)
 
# Aggregate all samples into a single year average
# leaving per-state data intact
v <- aggregate(m, list(year=m$year, series_id=m$series_id), mean)
 
# Aggregate all samples into a per-month average
m2 <- aggregate(m, list(year=m$year, period=m$period), mean, na.rm=T)
m2 <- m2[order(m2$time),]
#m2 <- aggregate(m, list(year=m$year), mean, na.rm=T)
 
# And generate the box plot for every state
par(family="Times")
par(bty="n")
plot(
        value ~ year,
        data = v,
        ylim = c(0,16),
        main = "US Seasonally Adjusted Unemployment",
        ylab = "Unemployment rate",
        xlab = "Year",
        las=1
)
grid()
 
# Add the moving average line
par(new=T)
par(bty="n")
plot(
        value ~ time,
        data = m2,
        col = "red",
        type = "l",
        ylim = c(0,16),
        xlim = c(1976,2011),
        main = "",
        xlab = "",
        ylab = "",
        axes = F
);
 
dev.copy(svg, "US Seasonal Unemployment.svg", width=8, height=6)
dev.off()

Licensing

I, the copyright holder of this work, hereby publish it under the following licenses:
w:en:Creative Commons
attribution share alike
This file is licensed under the Creative Commons Attribution-Share Alike 3.0 Unported license.
You are free:
  • to share – to copy, distribute and transmit the work
  • to remix – to adapt the work
Under the following conditions:
  • attribution – You must attribute the work in the manner specified by the author or licensor (but not in any way that suggests that they endorse you or your use of the work).
  • share alike – If you alter, transform, or build upon this work, you may distribute the resulting work only under the same or similar license to this one.

GNU head Permission is granted to copy, distribute and/or modify this document under the terms of the GNU Free Documentation License, Version 1.2 or any later version published by the Free Software Foundation; with no Invariant Sections, no Front-Cover Texts, and no Back-Cover Texts. A copy of the license is included in the section entitled GNU Free Documentation License.

You may select the license of your choice.
The following pages on Schools Wikipedia link to this image (list may be incomplete):

Metadata

Background information

SOS Children chose the best bits of Wikipedia to help you learn. SOS Children is an international children's charity, providing a good home and loving family to thousands of children who have lost their parents. We also work with communities to help vulnerable families stay together and raise children in the best possible environment. Have you thought about sponsoring a child?