# DotCharts Example -- Create a dot chart showing the
# sales data for different auto categories and
# day of week.

# Read data frame from file.
autos <- read.table("autosales.txt", header=T, sep="\t")

# Send graphics output to disk file.
pdf("dot-charts.pdf")

# Create a dotchart for autos
dotchart(t(autos[,-1]), main="Dot Chart Showing Auto Sales")

# Create a colored dotchart for autos with smaller labels
dotchart(t(autos[,-1]), color=c("red","blue","darkgreen"),
   main="Dot Chart Showing Auto Sales", cex=0.9)

# Reset graphics to default destination.
dev.off( )