- 在线时间
- 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)和有序变量,这类变量不能用来计算而只能用来分类或者计数。
3 ~; X1 U; z5 s7 ~) u因子表示分类变量,有序因子表示有序变量。
- }; @0 |! M; R5 D N3 G; f3 ?2 ^! r生成因子数据对象的函数是factor(),语法是factor(data, levels, labels, ...),其中data是数据,levels是因子水平向量,labels是因子的
8 q4 c2 \6 x% E, H: [1 v2 I+ Q4 ^$ A) @, q. S8 f
标签向量。
$ v$ J/ a- P& K) z1、创建一个因子。3 h8 U+ \* H3 k2 W
例1:colour <- c('G', 'G', 'R', 'Y', 'G', 'Y', 'Y', 'R', 'Y')) n" g# V( w0 w% B0 q5 h8 D
col <- factor(colour)
$ _9 t) S/ g3 a: z( c" C, Tcol1 <- factor(colour, levels = c('G', 'R', 'Y'), labels = c('Green', 'Red', 'Yellow')) #labels的内容替换colour相应位置对应levels的内容0 p; Q! m/ h0 b" i! b7 G
col2 <- factor(colour, levels = c('G', 'R', 'Y'), labels = c('1', '2', '3'))
& y9 D* T$ w, e. G/ f! ]/ m+ k# M9 |col_vec <- as.vector(col2) #转换成字符向量
4 A! H: G2 j1 ?9 l2 I' Ucol_num <- as.numeric(col2) #转换成数字向量
+ {- k6 Q* K. z" bcol3 <- factor(colour, levels = c('G', 'R'))$ d v J/ G) H( {/ I
& k! W9 V7 o5 d8 O; F2 K$ C
2、创建一个有序因子。
, `& W" O/ J' d' A. I9 ` 例1:score <- c('A', 'B', 'A', 'C', 'B')
1 M) `0 u, ]/ s* x yscore1 <- ordered(score, levels = c('C', 'B', 'A')); score1( \9 i+ E4 {8 {' [# D
: r! }' s% j! g# m+ }+ E3、用cut()函数将一般的数据转换成因子或有序因子。* F9 }- {+ N5 T5 [
例1:exam <- c(98, 97, 52, 88, 85, 75, 97, 92, 77, 74, 70, 63, 97, 71, 98, # s/ s! T" }4 r3 b% M1 }/ l
65, 79, 74, 58, 59, 60, 63, 87, 82, 95, 75, 79, 96, 50, 88)4 S, X5 V* D6 [; U" S* @
exam1 <- cut(exam, breaks = 3) #切分成3组5 D% H/ e, w! z: X
exam2 <- cut(exam, breaks = c(0, 59, 69, 79, 89, 100)) #切分成自己设置的组$ Q$ }* L6 A- O7 ~# @ b! {# P
attr(exam1, 'levels'); attr(exam2, 'levels'); attr(exam2, 'class')2 h' _( k& I" N% w$ K( G7 L g
ordered(exam2, labels = c('bad', 'ok', 'average', 'good', 'excellent')) #一个有序因子/ J+ ?9 E o; p; l
4 t+ @+ D$ m$ K- X9 T
& F% h v! x* o" p2 e
|
zan
|