- 在线时间
- 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)和有序变量,这类变量不能用来计算而只能用来分类或者计数。 R! z# L3 p; ~+ ?0 |( C
因子表示分类变量,有序因子表示有序变量。& H& [" ^3 U2 J5 {- ^
生成因子数据对象的函数是factor(),语法是factor(data, levels, labels, ...),其中data是数据,levels是因子水平向量,labels是因子的) R, t3 e/ ^; S
- X# ^3 J" Q, \; _% ?标签向量。
+ f5 m$ E4 V% q7 q [1、创建一个因子。
7 Q4 _4 i, b: s: Y 例1:colour <- c('G', 'G', 'R', 'Y', 'G', 'Y', 'Y', 'R', 'Y')
0 k% ]# W8 Y0 \5 \& k' L9 ]8 _col <- factor(colour)
2 A7 t6 C3 ~5 `0 xcol1 <- factor(colour, levels = c('G', 'R', 'Y'), labels = c('Green', 'Red', 'Yellow')) #labels的内容替换colour相应位置对应levels的内容& ~- s' b- e, d" U+ _
col2 <- factor(colour, levels = c('G', 'R', 'Y'), labels = c('1', '2', '3'))# ^6 z8 C: o. H0 X
col_vec <- as.vector(col2) #转换成字符向量
5 `+ \* ?/ U% [ pcol_num <- as.numeric(col2) #转换成数字向量
" H: _, [) l1 q% i0 f% V# scol3 <- factor(colour, levels = c('G', 'R'))
* t, w- R% h- C/ L5 s5 i3 j( Y. I. t
, U0 `) J4 D% x. S% g% y3 j2、创建一个有序因子。
9 K( N$ t9 J; g6 o' x: l- a7 c" `/ ?6 @ 例1:score <- c('A', 'B', 'A', 'C', 'B')( m$ Z; \: W( S% z+ E
score1 <- ordered(score, levels = c('C', 'B', 'A')); score1
( h4 e* p1 q& q: t* w% I. I9 f' x7 \8 Q* ^3 t
3、用cut()函数将一般的数据转换成因子或有序因子。
4 Y' G& _2 u7 E8 V 例1:exam <- c(98, 97, 52, 88, 85, 75, 97, 92, 77, 74, 70, 63, 97, 71, 98,
* `+ u. [' J1 [$ q1 D) q 65, 79, 74, 58, 59, 60, 63, 87, 82, 95, 75, 79, 96, 50, 88)
; G7 N2 [' i4 U( k: t# eexam1 <- cut(exam, breaks = 3) #切分成3组
* M$ k g2 H* K+ F) D# Qexam2 <- cut(exam, breaks = c(0, 59, 69, 79, 89, 100)) #切分成自己设置的组" P. \' ], M% w: k
attr(exam1, 'levels'); attr(exam2, 'levels'); attr(exam2, 'class')& q' ?3 w# u7 y' b. D! ?8 R; S
ordered(exam2, labels = c('bad', 'ok', 'average', 'good', 'excellent')) #一个有序因子
9 T1 U* y [1 O; } h/ |$ t2 i7 Z8 X' }1 u; V0 x: N
, W( b# g G* B1 e4 L0 z |
zan
|