04-13-In-class exercises-2

library(data.table)
#load data
dta <- read.table("C:/Users/Tjlee/Desktop/weather/cigarettes.txt", header = T)


as.data.frame(dta)

##        Country consumption death
## 1    Australia         480   180
## 2       Canada         500   150
## 3      Denmark         380   170
## 4      Finland        1100   350
## 5           UK        1100   460
## 6      Iceland         230    60
## 7  Netherlands         490   240
## 8       Norway         250    90
## 9       Sweden         300   110
## 10 Switzerland         510   250
## 11         USA        1300   200

with(dta, plot(consumption, death,xlab="Cigarettes consumption (per million)", ylab="Death rate (per capita)", type='n', main='Lung Cancer and Cigarettes consumption'))
# add regression line
abline(lm(death ~ consumption, data=dta ),lty=2)
# label states
with(dta, text(consumption, death, labels=dta$Country, cex=.5))