- 在线时间
- 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)和有序变量,这类变量不能用来计算而只能用来分类或者计数。
/ y& Z; R6 E1 [4 h: S因子表示分类变量,有序因子表示有序变量。' M Y4 r3 { v( H5 ]3 m
生成因子数据对象的函数是factor(),语法是factor(data, levels, labels, ...),其中data是数据,levels是因子水平向量,labels是因子的
# g& ], Y' _ ~, G4 [ S* k: \0 j( [% g( d
标签向量。% E2 g! i: `2 I3 ]
1、创建一个因子。
8 c2 O6 H: A) d1 b+ ~ 例1:colour <- c('G', 'G', 'R', 'Y', 'G', 'Y', 'Y', 'R', 'Y'). G( S9 N5 T& Y: {
col <- factor(colour)
% K( i4 d5 _" |# Z5 g6 X4 Bcol1 <- factor(colour, levels = c('G', 'R', 'Y'), labels = c('Green', 'Red', 'Yellow')) #labels的内容替换colour相应位置对应levels的内容! L$ ~) @( G, d# S- U% h
col2 <- factor(colour, levels = c('G', 'R', 'Y'), labels = c('1', '2', '3'))3 U7 f1 u' t$ g9 E+ i/ z. N. `
col_vec <- as.vector(col2) #转换成字符向量
! J. o# i; r6 c4 rcol_num <- as.numeric(col2) #转换成数字向量
, Y- f' t; Z4 b, a4 `col3 <- factor(colour, levels = c('G', 'R'))1 \$ o S9 X0 C& G6 q4 `7 v% I
" X6 e, E W/ L2、创建一个有序因子。 a+ {, b L1 T2 A7 C3 F8 Q
例1:score <- c('A', 'B', 'A', 'C', 'B')
# U7 q0 y' o$ k, [* r7 M. ?; \score1 <- ordered(score, levels = c('C', 'B', 'A')); score1
, I; B* |- x1 T- y8 e
) p+ ]# a' a/ |. X3、用cut()函数将一般的数据转换成因子或有序因子。0 M1 n9 R: X( t
例1:exam <- c(98, 97, 52, 88, 85, 75, 97, 92, 77, 74, 70, 63, 97, 71, 98,
2 c: n- s) s7 O/ P 65, 79, 74, 58, 59, 60, 63, 87, 82, 95, 75, 79, 96, 50, 88)5 `' C- s- U5 g
exam1 <- cut(exam, breaks = 3) #切分成3组
5 }. |: D* }. Aexam2 <- cut(exam, breaks = c(0, 59, 69, 79, 89, 100)) #切分成自己设置的组
9 T$ I3 P1 h% [, w7 P. Oattr(exam1, 'levels'); attr(exam2, 'levels'); attr(exam2, 'class')2 J9 e7 g3 C) E8 b# W i' b& r! T+ G
ordered(exam2, labels = c('bad', 'ok', 'average', 'good', 'excellent')) #一个有序因子
! l0 t+ }4 z! a2 _
- R1 T9 u# N( ^% D1 _
2 p; p) V' B, _* Z* N% O |
zan
|