- 在线时间
- 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)和有序变量,这类变量不能用来计算而只能用来分类或者计数。# `% `( J9 Z6 D& S8 _, Q
因子表示分类变量,有序因子表示有序变量。- w2 T& t/ x3 b/ J, i J
生成因子数据对象的函数是factor(),语法是factor(data, levels, labels, ...),其中data是数据,levels是因子水平向量,labels是因子的
$ J; u$ J' D8 C
1 F: A0 f3 `) T7 J9 }) f标签向量。
1 I* ^7 h( E% F" m1、创建一个因子。& S& u6 c5 ]7 j' r/ e) G* m
例1:colour <- c('G', 'G', 'R', 'Y', 'G', 'Y', 'Y', 'R', 'Y')
v, X9 h! {$ F" M0 b; acol <- factor(colour)* p5 @8 K8 z' B6 D3 h; ]
col1 <- factor(colour, levels = c('G', 'R', 'Y'), labels = c('Green', 'Red', 'Yellow')) #labels的内容替换colour相应位置对应levels的内容" G9 i# M* G( v O& A9 E) J
col2 <- factor(colour, levels = c('G', 'R', 'Y'), labels = c('1', '2', '3'))6 S) q9 l4 v9 r, o1 i- N6 G* H
col_vec <- as.vector(col2) #转换成字符向量* m# v; m' v( P. ]0 \4 Z1 o
col_num <- as.numeric(col2) #转换成数字向量7 M1 r- c. j# t
col3 <- factor(colour, levels = c('G', 'R'))
5 _! b1 C; E+ t- t* c
: U* e9 K- T& O n! G3 F2、创建一个有序因子。& |& S- F/ b3 T* q6 w% k7 q
例1:score <- c('A', 'B', 'A', 'C', 'B')
; t/ z' k; m+ s9 m% vscore1 <- ordered(score, levels = c('C', 'B', 'A')); score1
. B- z$ H z1 n4 M8 ~( {! Q: v, r- t& I0 Z# H
3、用cut()函数将一般的数据转换成因子或有序因子。$ E( S3 |# ]2 O! G& {
例1:exam <- c(98, 97, 52, 88, 85, 75, 97, 92, 77, 74, 70, 63, 97, 71, 98,
6 q; S A7 ?7 k. ~9 g 65, 79, 74, 58, 59, 60, 63, 87, 82, 95, 75, 79, 96, 50, 88)
$ t; k9 j8 J1 F7 t4 lexam1 <- cut(exam, breaks = 3) #切分成3组) X( b3 a: h+ Y! s1 T# c
exam2 <- cut(exam, breaks = c(0, 59, 69, 79, 89, 100)) #切分成自己设置的组0 A! e$ g4 M/ L3 H- z
attr(exam1, 'levels'); attr(exam2, 'levels'); attr(exam2, 'class')3 j. Z3 k0 p1 O
ordered(exam2, labels = c('bad', 'ok', 'average', 'good', 'excellent')) #一个有序因子) c0 j9 @2 k! m! F
[) z U% S9 |. Q, [3 f
% m& P+ W+ Y' p |
zan
|