- 在线时间
- 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)和有序变量,这类变量不能用来计算而只能用来分类或者计数。
( \" e _" V( g/ Z因子表示分类变量,有序因子表示有序变量。" A' w6 [4 P& v* i
生成因子数据对象的函数是factor(),语法是factor(data, levels, labels, ...),其中data是数据,levels是因子水平向量,labels是因子的6 j/ J; N1 B8 @ I( I& M% J" |
( D& `* Z8 G3 t* S) E F0 e标签向量。" a" `/ w1 E$ [4 D# ~$ q3 A2 E b
1、创建一个因子。" |: U. `3 U$ C* V, P
例1:colour <- c('G', 'G', 'R', 'Y', 'G', 'Y', 'Y', 'R', 'Y'); u* v( E5 p+ T3 Z) W* v6 M( |
col <- factor(colour)
- W2 `( \$ v. G7 kcol1 <- factor(colour, levels = c('G', 'R', 'Y'), labels = c('Green', 'Red', 'Yellow')) #labels的内容替换colour相应位置对应levels的内容8 x) N+ Z _6 e% P4 c; ^
col2 <- factor(colour, levels = c('G', 'R', 'Y'), labels = c('1', '2', '3'))1 [3 q2 W' \% @: G# W9 k
col_vec <- as.vector(col2) #转换成字符向量
: X! P2 E7 D4 U% c1 x. v6 b4 F" f( ncol_num <- as.numeric(col2) #转换成数字向量
3 d$ v( K: z; G% _- Wcol3 <- factor(colour, levels = c('G', 'R'))
$ _# q8 t/ A- V# L6 v' m
) ~8 t( k& _( {2、创建一个有序因子。* I) g6 \ N" ^4 C2 h, C$ V" n
例1:score <- c('A', 'B', 'A', 'C', 'B')
& t' z7 K( {& Mscore1 <- ordered(score, levels = c('C', 'B', 'A')); score1% ?3 q3 Z, r9 [$ D, y8 y3 I
, k+ F1 D# }9 c. |3、用cut()函数将一般的数据转换成因子或有序因子。
! O e/ p* e: R, t! I0 z 例1:exam <- c(98, 97, 52, 88, 85, 75, 97, 92, 77, 74, 70, 63, 97, 71, 98, 0 C8 ~* |. D: D0 a0 M' h
65, 79, 74, 58, 59, 60, 63, 87, 82, 95, 75, 79, 96, 50, 88)' k) ?- g8 ^4 c% Y
exam1 <- cut(exam, breaks = 3) #切分成3组- l' B7 U* z( p5 K7 e! F! ]
exam2 <- cut(exam, breaks = c(0, 59, 69, 79, 89, 100)) #切分成自己设置的组
@# X# n8 Z$ e7 u; ? }3 `0 iattr(exam1, 'levels'); attr(exam2, 'levels'); attr(exam2, 'class')5 o" |, _9 e' R* _/ O7 R B9 ~' P3 U
ordered(exam2, labels = c('bad', 'ok', 'average', 'good', 'excellent')) #一个有序因子
8 `0 K& k( K7 h. S* n7 k/ b3 g3 T2 B& n, G' A. m( f" T* j7 z0 U* T5 H9 C
, |' `" O! X5 l/ f# }% C* L |
zan
|