Scatter Plots in Mathematica

The data in this worksheet will be used in Section 1.2.

We plot the per capita cigarette consumption in the US (for persons 18 or older) for the period 1975-2000.  The first command makes a list of the data points, the second displays the data in a table, and the third plots the list with various formatting options.

data = {{1975, 4123}, {1980, 3851}, {1985, 3461}, {1990,
    2827}, {1995, 2515}, {2000, 2092}};
TableForm[data,TableHeadings->{Automatic,{"Year","Consumption"}}]
Plot1 =
 ListPlot[data, PlotStyle -> PointSize[0.02],
  AxesLabel -> {"Year", "Consumption"},
  PlotRange -> {{1970, 2005}, {0, 4200}}]