- 在线时间
- 27 小时
- 最后登录
- 2013-5-20
- 注册时间
- 2012-11-2
- 听众数
- 15
- 收听数
- 1
- 能力
- 0 分
- 体力
- 3870 点
- 威望
- 0 点
- 阅读权限
- 60
- 积分
- 1335
- 相册
- 0
- 日志
- 0
- 记录
- 0
- 帖子
- 347
- 主题
- 320
- 精华
- 0
- 分享
- 0
- 好友
- 6
升级 33.5% TA的每日心情 | 奋斗 2013-6-15 16:58 |
---|
签到天数: 24 天 [LV.4]偶尔看看III
群组: 第四届数学中国美赛实 |
因子(factor)和有序因子(ordered factor) 因子用来存储类别变量(categorical variables)和有序变量,这类变量不能用来计算而只能用来分类或者计数。& w+ }7 {9 ]3 W5 K: a# m
因子表示分类变量,有序因子表示有序变量。
1 ~7 Q4 V6 g& N) F生成因子数据对象的函数是factor(),语法是factor(data, levels, labels, ...),其中data是数据,levels是因子水平向量,labels是因子的" I% w% k5 e1 |! v8 [7 r
c( ]& c3 i( z1 p标签向量。) |% a6 ?3 S$ j( t5 e1 L
1、创建一个因子。, R$ y; h- e6 J
例1:colour <- c('G', 'G', 'R', 'Y', 'G', 'Y', 'Y', 'R', 'Y'), X G) P3 u; l; K
col <- factor(colour)5 z2 u8 W3 d O( F3 S/ T6 r
col1 <- factor(colour, levels = c('G', 'R', 'Y'), labels = c('Green', 'Red', 'Yellow')) #labels的内容替换colour相应位置对应levels的内容
6 G) `; f. ^ v2 V$ Hcol2 <- factor(colour, levels = c('G', 'R', 'Y'), labels = c('1', '2', '3'))5 s% b) j( j" N9 H
col_vec <- as.vector(col2) #转换成字符向量! _2 ? Z& g/ t3 K: P
col_num <- as.numeric(col2) #转换成数字向量% h! m \# P# T# R. q& c
col3 <- factor(colour, levels = c('G', 'R'))
/ }2 y+ ^1 T! W, T E$ ?8 r0 E0 y/ V1 E* W6 R& g' E( j s
2、创建一个有序因子。5 Y* X! D5 H; w
例1:score <- c('A', 'B', 'A', 'C', 'B')9 v! ~5 [ x# q# X4 t- [" R
score1 <- ordered(score, levels = c('C', 'B', 'A')); score12 a4 ? i8 N1 t, X% c
( E9 T% _8 j0 f5 A4 Z3、用cut()函数将一般的数据转换成因子或有序因子。
- o8 w- G. q( O5 X7 P" t( V3 f3 j 例1:exam <- c(98, 97, 52, 88, 85, 75, 97, 92, 77, 74, 70, 63, 97, 71, 98,
2 [/ q( a+ ?3 F, l; q 65, 79, 74, 58, 59, 60, 63, 87, 82, 95, 75, 79, 96, 50, 88)
7 I1 @3 _1 Z3 _! e* R9 _( kexam1 <- cut(exam, breaks = 3) #切分成3组( ^: Z% |- l0 V" E
exam2 <- cut(exam, breaks = c(0, 59, 69, 79, 89, 100)) #切分成自己设置的组 q" t* f9 h, \, }1 G) M4 I
attr(exam1, 'levels'); attr(exam2, 'levels'); attr(exam2, 'class')/ n$ O5 P: p2 A" }
ordered(exam2, labels = c('bad', 'ok', 'average', 'good', 'excellent')) #一个有序因子* c! J; K5 p0 J' Z+ g
5 x. G O {/ |+ p* e+ V6 }8 X4 M; T3 a
|
zan
|