如何用plyr软件包中计数函数的结果替换原始数据?

如何用plyr软件包中计数函数的结果替换原始数据?,r,plyr,R,Plyr,我的原始数据如下所示: 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 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 使用plyr软件包中的计数功能后,结果如下所示:

我的原始数据如下所示:

  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
 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
使用plyr软件包中的计数功能后,结果如下所示:

  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
 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
你可以试试

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