- Deaths per 100,000 from male suicides for 5 age groups and 15 countries are given in the table below. Construct side-by-side box plots for the data from different age groups and comment briefly.
sui<-read.table("suicides.txt",h=T)
str(sui)
## 'data.frame': 15 obs. of 6 variables:
## $ Country: Factor w/ 15 levels "Austria","Canada",..: 2 6 8 1 3 4 5 7 9 10 ...
## $ X25_34 : int 22 9 22 29 16 28 48 7 8 26 ...
## $ X35_44 : int 27 19 19 40 25 35 65 8 11 29 ...
## $ X45_54 : int 31 10 21 52 36 41 84 11 18 36 ...
## $ X55_64 : int 34 14 31 53 47 49 81 18 20 32 ...
## $ X65_74 : int 24 27 49 69 56 52 107 27 28 28 ...
colnames(sui)<-c("Country","25-34","35-44","45-54","55-64","65-74")
boxplot(sui[,2:6],horizontal=T,ylab="age")
- Doll (1955) showed per capita consumption of cigarettes in 11 countries in 1930, and the death rates from lung cancer for men in 1950. Plot the graph shown below.
ciga<-read.table("http://titan.ccunix.ccu.edu.tw/~psycfs/dataM/Data/cigarettes.txt",h=T)
with(ciga,plot(consumption,death,type="n",xlab="Cunsumption",ylab="Death rate"))
abline(with(ciga,lm(death~consumption)),lty=2)
with(ciga,text(consumption,death,labels=Country))
