R语言中，用melt进行数据融合，怎么对这个过程求逆

大家好，我问一个问题，我的数据比较多，先用个简单的代码来描述我的需求：

1. a <- data.frame(num=c(1,2,3),
   
2.                 ani=c("a","b","c")
   
3.                 ,dam= c("x","y","z"),
   
4.                 b1=c(33,44,66),
   
5.                 b2=c(44,33,22),
   
6.                 b3=c(45,33,55),
   
7.                 b4=c(55,66,77))
   
8. a #查看数据
   
9. b <- melt(a,id.vars=c("num","ani","dam"))
   
10. b

复制代码

得到的结果如下：

1. > a <- data.frame(num=c(1,2,3),
   
2. + ani=c("a","b","c")
   
3. + ,dam= c("x","y","z"),
   
4. + b1=c(33,44,66),
   
5. + b2=c(44,33,22),
   
6. + b3=c(45,33,55),
   
7. + b4=c(55,66,77))
   
8. > a #查看数据
   
9.   num ani dam b1 b2 b3 b4
   
10. 1   1   a   x 33 44 45 55
    
11. 2   2   b   y 44 33 33 66
    
12. 3   3   c   z 66 22 55 77
    
13. > b <- melt(a,id.vars=c("num","ani","dam"))
    
14. > b
    
15.    num ani dam variable value
    
16. 1    1   a   x       b1    33
    
17. 2    2   b   y       b1    44
    
18. 3    3   c   z       b1    66
    
19. 4    1   a   x       b2    44
    
20. 5    2   b   y       b2    33
    
21. 6    3   c   z       b2    22
    
22. 7    1   a   x       b3    45
    
23. 8    2   b   y       b3    33
    
24. 9    3   c   z       b3    55
    
25. 10   1   a   x       b4    55
    
26. 11   2   b   y       b4    66
    
27. 12   3   c   z       b4    77

复制代码

我的问题，怎么由对象b，得到对象a？

十分感谢。

> library(reshape2)
> a <- data.frame(num=c(1,2,3),
+                 ani=c("a","b","c")
+                 ,dam= c("x","y","z"),
+                 b1=c(33,44,66),
+                 b2=c(44,33,22),
+                 b3=c(45,33,55),
+                 b4=c(55,66,77))
> a
  num ani dam b1 b2 b3 b4
1   1   a   x 33 44 45 55
2   2   b   y 44 33 33 66
3   3   c   z 66 22 55 77
> b <- melt(a,id=c("num","ani","dam"))
> b
   num ani dam variable value
1    1   a   x       b1    33
2    2   b   y       b1    44
3    3   c   z       b1    66
4    1   a   x       b2    44
5    2   b   y       b2    33
6    3   c   z       b2    22
7    1   a   x       b3    45
8    2   b   y       b3    33
9    3   c   z       b3    55
10   1   a   x       b4    55
11   2   b   y       b4    66
12   3   c   z       b4    77
> a1<-dcast(b,num+ani+dam~variable)
> a1
  num ani dam b1 b2 b3 b4
1   1   a   x 33 44 45 55
2   2   b   y 44 33 33 66
3   3   c   z 66 22 55 77

tidyr::spread

dcast()

万人往LVR 发表于 2016-9-26 20:07
tidyr::spread

这个更好

不懂不装懂 发表于 2016-9-26 19:27
> library(reshape2)
> a  a
  num ani dam b1 b2 b3 b4

thank you，记得有这个函数，具体忘了，多谢解答