怎样将矩阵的列转化成 factor

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

有一个矩阵，需要将其中的多个列 元素转换成 factor, 有什么简单的方法 ？谢谢

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：factor Facto fact CTO ACT 矩阵 factor

as.factor()

总不能一次一次来吧，有多个列？？？？？？？？？？

> colApply <- function(dat, cols = colnames(dat), func = as.factor) {
     dat[cols] <- lapply(dat[cols], func)
     return(dat)
}
> dat <- data.frame(x1 = rpois(20, 3), x2 = 1:20, x3 = sample(letters[1:4], 20, replace = T), stringsAsFactors = F)
> dat
   x1 x2 x3
1   3  1  d
2   8  2  d
3   2  3  b
4   1  4  b
5   3  5  c
6   8  6  a
7   1  7  a
8   2  8  a
9   4  9  c
10  0 10  a
11  1 11  d
12  4 12  c
13  1 13  b
14  6 14  c
15  3 15  b
16  3 16  c
17  4 17  d
18  4 18  c
19  6 19  b
20  1 20  d
> str(colApply(dat, 'x1')) # x1 is a factor now
'data.frame':   20 obs. of  3 variables:
$ x1: Factor w/ 7 levels "0","1","2","3",..: 4 7 3 2 4 7 2 3 5 1 ...
$ x2: int  1 2 3 4 5 6 7 8 9 10 ...
$ x3: chr  "d" "d" "b" "b" ...
> str(colApply(dat, 2, cumsum))
'data.frame':   20 obs. of  3 variables:
$ x1: num  3 8 2 1 3 8 1 2 4 0 ...
$ x2: int  1 3 6 10 15 21 28 36 45 55 ...
$ x3: chr  "d" "d" "b" "b" ...
> str(colApply(dat, c(1, 3), as.factor)) # x1 and x3 are factors while x2 is still integers
'data.frame':   20 obs. of  3 variables:
$ x1: Factor w/ 7 levels "0","1","2","3",..: 4 7 3 2 4 7 2 3 5 1 ...
$ x2: int  1 2 3 4 5 6 7 8 9 10 ...
$ x3: Factor w/ 4 levels "a","b","c","d": 4 4 2 2 3 1 1 1 3 1 ...
>

学习了，

人才啊，难得

厉害

学习了

版主厉害

如果我有100列，这个方法也行不通。有大神说说吗。例如把100列其中的几列转化为factor