R语言如何把矩阵变成向量？

现在有如下格式的数据：

	D1	D2	D3	D4
O1	7	3	9	3
O2	7	2	8	2
O3	2	0	2	10

想变成下面的格式：

from	to	flow
O1	D1	7
O2	D1	7
O3	D1	2
O1	D2	3
O2	D2	2
O3	D2	0
O1	D3	9
O2	D3	8
O3	D3	2
O1	D4	3
O2	D4	2
O3	D4	10

不知道用R语言应该如何实现呢？一个格子一个格子操作的话，速度太慢了。好像可以用apply族函数？
求有经验的朋友指点，谢谢！

reshape2包的melt函数

tidyr很方便。
注：tidyr是reshape2的加强升级版。

复制代码

library(tidyr)
from=c("O1","O2","O3")
D1=c(7,7,2)
D2=c(3,2,0)
D3=c(9,8,2)
D4=c(3,2,10)
df=data.frame(from,D1,D2,D3,D4)
df %>%
  gather(to,flow,-from)

1. library(tidyr)
   
2. from=c("O1","O2","O3")
   
3. D1=c(7,7,2)
   
4. D2=c(3,2,0)
   
5. D3=c(9,8,2)
   
6. D4=c(3,2,10)
   
7. df=data.frame(from,D1,D2,D3,D4)
   
8. df %>%
   
9.   gather(to,flow,-from)

复制代码

用reshape也挺简单的：

1. from=c("O1","O2","O3")
   
2. D1=c(7,7,2)
   
3. D2=c(3,2,0)
   
4. D3=c(9,8,2)
   
5. D4=c(3,2,10)
   
6. df=data.frame(from,D1,D2,D3,D4)
   
7. df
   
8. 
   
9. library(reshape)
   
10. melt(df)

复制代码

结果：

1. > melt(df)
   
2. Using from as id variables
   
3.    from variable value
   
4. 1    O1       D1     7
   
5. 2    O2       D1     7
   
6. 3    O3       D1     2
   
7. 4    O1       D2     3
   
8. 5    O2       D2     2
   
9. 6    O3       D2     0
   
10. 7    O1       D3     9
    
11. 8    O2       D3     8
    
12. 9    O3       D3     2
    
13. 10   O1       D4     3
    
14. 11   O2       D4     2
    
15. 12   O3       D4    10

复制代码