- 在线时间
- 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)和有序变量,这类变量不能用来计算而只能用来分类或者计数。
1 o- z: j6 {- E9 C6 l# Q因子表示分类变量,有序因子表示有序变量。
) E( e% u9 [# J$ n3 R: A) x7 t生成因子数据对象的函数是factor(),语法是factor(data, levels, labels, ...),其中data是数据,levels是因子水平向量,labels是因子的
3 F7 x# F6 C- { {
4 T% e# t# h4 W* U2 t6 O6 f, Q3 O+ Y# \标签向量。
) A' B( K- L5 f6 B1、创建一个因子。 E T8 N, S) C# t0 @
例1:colour <- c('G', 'G', 'R', 'Y', 'G', 'Y', 'Y', 'R', 'Y') d1 U7 o( o8 u
col <- factor(colour)* n( ^5 D V8 |8 t5 u3 i$ p
col1 <- factor(colour, levels = c('G', 'R', 'Y'), labels = c('Green', 'Red', 'Yellow')) #labels的内容替换colour相应位置对应levels的内容$ n; ^8 w; u7 T: n+ j
col2 <- factor(colour, levels = c('G', 'R', 'Y'), labels = c('1', '2', '3'))
( H0 U0 ]) m0 f( S* Q; j9 Q. ~# icol_vec <- as.vector(col2) #转换成字符向量
2 P: h6 I9 ]# T1 B" t! v; Qcol_num <- as.numeric(col2) #转换成数字向量4 Q" }7 N7 A( `& Q- n
col3 <- factor(colour, levels = c('G', 'R'))# L8 ?+ v' @6 I# S& F$ {& _
' F( Y' Q( ]$ f |3 |* d2、创建一个有序因子。) A3 s: H2 S2 X
例1:score <- c('A', 'B', 'A', 'C', 'B')
; u& U8 z" ?) ^, [score1 <- ordered(score, levels = c('C', 'B', 'A')); score1: L0 C P/ n ~- Q$ x3 n
) ?$ y/ z2 q4 R2 p
3、用cut()函数将一般的数据转换成因子或有序因子。
5 A. {6 Z: g9 b1 t 例1:exam <- c(98, 97, 52, 88, 85, 75, 97, 92, 77, 74, 70, 63, 97, 71, 98,
7 Q5 E/ a3 L: ~0 ~ 65, 79, 74, 58, 59, 60, 63, 87, 82, 95, 75, 79, 96, 50, 88)2 t; f2 Y. t, N9 x+ \7 d
exam1 <- cut(exam, breaks = 3) #切分成3组2 e; m( `2 v& S
exam2 <- cut(exam, breaks = c(0, 59, 69, 79, 89, 100)) #切分成自己设置的组" I/ ^# P/ [ ?9 d1 m9 Z
attr(exam1, 'levels'); attr(exam2, 'levels'); attr(exam2, 'class')) S$ k' B% \. e7 o
ordered(exam2, labels = c('bad', 'ok', 'average', 'good', 'excellent')) #一个有序因子
. K0 A6 Q9 L/ W0 Q: l! K! y# {# M* S( T
) Z+ s' D% t" D N; N
|
zan
|