我有一个输入输出表,其中原点(输入字段)作为行,目标(输出字段)作为列。下面是一个示例:
Mexico Thailand Vietnam
USA 0 3 6
Italy 3 7 8
France 9 3 1
Germany 3 6 7
我想转换表,使原点在第 1 列中,目标在第 2 列中,值在第 3 列中,这样它看起来像这样:
origin destination value
USA Mexico 0
USA Thailand 3
USA Vietnam 6
Italy Mexico 3
Italy Thailand 7
Italy Vietnam 8
France Mexico 9
France Thailand 3
France Vietnam 1
Germany Mexico 3
Germany Thailand 6
Germany Vietnam 7
使用 reshape2 封装中的熔体函数有一个简单的解决方案:
#sample data
Mexico<-c(0, 3, 9,3)
Thailand <-c(3, 7, 3, 6)
Vietnam <-c(6, 8, 1, 7)
names<-c("USA", "Italy", "France", "Germany")
df<-data.frame(names, Mexico, Thailand, Vietnam)
library(reshape2)
melt(df )
包"tidyr"具有类似的功能。
library(tidyr)
gather(df, "names")