Base Graphics h2

Deaths per 100,000 from male suicides for 5 age groups and 15 countries are given in the table below. The data set is available as suicides2{HSAUR3}. Construct side-by-side box plots for the data from different age groups and comment briefly.

library(HSAUR3)

## Loading required package: tools

pacman::p_load(HSAUR3)
data("suicides2", package="HSAUR3")
dta <- HSAUR3::suicides2
str(dta)

## 'data.frame':    15 obs. of  5 variables:
##  $ A25.34: num  22 9 22 29 16 28 48 7 8 26 ...
##  $ A35.44: num  27 19 19 40 25 35 65 8 11 29 ...
##  $ A45.54: num  31 10 21 52 36 41 84 11 18 36 ...
##  $ A55.64: num  34 14 31 53 47 49 81 18 20 32 ...
##  $ A65.74: num  24 27 49 69 56 52 107 27 28 28 ...

colnames(dta) <- c("25-34", "35-44", "45-54", "55-64", "65-74")
head(dta)

##         25-34 35-44 45-54 55-64 65-74
## Canada     22    27    31    34    24
## Israel      9    19    10    14    27
## Japan      22    19    21    31    49
## Austria    29    40    52    53    69
## France     16    25    36    47    56
## Germany    28    35    41    49    52

dta.1 <- stack(dta)
head(dta.1)

##   values   ind
## 1     22 25-34
## 2      9 25-34
## 3     22 25-34
## 4     29 25-34
## 5     16 25-34
## 6     28 25-34

boxplot(values ~ ind, 
        data=dta.1, 
        horizontal=T, 
        varwidth=T, 
        cex.axis=.6,
        xlab='Male Suicides',
        ylab="Age")