先把工作目录改为文件所在目录
> d=read.csv("singers.csv")
> attributes(d)
$names
[1] "Soprano" "Alto" "Tenor" "Bass"
$class
[1] "data.frame"
$row.names
[1] 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
[25] 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39
R虽已读取了所有数据，但这些数据包括NA，排列方式并不适用于分析。将d转成矩阵，再转成向量。
> part=names(d)
> part=rep(part,each=39)
> part
[1] "Soprano" "Soprano" "Soprano" "Soprano" "Soprano" "Soprano" "Soprano"
[8] "Soprano" "Soprano" "Soprano" "Soprano" "Soprano" "Soprano" "Soprano"
[15] "Soprano" "Soprano" "Soprano" "Soprano" "Soprano" "Soprano" "Soprano"
[22] "Soprano" "Soprano" "Soprano" "Soprano" "Soprano" "Soprano" "Soprano"
[29] "Soprano" "Soprano" "Soprano" "Soprano" "Soprano" "Soprano" "Soprano"
[36] "Soprano" "Soprano" "Soprano" "Soprano" "Alto" "Alto" "Alto"
[43] "Alto" "Alto" "Alto" "Alto" "Alto" "Alto" "Alto"
[50] "Alto" "Alto" "Alto" "Alto" "Alto" "Alto" "Alto"
[57] "Alto" "Alto" "Alto" "Alto" "Alto" "Alto" "Alto"
[64] "Alto" "Alto" "Alto" "Alto" "Alto" "Alto" "Alto"
[71] "Alto" "Alto" "Alto" "Alto" "Alto" "Alto" "Alto"
[78] "Alto" "Tenor" "Tenor" "Tenor" "Tenor" "Tenor" "Tenor"
[85] "Tenor" "Tenor" "Tenor" "Tenor" "Tenor" "Tenor" "Tenor"
[92] "Tenor" "Tenor" "Tenor" "Tenor" "Tenor" "Tenor" "Tenor"
[99] "Tenor" "Tenor" "Tenor" "Tenor" "Tenor" "Tenor" "Tenor"
[106] "Tenor" "Tenor" "Tenor" "Tenor" "Tenor" "Tenor" "Tenor"
[113] "Tenor" "Tenor" "Tenor" "Tenor" "Tenor" "Bass" "Bass"
[120] "Bass" "Bass" "Bass" "Bass" "Bass" "Bass" "Bass"
[127] "Bass" "Bass" "Bass" "Bass" "Bass" "Bass" "Bass"
[134] "Bass" "Bass" "Bass" "Bass" "Bass" "Bass" "Bass"
[141] "Bass" "Bass" "Bass" "Bass" "Bass" "Bass" "Bass"
[148] "Bass" "Bass" "Bass" "Bass" "Bass" "Bass" "Bass"
> temp=matrix(c(d,part),nc=2)
> temp
[,1] [,2]
[1,] "64" "Soprano"
[2,] "62" "Soprano"
[3,] "66" "Soprano"
[4,] "65" "Soprano"
[5,] "60" "Soprano"
[6,] "61" "Soprano"
[7,] "65" "Soprano"
[8,] "66" "Soprano"
[9,] "65" "Soprano"
[10,] "63" "Soprano"
[11,] "67" "Soprano"
[12,] "65" "Soprano"
[13,] "62" "Soprano"
[14,] "65" "Soprano"
[15,] "68" "Soprano"
[16,] "65" "Soprano"
[17,] "63" "Soprano"
[18,] "65" "Soprano"
[19,] "62" "Soprano"
[20,] "65" "Soprano"
[21,] "66" "Soprano"
[22,] "62" "Soprano"
[23,] "65" "Soprano"
[24,] "63" "Soprano"
[25,] "65" "Soprano"
[26,] "66" "Soprano"
[27,] "65" "Soprano"
[28,] "62" "Soprano"
[29,] "65" "Soprano"
[30,] "66" "Soprano"
[31,] "65" "Soprano"
[32,] "61" "Soprano"
[33,] "65" "Soprano"
[34,] "66" "Soprano"
[35,] "65" "Soprano"
[36,] "62" "Soprano"
[37,] NA "Soprano"
[38,] NA "Soprano"
[39,] NA "Soprano"
[40,] "65" "Alto"
[41,] "62" "Alto"
[42,] "68" "Alto"
[43,] "67" "Alto"
[44,] "67" "Alto"
[45,] "63" "Alto"
[46,] "67" "Alto"
[47,] "66" "Alto"
[48,] "63" "Alto"
[49,] "72" "Alto"
[50,] "62" "Alto"
[51,] "61" "Alto"
[52,] "66" "Alto"
[53,] "64" "Alto"
[54,] "60" "Alto"
[55,] "61" "Alto"
[56,] "66" "Alto"
[57,] "66" "Alto"
[58,] "66" "Alto"
[59,] "62" "Alto"
[60,] "70" "Alto"
[61,] "65" "Alto"
[62,] "64" "Alto"
[63,] "63" "Alto"
[64,] "65" "Alto"
[65,] "69" "Alto"
[66,] "61" "Alto"
[67,] "66" "Alto"
[68,] "65" "Alto"
[69,] "61" "Alto"
[70,] "63" "Alto"
[71,] "64" "Alto"
[72,] "67" "Alto"
[73,] "66" "Alto"
[74,] "68" "Alto"
[75,] NA "Alto"
[76,] NA "Alto"
[77,] NA "Alto"
[78,] NA "Alto"
[79,] "69" "Tenor"
[80,] "72" "Tenor"
[81,] "71" "Tenor"
[82,] "66" "Tenor"
[83,] "76" "Tenor"
[84,] "74" "Tenor"
[85,] "71" "Tenor"
[86,] "66" "Tenor"
[87,] "68" "Tenor"
[88,] "67" "Tenor"
[89,] "70" "Tenor"
[90,] "65" "Tenor"
[91,] "72" "Tenor"
[92,] "70" "Tenor"
[93,] "68" "Tenor"
[94,] "73" "Tenor"
[95,] "66" "Tenor"
[96,] "68" "Tenor"
[97,] "67" "Tenor"
[98,] "64" "Tenor"
[99,] NA "Tenor"
[100,] NA "Tenor"
[101,] NA "Tenor"
[102,] NA "Tenor"
[103,] NA "Tenor"
[104,] NA "Tenor"
[105,] NA "Tenor"
[106,] NA "Tenor"
[107,] NA "Tenor"
[108,] NA "Tenor"
[109,] NA "Tenor"
[110,] NA "Tenor"
[111,] NA "Tenor"
[112,] NA "Tenor"
[113,] NA "Tenor"
[114,] NA "Tenor"
[115,] NA "Tenor"
[116,] NA "Tenor"
[117,] NA "Tenor"
[118,] "72" "Bass"
[119,] "70" "Bass"
[120,] "72" "Bass"
[121,] "69" "Bass"
[122,] "73" "Bass"
[123,] "71" "Bass"
[124,] "72" "Bass"
[125,] "68" "Bass"
[126,] "68" "Bass"
[127,] "71" "Bass"
[128,] "66" "Bass"
[129,] "68" "Bass"
[130,] "71" "Bass"
[131,] "73" "Bass"
[132,] "73" "Bass"
[133,] "70" "Bass"
[134,] "68" "Bass"
[135,] "70" "Bass"
[136,] "75" "Bass"
[137,] "68" "Bass"
[138,] "71" "Bass"
[139,] "70" "Bass"
[140,] "74" "Bass"
[141,] "70" "Bass"
[142,] "75" "Bass"
[143,] "75" "Bass"
[144,] "69" "Bass"
[145,] "72" "Bass"
[146,] "71" "Bass"
[147,] "70" "Bass"
[148,] "71" "Bass"
[149,] "68" "Bass"
[150,] "70" "Bass"
[151,] "75" "Bass"
[152,] "72" "Bass"
[153,] "66" "Bass"
[154,] "72" "Bass"
[155,] "70" "Bass"
[156,] "69" "Bass"
选取在temp中不是NA的行，然后把它转化为数据框Frame
> temp=temp[!is.na(temp[,1]),]
> temp
[,1] [,2]
[1,] "64" "Soprano"
[2,] "62" "Soprano"
[3,] "66" "Soprano"
[4,] "65" "Soprano"
[5,] "60" "Soprano"
[6,] "61" "Soprano"
[7,] "65" "Soprano"
[8,] "66" "Soprano"
[9,] "65" "Soprano"
[10,] "63" "Soprano"
[11,] "67" "Soprano"
[12,] "65" "Soprano"
[13,] "62" "Soprano"
[14,] "65" "Soprano"
[15,] "68" "Soprano"
[16,] "65" "Soprano"
[17,] "63" "Soprano"
[18,] "65" "Soprano"
[19,] "62" "Soprano"
[20,] "65" "Soprano"
[21,] "66" "Soprano"
[22,] "62" "Soprano"
[23,] "65" "Soprano"
[24,] "63" "Soprano"
[25,] "65" "Soprano"
[26,] "66" "Soprano"
[27,] "65" "Soprano"
[28,] "62" "Soprano"
[29,] "65" "Soprano"
[30,] "66" "Soprano"
[31,] "65" "Soprano"
[32,] "61" "Soprano"
[33,] "65" "Soprano"
[34,] "66" "Soprano"
[35,] "65" "Soprano"
[36,] "62" "Soprano"
[37,] "65" "Alto"
[38,] "62" "Alto"
[39,] "68" "Alto"
[40,] "67" "Alto"
[41,] "67" "Alto"
[42,] "63" "Alto"
[43,] "67" "Alto"
[44,] "66" "Alto"
[45,] "63" "Alto"
[46,] "72" "Alto"
[47,] "62" "Alto"
[48,] "61" "Alto"
[49,] "66" "Alto"
[50,] "64" "Alto"
[51,] "60" "Alto"
[52,] "61" "Alto"
[53,] "66" "Alto"
[54,] "66" "Alto"
[55,] "66" "Alto"
[56,] "62" "Alto"
[57,] "70" "Alto"
[58,] "65" "Alto"
[59,] "64" "Alto"
[60,] "63" "Alto"
[61,] "65" "Alto"
[62,] "69" "Alto"
[63,] "61" "Alto"
[64,] "66" "Alto"
[65,] "65" "Alto"
[66,] "61" "Alto"
[67,] "63" "Alto"
[68,] "64" "Alto"
[69,] "67" "Alto"
[70,] "66" "Alto"
[71,] "68" "Alto"
[72,] "69" "Tenor"
[73,] "72" "Tenor"
[74,] "71" "Tenor"
[75,] "66" "Tenor"
[76,] "76" "Tenor"
[77,] "74" "Tenor"
[78,] "71" "Tenor"
[79,] "66" "Tenor"
[80,] "68" "Tenor"
[81,] "67" "Tenor"
[82,] "70" "Tenor"
[83,] "65" "Tenor"
[84,] "72" "Tenor"
[85,] "70" "Tenor"
[86,] "68" "Tenor"
[87,] "73" "Tenor"
[88,] "66" "Tenor"
[89,] "68" "Tenor"
[90,] "67" "Tenor"
[91,] "64" "Tenor"
[92,] "72" "Bass"
[93,] "70" "Bass"
[94,] "72" "Bass"
[95,] "69" "Bass"
[96,] "73" "Bass"
[97,] "71" "Bass"
[98,] "72" "Bass"
[99,] "68" "Bass"
[100,] "68" "Bass"
[101,] "71" "Bass"
[102,] "66" "Bass"
[103,] "68" "Bass"
[104,] "71" "Bass"
[105,] "73" "Bass"
[106,] "73" "Bass"
[107,] "70" "Bass"
[108,] "68" "Bass"
[109,] "70" "Bass"
[110,] "75" "Bass"
[111,] "68" "Bass"
[112,] "71" "Bass"
[113,] "70" "Bass"
[114,] "74" "Bass"
[115,] "70" "Bass"
[116,] "75" "Bass"
[117,] "75" "Bass"
[118,] "69" "Bass"
[119,] "72" "Bass"
[120,] "71" "Bass"
[121,] "70" "Bass"
[122,] "71" "Bass"
[123,] "68" "Bass"
[124,] "70" "Bass"
[125,] "75" "Bass"
[126,] "72" "Bass"
[127,] "66" "Bass"
[128,] "72" "Bass"
[129,] "70" "Bass"
[130,] "69" "Bass"
> singers=data.frame(temp)
> singers
X1 X2
1 64 Soprano
2 62 Soprano
3 66 Soprano
4 65 Soprano
5 60 Soprano
6 61 Soprano
7 65 Soprano
8 66 Soprano
9 65 Soprano
10 63 Soprano
11 67 Soprano
12 65 Soprano
13 62 Soprano
14 65 Soprano
15 68 Soprano
16 65 Soprano
17 63 Soprano
18 65 Soprano
19 62 Soprano
20 65 Soprano
21 66 Soprano
22 62 Soprano
23 65 Soprano
24 63 Soprano
25 65 Soprano
26 66 Soprano
27 65 Soprano
28 62 Soprano
29 65 Soprano
30 66 Soprano
31 65 Soprano
32 61 Soprano
33 65 Soprano
34 66 Soprano
35 65 Soprano
36 62 Soprano
37 65 Alto
38 62 Alto
39 68 Alto
40 67 Alto
41 67 Alto
42 63 Alto
43 67 Alto
44 66 Alto
45 63 Alto
46 72 Alto
47 62 Alto
48 61 Alto
49 66 Alto
50 64 Alto
51 60 Alto
52 61 Alto
53 66 Alto
54 66 Alto
55 66 Alto
56 62 Alto
57 70 Alto
58 65 Alto
59 64 Alto
60 63 Alto
61 65 Alto
62 69 Alto
63 61 Alto
64 66 Alto
65 65 Alto
66 61 Alto
67 63 Alto
68 64 Alto
69 67 Alto
70 66 Alto
71 68 Alto
72 69 Tenor
73 72 Tenor
74 71 Tenor
75 66 Tenor
76 76 Tenor
77 74 Tenor
78 71 Tenor
79 66 Tenor
80 68 Tenor
81 67 Tenor
82 70 Tenor
83 65 Tenor
84 72 Tenor
85 70 Tenor
86 68 Tenor
87 73 Tenor
88 66 Tenor
89 68 Tenor
90 67 Tenor
91 64 Tenor
92 72 Bass
93 70 Bass
94 72 Bass
95 69 Bass
96 73 Bass
97 71 Bass
98 72 Bass
99 68 Bass
100 68 Bass
101 71 Bass
102 66 Bass
103 68 Bass
104 71 Bass
105 73 Bass
106 73 Bass
107 70 Bass
108 68 Bass
109 70 Bass
110 75 Bass
111 68 Bass
112 71 Bass
113 70 Bass
114 74 Bass
115 70 Bass
116 75 Bass
117 75 Bass
118 69 Bass
119 72 Bass
120 71 Bass
121 70 Bass
122 71 Bass
123 68 Bass
124 70 Bass
125 75 Bass
126 72 Bass
127 66 Bass
128 72 Bass
129 70 Bass
130 69 Bass
> names(singers)=c("Height","Part")
> singers $ Height=as.numeric(singers $ Height)
> singers $ Part=ordered(as.factor(singers $ Part),levels=c("Bass","Tenor","Alto","Soprano"))
> singers
Height Part
1 5 Soprano
2 3 Soprano
3 7 Soprano
4 6 Soprano
5 1 Soprano
6 2 Soprano
7 6 Soprano
8 7 Soprano
9 6 Soprano
10 4 Soprano
11 8 Soprano
12 6 Soprano
13 3 Soprano
14 6 Soprano
15 9 Soprano
16 6 Soprano
17 4 Soprano
18 6 Soprano
19 3 Soprano
20 6 Soprano
21 7 Soprano
22 3 Soprano
23 6 Soprano
24 4 Soprano
25 6 Soprano
26 7 Soprano
27 6 Soprano
28 3 Soprano
29 6 Soprano
30 7 Soprano
31 6 Soprano
32 2 Soprano
33 6 Soprano
34 7 Soprano
35 6 Soprano
36 3 Soprano
37 6 Alto
38 3 Alto
39 9 Alto
40 8 Alto
41 8 Alto
42 4 Alto
43 8 Alto
44 7 Alto
45 4 Alto
46 13 Alto
47 3 Alto
48 2 Alto
49 7 Alto
50 5 Alto
51 1 Alto
52 2 Alto
53 7 Alto
54 7 Alto
55 7 Alto
56 3 Alto
57 11 Alto
58 6 Alto
59 5 Alto
60 4 Alto
61 6 Alto
62 10 Alto
63 2 Alto
64 7 Alto
65 6 Alto
66 2 Alto
67 4 Alto
68 5 Alto
69 8 Alto
70 7 Alto
71 9 Alto
72 10 Tenor
73 13 Tenor
74 12 Tenor
75 7 Tenor
76 17 Tenor
77 15 Tenor
78 12 Tenor
79 7 Tenor
80 9 Tenor
81 8 Tenor
82 11 Tenor
83 6 Tenor
84 13 Tenor
85 11 Tenor
86 9 Tenor
87 14 Tenor
88 7 Tenor
89 9 Tenor
90 8 Tenor
91 5 Tenor
92 13 Bass
93 11 Bass
94 13 Bass
95 10 Bass
96 14 Bass
97 12 Bass
98 13 Bass
99 9 Bass
100 9 Bass
101 12 Bass
102 7 Bass
103 9 Bass
104 12 Bass
105 14 Bass
106 14 Bass
107 11 Bass
108 9 Bass
109 11 Bass
110 16 Bass
111 9 Bass
112 12 Bass
113 11 Bass
114 15 Bass
115 11 Bass
116 16 Bass
117 16 Bass
118 10 Bass
119 13 Bass
120 12 Bass
121 11 Bass
122 12 Bass
123 9 Bass
124 11 Bass
125 16 Bass
126 13 Bass
127 7 Bass
128 13 Bass
129 11 Bass
130 10 Bass
singers就转成了我们想要的Frame
但，singers $ Height=as.numeric(singers $ Height)，像是把原来的数当成了ASC码，转成numeric时数据的值发生了变化，这可能对统计结果不产生影响，可似乎还是不大正确。