因子碎碎念

花花写于2019.5.31
我的R语言系统学习，都是跟着哈德雷蜀黍，我发现之前的因子，只是学了他的包，详解《R数据科学》–第十一章 forcats处理因子
内容较少，没有系统学习过，今天在图书馆看到一本书里面有系统的因子介绍，来学习一下。

1.生成因子

factor函数自带labels参数，修改它即是修改了levels和内容了

x <- c("G","G","R","B")
xf1 <- factor(x)
xf1
#[1] G G R B
#Levels: B G R
xf2 <- factor(x,labels = c("Green","Red","Blue"))
xf2
#[1] Red   Red   Blue  Green
#Levels: Green Red Blue

有/无序因子

无序因子：各因子之间没有先后和大小顺序
有序因子：。。。有。。。和。。。
判断是否为有序因子的函数：is.ordered

xf3 <- factor(c(1,2,3,4))
xf4 <- factor(c(1,2,3,4),levels=c(2,3,4,1),ordered = T)
is.ordered(xf4)
#[1] TRUE

参照因子

设定某个因子为第一个因子

relevel(xf1,"R")
#[1] G G R B
#Levels: R B G

查看和设置因子水平

levels(xf1)
#[1] "B" "G" "R"
levels(xf1)[1] <- "Blue"
xf1
#[1] G    G    R    Blue
#Levels: Blue G R
nlevels(xf1)
#3

2.因子操作

多个因子交互成组合因子

data(CO2)
str(CO2)
interaction(CO2$Plant,CO2$Type)
interaction(CO2$Plant,CO2$Type,drop = T)

##drop=T 去掉在原始数据中没有数值的因子组合

3.因子的存储方式是整数向量

所以因子可以转换成整数呗。字符型向量创建的因子，会按照字母顺序排序再对应到整数向量中。

x=letters[1:4]
xf=factor(x,ordered = T)
xf
#[1] a b c d
#Levels: a < b < c < d
storage.mode(x)
#[1] "character"
storage.mode(xf)
#[1] "integer"
as.numeric(xf)
#[1] 1 2 3 4