getwd()
## [1] "/Volumes/TEX/2017/流通情報部会/農業部会/H29_情報処理大会/分析"
suii <- read.csv("/Volumes/TEX/2017/流通情報部会/農業部会/H29_情報処理大会/分析/suii.csv", fileEncoding="cp932") #ファイル読込
1行目:合計点,2行目:情報知識,3行目:表計算,4行目:グラフ作成,5行目:考察文書,6行目:入賞ボーダー得点
head(suii)
## Skills H24 H25 H26 H27 H28 H29
## 1 Total 426.0 262.3 249.2 128.4 491.2 188.6
## 2 Knowledge 49.6 30.9 50.4 32.6 47.4 31.1
## 3 Spreadsheet 321.5 217.0 157.6 75.8 314.8 131.8
## 4 Graph 35.0 6.5 23.2 15.5 64.8 16.3
## 5 Document 20.0 7.9 18.8 4.5 64.1 10.4
## 6 border 480.0 298.0 300.0 200.0 628.0 213.0