setwd("C:/Documents/milestone/images/Gallery/")
gdp <- read.csv("projmeth-chart2.csv", header=TRUE, row.names=2)

dotchart(gdp$GDP, labels=rownames(gdp), pch=19, 
	xlab="Share of GDP (%)",
	main="Expenditures on Health as Percentage of GDP\nfor OECD Countries, 2004")
 

ord <- order(gdp$GDP)
dotchart(gdp$GDP[ord], labels=rownames(gdp)[ord],  pch=19,
	xlab="Share of GDP (%)",
	main="Expenditures on Health as Percentage of GDP\nfor OECD Countries, 2004")