Exercise_0322_3

#第三題(jsp)

#因為無法從網頁連結讀取資料，所以先複製到excel再轉成csv
jsp<- read.csv("0322_3 data.csv")
head(jsp)

##   school class sex soc ravens pupil english math year
## 1     S1    C1   G   9     23    P1      72   23    0
## 2     S1    C1   G   9     23    P1      80   24    1
## 3     S1    C1   G   9     23    P1      39   23    2
## 4     S1    C1   B   2     15    P2       7   14    0
## 5     S1    C1   B   2     15    P2      17   11    1
## 6     S1    C1   B   2     22    P3      88   36    0

#更改變項名稱
names(jsp)[3] <- "gender"
head(jsp)

##   school class gender soc ravens pupil english math year
## 1     S1    C1      G   9     23    P1      72   23    0
## 2     S1    C1      G   9     23    P1      80   24    1
## 3     S1    C1      G   9     23    P1      39   23    2
## 4     S1    C1      B   2     15    P2       7   14    0
## 5     S1    C1      B   2     15    P2      17   11    1
## 6     S1    C1      B   2     22    P3      88   36    0

#確認資料屬性
str(jsp)

## 'data.frame':    3236 obs. of  9 variables:
##  $ school : Factor w/ 49 levels "S1","S10","S11",..: 1 1 1 1 1 1 1 1 1 1 ...
##  $ class  : Factor w/ 4 levels "C1","C2","C3",..: 1 1 1 1 1 1 1 1 1 1 ...
##  $ gender : Factor w/ 2 levels "B","G": 2 2 2 1 1 1 1 1 1 1 ...
##  $ soc    : int  9 9 9 2 2 2 2 2 9 9 ...
##  $ ravens : int  23 23 23 15 15 22 22 22 14 14 ...
##  $ pupil  : Factor w/ 1192 levels "P1","P10","P100",..: 1 1 1 413 413 512 512 512 612 612 ...
##  $ english: int  72 80 39 7 17 88 89 83 12 25 ...
##  $ math   : int  23 24 23 14 11 36 32 39 24 26 ...
##  $ year   : int  0 1 2 0 1 0 1 2 0 1 ...

#變更資料屬性並重新排列
jsp$soc <- as.factor(jsp$soc)

levels(jsp$soc) <- c("I", "II", "III_0man", "III_man", "IV", "V", "VI_Unemp_L", "VII_emp_NC", "VIII_Miss_Dad")
levels(jsp$soc)

## [1] "I"             "II"            "III_0man"      "III_man"      
## [5] "IV"            "V"             "VI_Unemp_L"    "VII_emp_NC"   
## [9] "VIII_Miss_Dad"

#繪製盒型圖
plot(x=jsp$soc, y=jsp$math, main="box plot of soc & math", xlab="soc", ylab="math", col="blue")

#儲存成csv檔
write.csv(jsp,"/Users/chenyuwen/Downloads/0322_3_1")

head(read.csv("/Users/chenyuwen/Downloads/0322_3_1"))

##   X school class gender           soc ravens pupil english math year
## 1 1     S1    C1      G VIII_Miss_Dad     23    P1      72   23    0
## 2 2     S1    C1      G VIII_Miss_Dad     23    P1      80   24    1
## 3 3     S1    C1      G VIII_Miss_Dad     23    P1      39   23    2
## 4 4     S1    C1      B            II     15    P2       7   14    0
## 5 5     S1    C1      B            II     15    P2      17   11    1
## 6 6     S1    C1      B            II     22    P3      88   36    0