home2.R

##載入suicides2的數據資料
library(HSAUR3)

## Loading required package: tools

pacman::p_load(HSAUR3)
data("suicides2", package="HSAUR3")
dta <- HSAUR3::suicides2
##看一下數據形式
head(dta)

##         A25.34 A35.44 A45.54 A55.64 A65.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

names(dta)

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

##篩選數據，但是全要
dta <- na.omit(dta[,c(1:5)])
##重新命名年齡，因為原來的有點醜
names(dta)[c(1:5)] <- c("25-34", "35-44", "45-54", "55-64","65-74")
##原先想把第一欄變成country變數，但沒有作用
row.names= 1
##stack 函數將原先多個直行向量，轉換成單一向量進行標示。
dta1<-stack(dta)
##查看轉換狀況
head(dta1)

##   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=dta1, 
         horizontal=T, 
         varwidth=T,
         cex.axis=.6,
         xlab='suicides',
         ylab="Age")