Cigarette Consumption Data

a) Cross-section data on cigarette consumption for 46 US states for the year 1992

The three variables used are:

  • packs - Log of cigarette consumption (in packs) per person of smoking age (>16 years)
  • price - Log of real price of cigarette in each state
  • income - Log of real disposable income (per capita) in each state

The data summary is shown in Table 1:

cigdata <- read.csv ("/Users/harikrishnansanthosh/Library/Mobile Documents/com~apple~CloudDocs/Desktop/UGA/AQME/Assignments_R/CigarettesB.csv")


library(stargazer)
## 
## Please cite as:
##  Hlavac, Marek (2018). stargazer: Well-Formatted Regression and Summary Statistics Tables.
##  R package version 5.2.2. https://CRAN.R-project.org/package=stargazer
library(ggplot2)



stargazer(cigdata, type = "text", title = "Table 1: Summary", out="table1.txt")
## 
## Table 1: Summary
## ==========================================================
## Statistic N  Mean  St. Dev.  Min   Pctl(25) Pctl(75)  Max 
## ----------------------------------------------------------
## packs     46 4.848  0.191   4.409   4.712    4.984   5.379
## price     46 0.206  0.086   -0.033  0.141    0.273   0.364
## income    46 4.775  0.142   4.529   4.679    4.853   5.103
## ----------------------------------------------------------

I use R code inline to compute that the dataset has 46 observations and 4 variables.

dim (cigdata)
## [1] 46  4

b) Plot of US states vs packs

qplot(X,packs, data = cigdata, xlab = "States", ylab = "Log of cigarette consumption (in packs)", main = "Cigarette consumption for 46 US states 1992")