创建双向表并更改为数据框格式

Question

我的数据如下。我可以把它转换成我想要的格式。最后一行给出了我所需的格式。但是当我转换成数据帧时，我放松了格式。如何在转换为数据帧时保留格式？

start_city=c("a","b","a")
end_city=c("b","a","a")
travel=data.frame(start_city,end_city)
table(start_city,end_city)
abc=data.frame(table(start_city,end_city))

Answer 1

我们需要先将其转换为matrix

tbl <- table(start_city, end_city)
res <- as.data.frame.matrix(tbl)
str(res)
#'data.frame':   2 obs. of  2 variables:
#$ a: int  1 1
#$ b: int  1 0

在这里，我们将失去names的{​​{1}}＆＃39; tbl＆＃39;输出