Delete comment from: One R Tip A Day
Dear Jim,
the code produces a .png image file in your working directory (help("png"), help("dev") for more information). If you wish to see the plot in a windows graphic device simply use the below code (It is the identical code without the png() ... dev.off() stuff ):
library(RColorBrewer) # take a look at http://www.personal.psu.edu/cab38/ColorBrewer/ColorBrewer_intro.html
# display.brewer.all()
FD.palette <- c("#984EA3","#377EB8","#4DAF4A","#FF7F00","#E41A1C")
options(scipen=10)
par(mar=c(6, 6, 3, 3), las=2)
data4bp <- t(original[,c(5,4,2,3,1)])
barplot( data4bp, beside=F,col=FD.palette, border=FD.palette, space=1, legend=F, ylab="Number of People", main="Migration to the United States by Source Region (1820 - 2006)", mgp=c(4.5,1,0) )
legend( "topleft", legend=rev(rownames(data4bp)), fill=rev(FD.palette) )
box()
Jan 23, 2009, 11:39:00 PM
Posted to Statistical Visualizations - Part 2