Animated states of US. Code taken from https://github.com/hrbrmstr/statebins data from. Image at http://i.imgur.com/MobWgIj.gif

AnimationStatebins.r

poverty <-read.csv("cleanpovertyMin.csv", header = TRUE, sep = ",", quote = "\"",dec = ".", fill = TRUE, comment.char = "")
> head(poverty)
i <- sapply(poverty, is.factor)
poverty[i] <- lapply(poverty[i], as.character)

sapply(unique(poverty$year), function(year) {

  png(file=sprintf("tmp/household%d.png", year),
      type="quartz", antialias="subpixel", width=800, height=600)

  rng <- floor(range(poverty[poverty$year==year,]$percent))

  ggtmp <- statebins(poverty[poverty$year==year,], "state", "percent",
                   legend_title="States", legend_position="none",
                   brewer_pal="Greens", text_color="black", font_size=4,
                   plot_title=sprintf("US State Poverty Percentage %d\n low %s  -  high %s ", year, comma(rng[1]), comma(rng[2]),element_text(size=22)), title_position="top")

  print(ggtmp)

  dev.off()

})

cleanpovertyMin.csv