shirayuca/j1_131124.csv

## j1_131124.csv

          
            順位
            チーム名
            勝点
            試合数
            勝数
            引分数
            敗数
            得点
            失点
            得失点差

            
              1
              横浜F・マリノス
              62
              32
              18
              8
              6
              49
              28
              21

            
              2
              浦和レッズ
              58
              32
              17
              7
              8
              63
              47
              16

            
              3
              サンフレッチェ広島
              57
              32
              17
              6
              9
              48
              29
              19

            
              4
              セレッソ大阪
              56
              32
              15
              11
              6
              47
              28
              19

            
              5
              鹿島アントラーズ
              56
              32
              17
              5
              10
              58
              49
              9

            
              6
              川崎フロンターレ
              54
              32
              16
              6
              10
              63
              51
              12

            
              7
              FC東京
              51
              32
              15
              6
              11
              58
              43
              15

            
              8
              アルビレックス新潟
              49
              32
              15
              4
              13
              44
              42
              2

            
              9
              清水エスパルス
              47
              32
              14
              5
              13
              45
              54
              -9

            
              10
              名古屋グランパス
              46
              32
              13
              7
              12
              47
              46
              1

            
              11
              ベガルタ仙台
              45
              32
              11
              12
              9
              40
              34
              6

            
              12
              柏レイソル
              42
              32
              11
              9
              12
              50
              57
              -7

            
              13
              サガン鳥栖
              42
              32
              12
              6
              14
              50
              62
              -12

            
              14
              大宮アルディージャ
              39
              32
              12
              3
              17
              41
              48
              -7

            
              15
              ヴァンフォーレ甲府
              35
              32
              8
              11
              13
              30
              41
              -11

            
              16
              湘南ベルマーレ
              25
              32
              6
              7
              19
              34
              60
              -26

            
              17
              ジュビロ磐田
              20
              32
              3
              11
              18
              37
              52
              -15

            
              18
              大分トリニータ
              14
              32
              2
              8
              22
              30
              63
              -33

## summary.r
data <- read.csv("j1_131124.csv", header=T, sep=",")
summary(data)
#データの基本統計量を求める

data2 <- data[,c(-1,-2,-4)]
#summaryで不要な列も統計をとってしまうので、不要列を削除した新しいテーブルを作成する
summary(data2)

summary(data2$勝数)
#$列名で、その列のみの統計を出力
順位	チーム名	勝点	試合数	勝数	引分数	敗数	得点	失点	得失点差
1	横浜F・マリノス	62	32	18	8	6	49	28	21
2	浦和レッズ	58	32	17	7	8	63	47	16
3	サンフレッチェ広島	57	32	17	6	9	48	29	19
4	セレッソ大阪	56	32	15	11	6	47	28	19
5	鹿島アントラーズ	56	32	17	5	10	58	49	9
6	川崎フロンターレ	54	32	16	6	10	63	51	12
7	FC東京	51	32	15	6	11	58	43	15
8	アルビレックス新潟	49	32	15	4	13	44	42	2
9	清水エスパルス	47	32	14	5	13	45	54	-9
10	名古屋グランパス	46	32	13	7	12	47	46	1
11	ベガルタ仙台	45	32	11	12	9	40	34	6
12	柏レイソル	42	32	11	9	12	50	57	-7
13	サガン鳥栖	42	32	12	6	14	50	62	-12
14	大宮アルディージャ	39	32	12	3	17	41	48	-7
15	ヴァンフォーレ甲府	35	32	8	11	13	30	41	-11
16	湘南ベルマーレ	25	32	6	7	19	34	60	-26
17	ジュビロ磐田	20	32	3	11	18	37	52	-15
18	大分トリニータ	14	32	2	8	22	30	63	-33
	data <- read.csv("j1_131124.csv", header=T, sep=",")
	summary(data)
	#データの基本統計量を求める

	data2 <- data[,c(-1,-2,-4)]
	#summaryで不要な列も統計をとってしまうので、不要列を削除した新しいテーブルを作成する
	summary(data2)

	summary(data2$勝数)
	#$列名で、その列のみの統計を出力