2020-04-13-Homework-2

讀取資料

library(HSAUR3)

## Loading required package: tools

dta <- HSAUR3::suicides2
names(dta)

## [1] "A25.34" "A35.44" "A45.54" "A55.64" "A65.74"

改變排列方式

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

##   values    ind
## 1     22 A25.34
## 2      9 A25.34
## 3     22 A25.34
## 4     29 A25.34
## 5     16 A25.34
## 6     28 A25.34

繪圖

boxplot(values ~ ind, 
        data=dta.1, 
        horizontal=T, 
        varwidth=T, #依樣本量做寬度
        cex.axis=.6,
        xlab='Male Suicides',
        ylab="Age")

隨著年齡增大，Male Suicides越多