Exercise_0322_1

#讀取資料

c_dta <- read.csv("0322_1 data.csv")
head(c_dta)

##         座號     系        年      班   開課系序號    學號          姓名
## 1 教師:U3023 許清芳 上課時間: 一[6-8] 開課號:U3006   U7031 科目:資料管理
## 2          1 心理系         3                U7031 D840239            蘇
## 3          2 心理系         3                U7031 D840057            吳
## 4          3 心理系         4                U7031 D841311            余
## 5          4 心理系         4                U7031 D840140            王
## 6          5 教育所         1      碩        U3006 U360098            劉
##         成績 選課時間
## 1                    
## 2 02/17/2016  9:17:40
## 3 02/17/2016  9:17:28
## 4 02/17/2016  9:09:10
## 5 02/17/2016  9:09:34
## 6 01/18/2016 14:56:35

#去除第一欄的資料後，再做計算
c_dta1 <- c_dta[-1, ]
head(c_dta1)

##   座號     系 年 班 開課系序號    學號 姓名       成績 選課時間
## 2    1 心理系  3         U7031 D840239   蘇 02/17/2016  9:17:40
## 3    2 心理系  3         U7031 D840057   吳 02/17/2016  9:17:28
## 4    3 心理系  4         U7031 D841311   余 02/17/2016  9:09:10
## 5    4 心理系  4         U7031 D840140   王 02/17/2016  9:09:34
## 6    5 教育所  1 碩      U3006 U360098   劉 01/18/2016 14:56:35
## 7    6 教育所  1 博      U3006 U380416   陳 01/25/2016 16:01:08

table(c_dta1$系)

## 
## 教育所 心理所 心理系 許清芳 
##      4      7      4      0