- 在线时间
- 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)和有序变量,这类变量不能用来计算而只能用来分类或者计数。9 c& z$ }0 `: i+ L2 o( ]6 ]
因子表示分类变量,有序因子表示有序变量。9 }$ A7 X: V9 Z% o
生成因子数据对象的函数是factor(),语法是factor(data, levels, labels, ...),其中data是数据,levels是因子水平向量,labels是因子的2 q4 e( v+ g/ `: H
+ n' c" R: \. o标签向量。
+ Q Z. I. ] W2 m" Z2 g1、创建一个因子。5 v8 _$ |1 f9 W5 k+ H* e. \* U
例1:colour <- c('G', 'G', 'R', 'Y', 'G', 'Y', 'Y', 'R', 'Y')! {8 q* u: m6 r
col <- factor(colour) O0 \" s1 d' M0 D
col1 <- factor(colour, levels = c('G', 'R', 'Y'), labels = c('Green', 'Red', 'Yellow')) #labels的内容替换colour相应位置对应levels的内容
; c8 o# o+ `) c0 Icol2 <- factor(colour, levels = c('G', 'R', 'Y'), labels = c('1', '2', '3'))
" S3 F9 j" i2 W" ^* ecol_vec <- as.vector(col2) #转换成字符向量
7 f& ?' Z* c1 P2 N* |# ]col_num <- as.numeric(col2) #转换成数字向量
: I# S; L0 m- e6 T$ H5 Q6 P. \col3 <- factor(colour, levels = c('G', 'R'))
0 G# b! S% e& j! s
- Y) e/ @5 E+ f& P: @( z2、创建一个有序因子。) m) w5 y2 |* f- }
例1:score <- c('A', 'B', 'A', 'C', 'B')
" s( q$ l" F7 uscore1 <- ordered(score, levels = c('C', 'B', 'A')); score1
) ^# E4 ]+ {. f* ~& Y4 a4 W
2 @3 ~2 c% w2 @+ W I* `3、用cut()函数将一般的数据转换成因子或有序因子。0 A2 e+ ~3 e4 G9 C$ f- w
例1:exam <- c(98, 97, 52, 88, 85, 75, 97, 92, 77, 74, 70, 63, 97, 71, 98,
q$ v. G3 s! D9 F2 [* E 65, 79, 74, 58, 59, 60, 63, 87, 82, 95, 75, 79, 96, 50, 88)
D6 p( s# Y# j0 texam1 <- cut(exam, breaks = 3) #切分成3组: b, |7 ?* _* i7 e( R. y
exam2 <- cut(exam, breaks = c(0, 59, 69, 79, 89, 100)) #切分成自己设置的组
: H& @9 W/ o [; d+ n3 b+ gattr(exam1, 'levels'); attr(exam2, 'levels'); attr(exam2, 'class')
) m& [9 B2 l0 }0 }% R$ Zordered(exam2, labels = c('bad', 'ok', 'average', 'good', 'excellent')) #一个有序因子7 q& j% j8 F% Z2 l& O
5 x8 \9 f% j. @ d( p% Z
! S3 e4 m! q; ^& Z& z |
zan
|