- 在线时间
- 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)和有序变量,这类变量不能用来计算而只能用来分类或者计数。0 Z1 X9 b/ T! @+ m( I* [3 k+ G
因子表示分类变量,有序因子表示有序变量。, U7 Y# H& G: l3 k" s
生成因子数据对象的函数是factor(),语法是factor(data, levels, labels, ...),其中data是数据,levels是因子水平向量,labels是因子的
3 |' y" _5 i% X6 b N' V$ N6 i( U2 }$ s
标签向量。
/ q' J/ g7 v3 A) V M1、创建一个因子。( ~% G( Z$ I* m4 O
例1:colour <- c('G', 'G', 'R', 'Y', 'G', 'Y', 'Y', 'R', 'Y')
9 C+ p- d4 R$ Ncol <- factor(colour)1 r! Z1 y! t% B' v6 n5 m
col1 <- factor(colour, levels = c('G', 'R', 'Y'), labels = c('Green', 'Red', 'Yellow')) #labels的内容替换colour相应位置对应levels的内容( ?) Z# m( {0 m/ X4 J" l
col2 <- factor(colour, levels = c('G', 'R', 'Y'), labels = c('1', '2', '3'))- m( y" u- R& ~6 @2 _
col_vec <- as.vector(col2) #转换成字符向量
/ P0 X8 {+ U$ P+ \col_num <- as.numeric(col2) #转换成数字向量
0 x0 j b. J/ u* Rcol3 <- factor(colour, levels = c('G', 'R'))4 a5 F+ i+ L: O
; x6 F+ z5 Y+ S" v4 o2 }) e2 S4 P: U2、创建一个有序因子。
0 h2 ~' N$ W4 C6 ^ 例1:score <- c('A', 'B', 'A', 'C', 'B'), N1 t/ L0 a/ [" E; {8 X
score1 <- ordered(score, levels = c('C', 'B', 'A')); score1" F1 c4 |0 U0 I* n9 Z
# W- h; v0 U( ?7 V) V3、用cut()函数将一般的数据转换成因子或有序因子。2 e* m: D, m9 z5 `+ f7 C
例1:exam <- c(98, 97, 52, 88, 85, 75, 97, 92, 77, 74, 70, 63, 97, 71, 98, ; @6 k' y# i: N5 f3 q
65, 79, 74, 58, 59, 60, 63, 87, 82, 95, 75, 79, 96, 50, 88)$ F& s5 t$ ]# Q' l
exam1 <- cut(exam, breaks = 3) #切分成3组
- y( n4 i9 v: _4 _" ]" texam2 <- cut(exam, breaks = c(0, 59, 69, 79, 89, 100)) #切分成自己设置的组+ a8 D) |: {, ^) \! N% U- p# {
attr(exam1, 'levels'); attr(exam2, 'levels'); attr(exam2, 'class')" F7 b" G9 q$ S. n# Z
ordered(exam2, labels = c('bad', 'ok', 'average', 'good', 'excellent')) #一个有序因子
" q* O, O1 d* u" `) d/ B: O9 j: O6 A4 r
) }% E' x+ x% b8 B/ G6 H8 m: _ |
zan
|