- 在线时间
- 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 `4 t9 G+ ~6 S; [
因子表示分类变量,有序因子表示有序变量。
/ g# `& A' k. H N4 _生成因子数据对象的函数是factor(),语法是factor(data, levels, labels, ...),其中data是数据,levels是因子水平向量,labels是因子的
) q$ Z' L& G( o' M
: O. Y/ \% x; h$ b; u& j4 Q标签向量。
% P3 `! P+ H& `" S# F4 s2 U1、创建一个因子。 T% B7 m! e- o8 `6 b" T
例1:colour <- c('G', 'G', 'R', 'Y', 'G', 'Y', 'Y', 'R', 'Y')
" [1 `* x! G/ R# F: Ncol <- factor(colour)% a& S! Z! O& y4 ]5 y6 x9 T
col1 <- factor(colour, levels = c('G', 'R', 'Y'), labels = c('Green', 'Red', 'Yellow')) #labels的内容替换colour相应位置对应levels的内容
9 X" {- n( R+ \4 }% Acol2 <- factor(colour, levels = c('G', 'R', 'Y'), labels = c('1', '2', '3'))0 h* [0 n9 W- B7 G; H7 E
col_vec <- as.vector(col2) #转换成字符向量
. b5 ? L6 O. s, T9 Kcol_num <- as.numeric(col2) #转换成数字向量% T% {9 V8 w( f9 K' T! J/ B
col3 <- factor(colour, levels = c('G', 'R'))( F8 Z- f9 C- S Y5 g4 [' a
7 M L8 P) R+ B2 Z( ~' d- n2、创建一个有序因子。- [' j2 F: O' v/ _5 z) n
例1:score <- c('A', 'B', 'A', 'C', 'B')6 z8 A0 { B! g6 m
score1 <- ordered(score, levels = c('C', 'B', 'A')); score1
- a# p3 ^8 r; w- c' f- [' W( v5 i( W% Y" g8 s; s
3、用cut()函数将一般的数据转换成因子或有序因子。
9 |8 A7 z4 U! {. E3 e- N5 c 例1:exam <- c(98, 97, 52, 88, 85, 75, 97, 92, 77, 74, 70, 63, 97, 71, 98, 2 L# i t; K' F& Z# l- ?+ ~; z) Q
65, 79, 74, 58, 59, 60, 63, 87, 82, 95, 75, 79, 96, 50, 88)
! x2 t' ]# v" V6 [exam1 <- cut(exam, breaks = 3) #切分成3组4 M; T$ S5 n0 n2 {- d
exam2 <- cut(exam, breaks = c(0, 59, 69, 79, 89, 100)) #切分成自己设置的组
- Z7 {% Y& L. {5 w3 N. t+ ^attr(exam1, 'levels'); attr(exam2, 'levels'); attr(exam2, 'class')- N; H- `; n% o
ordered(exam2, labels = c('bad', 'ok', 'average', 'good', 'excellent')) #一个有序因子6 [4 B7 }3 R7 a5 S5 u
# P* P7 g+ y9 h% ~7 {2 n! ?; m2 K8 A, G) S( e) [ @- n
|
zan
|