##load and see
library(HSAUR3)
## Loading required package: tools
library(dplyr)
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
library(tidyr)
dat <- HSAUR3::suicides2

help(suicides2)
## starting httpd help server ...
##  done
str(dat)
## '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 ...
## recolname
colnames(dat) <- c("25-34", "35-44", "45-54", "55-64", "65-74")
head(dat)
##         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
#Def. country

dat$country<-rownames(dat)
dat
##             25-34 35-44 45-54 55-64 65-74     country
## Canada         22    27    31    34    24      Canada
## Israel          9    19    10    14    27      Israel
## Japan          22    19    21    31    49       Japan
## Austria        29    40    52    53    69     Austria
## France         16    25    36    47    56      France
## Germany        28    35    41    49    52     Germany
## Hungary        48    65    84    81   107     Hungary
## Italy           7     8    11    18    27       Italy
## Netherlands     8    11    18    20    28 Netherlands
## Poland         26    29    36    32    28      Poland
## Spain           4     7    10    16    22       Spain
## Sweden         28    41    46    51    35      Sweden
## Switzerland    22    34    41    50    51 Switzerland
## UK             10    13    15    17    22          UK
## USA            20    22    28    33    37         USA
#reshape data           

reshapedata <- reshape2::melt(data=dat,measure.vars = c("25-34", "35-44", "45-54", "55-64", "65-74"),variable.names="Age",value.name="suicides")

colnames(reshapedata)[2] <- c("Age")
reshapedata
##        country   Age suicides
## 1       Canada 25-34       22
## 2       Israel 25-34        9
## 3        Japan 25-34       22
## 4      Austria 25-34       29
## 5       France 25-34       16
## 6      Germany 25-34       28
## 7      Hungary 25-34       48
## 8        Italy 25-34        7
## 9  Netherlands 25-34        8
## 10      Poland 25-34       26
## 11       Spain 25-34        4
## 12      Sweden 25-34       28
## 13 Switzerland 25-34       22
## 14          UK 25-34       10
## 15         USA 25-34       20
## 16      Canada 35-44       27
## 17      Israel 35-44       19
## 18       Japan 35-44       19
## 19     Austria 35-44       40
## 20      France 35-44       25
## 21     Germany 35-44       35
## 22     Hungary 35-44       65
## 23       Italy 35-44        8
## 24 Netherlands 35-44       11
## 25      Poland 35-44       29
## 26       Spain 35-44        7
## 27      Sweden 35-44       41
## 28 Switzerland 35-44       34
## 29          UK 35-44       13
## 30         USA 35-44       22
## 31      Canada 45-54       31
## 32      Israel 45-54       10
## 33       Japan 45-54       21
## 34     Austria 45-54       52
## 35      France 45-54       36
## 36     Germany 45-54       41
## 37     Hungary 45-54       84
## 38       Italy 45-54       11
## 39 Netherlands 45-54       18
## 40      Poland 45-54       36
## 41       Spain 45-54       10
## 42      Sweden 45-54       46
## 43 Switzerland 45-54       41
## 44          UK 45-54       15
## 45         USA 45-54       28
## 46      Canada 55-64       34
## 47      Israel 55-64       14
## 48       Japan 55-64       31
## 49     Austria 55-64       53
## 50      France 55-64       47
## 51     Germany 55-64       49
## 52     Hungary 55-64       81
## 53       Italy 55-64       18
## 54 Netherlands 55-64       20
## 55      Poland 55-64       32
## 56       Spain 55-64       16
## 57      Sweden 55-64       51
## 58 Switzerland 55-64       50
## 59          UK 55-64       17
## 60         USA 55-64       33
## 61      Canada 65-74       24
## 62      Israel 65-74       27
## 63       Japan 65-74       49
## 64     Austria 65-74       69
## 65      France 65-74       56
## 66     Germany 65-74       52
## 67     Hungary 65-74      107
## 68       Italy 65-74       27
## 69 Netherlands 65-74       28
## 70      Poland 65-74       28
## 71       Spain 65-74       22
## 72      Sweden 65-74       35
## 73 Switzerland 65-74       51
## 74          UK 65-74       22
## 75         USA 65-74       37
#boxplot
boxplot(suicides ~ Age, 
        data=reshapedata, 
        horizontal=T, 
        varwidth=T,
        cex.axis=.6,
        xlab='suicides',
        ylab="Age")  
abline(v=seq(0,100,10), lty=3, 
       col='gray') #line
stripchart(suicides ~ Age, 
           data=reshapedata, add=T,
           col='gray', pch=1, 
           method='jitter') #point