Question

a<-as.factor(c('a','a','b','b','c','d'))
b<-as.factor(c('a','b','c','c','d','a'))
c<-as.factor(c('a','b','d','d','c','b'))
x<-data.frame(a,b,c)

  a b c
1 a a a
2 a b b
3 b c d
4 b c d
5 c d c
6 d a b

我有一个非常大的数据表（使用数据包），我想简单获取列名称并将它们附加到行因子值以便于识别。

所以在上面的简单示例中（使用数据框进行说明）我会有所收获喜欢

a    b   c
a:a  b:a c:a
a:a  b:b c:b
a:b  b:c c:d
..
..
a:d  b:a c:b

我曾尝试（不成功）进行某种类型的应用和粘贴组合。但我无法完全传递colname参数以正确粘贴到每个列。关于如何为大型数据表完成此任务的任何想法？数据表方法会很棒，但数据框架也很好，因为它只有一次动作。

Answer 1

数据框解决方案：

x[] <- mapply(function(n, f) {
    levels(f) <- paste(n, levels(f), sep=":")
    f
}, names(x), x)

R使用colnames连接行标签

1 个答案: