- 在线时间
- 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)和有序变量,这类变量不能用来计算而只能用来分类或者计数。
1 O" g) D( `( Y) a因子表示分类变量,有序因子表示有序变量。/ n# Q0 a/ n/ |6 m
生成因子数据对象的函数是factor(),语法是factor(data, levels, labels, ...),其中data是数据,levels是因子水平向量,labels是因子的
! i T- f0 n3 j# y0 H" o: d8 }- |1 r0 u* z6 ~/ W
标签向量。
8 S, H9 B$ {9 }5 e0 q) a1、创建一个因子。
$ F- v/ ? g a* F' v" f 例1:colour <- c('G', 'G', 'R', 'Y', 'G', 'Y', 'Y', 'R', 'Y')0 O3 y: q* A8 H1 L$ T. `* v! C$ J
col <- factor(colour)
{3 F& L$ `2 m G( S scol1 <- factor(colour, levels = c('G', 'R', 'Y'), labels = c('Green', 'Red', 'Yellow')) #labels的内容替换colour相应位置对应levels的内容) t% [6 y9 R& D. J/ @
col2 <- factor(colour, levels = c('G', 'R', 'Y'), labels = c('1', '2', '3')). M. `1 k5 }# b7 F N
col_vec <- as.vector(col2) #转换成字符向量
0 z) X2 }9 e4 \/ n4 z# Ncol_num <- as.numeric(col2) #转换成数字向量
/ `4 B) ^) |% G4 rcol3 <- factor(colour, levels = c('G', 'R'))
2 @, F3 v8 m+ O& Z7 Z2 k: Q2 u# U: k+ I$ E D8 ~1 j* q8 @
2、创建一个有序因子。$ x+ T+ `, [9 X4 q0 f) k
例1:score <- c('A', 'B', 'A', 'C', 'B')
& T' p1 t" R1 n) e- oscore1 <- ordered(score, levels = c('C', 'B', 'A')); score1
/ U4 e6 K& O# Q+ }9 D( Q: h U" `1 f5 s; g5 N. Z4 c, } n+ `
3、用cut()函数将一般的数据转换成因子或有序因子。
$ a, F w9 D9 }1 _, a; l% G 例1:exam <- c(98, 97, 52, 88, 85, 75, 97, 92, 77, 74, 70, 63, 97, 71, 98,
" H6 h: n0 H( M, \: ~8 o 65, 79, 74, 58, 59, 60, 63, 87, 82, 95, 75, 79, 96, 50, 88), T' f1 Z, U( A" |
exam1 <- cut(exam, breaks = 3) #切分成3组/ J+ I1 P# L$ g/ J' Q5 h9 |* s/ Q
exam2 <- cut(exam, breaks = c(0, 59, 69, 79, 89, 100)) #切分成自己设置的组
. `! {% g0 p8 ?6 b1 aattr(exam1, 'levels'); attr(exam2, 'levels'); attr(exam2, 'class')' X% t$ t2 b) T$ L" P. L/ d' ?1 J* U
ordered(exam2, labels = c('bad', 'ok', 'average', 'good', 'excellent')) #一个有序因子# Q& U6 r1 B8 F. w1 K- X$ {
# U0 b1 F4 a' N. \' a
9 C9 z8 }& D+ B |
zan
|