如何用plyr包中count计数的结果替换原始数据？

Question

我的原始数据是这样的：

  x1 x2 x3
1  0  0  0
2  1  1  1
3  1  1  1
4  1  3  1
5  2  2  2
6  3  3  3
7  3  3  3
8  3  2  2

使用plyr包中的count函数后，结果如下所示：

 x1 x2 x3 freq
1  0  0  0    1
2  1  1  1    2
3  1  3  1    1
4  2  2  2    1
5  3  2  2    1
6  3  3  3    2

如何将原始数据表替换为这样的内容？：

  x1 
1  1  
2  2  
3  2  
4  3  
5  4 
6  6  
7  6  
8  5

Answer 1

你可以尝试

df1$x1 <- as.numeric(factor(rowSums(df1)))
df1$x1
#[1] 1 2 2 3 4 6 6 5

或使用count

中的plyr

library(plyr)
df2 <- count(df1)
freq1 <- df2$freq
df1$x1 <- join(unique(df1),transform(join(df2, df1), 
               new=rep(seq_along(freq1), freq1)))$new

df1$x1
#[1] 1 2 2 3 4 6 6 5

数据

df1 <- structure(list(x1 = c(0L, 1L, 1L, 1L, 2L, 3L, 3L, 3L), 
x2 = c(0L, 1L, 1L, 3L, 2L, 3L, 3L, 2L), x3 = c(0L, 1L, 1L, 1L, 2L, 3L, 
3L, 2L)), .Names = c("x1", "x2", "x3"), class = "data.frame", 
row.names = c("1", "2", "3", "4", "5", "6", "7", "8"))