Question

我正在尝试使用Lars Relund Nielsen webpage上显示的GoogleMaps模型，从美国邮政编码位置的实际距离矩阵创建查找表。美国东北部的邮政编码以“0”开头，因此当reshape2将矩阵从宽变换为长时，它会被删除，如其页面所述。

5个邮政编码之间的距离（km）的示例矩阵：

    mdat <- matrix(c(0.000, 113.288, 145.986, 126.271, 368.354
             ,103.988, 0.000, 69.637, 49.922, 294.386
             ,144.851, 69.285, 0.000, 25.547, 244.024
             ,124.531, 48.965, 25.245, 0.000, 258.729
             ,368.346, 295.159, 243.478, 258.598, 0.000)
           , nrow = 5
           , ncol = 5
           , byrow = TRUE,
           dimnames = list(c("01014", "01747", "02144", "02453", "04040"),
                           c("01014", "01747", "02144", "02453", "04040")))
Looks like this (all well and good);

#       01014   01747   02144   02453   04040
#01014   0.000 113.288 145.986 126.271 368.354
#01747 103.988   0.000  69.637  49.922 294.386
#02144 144.851  69.285   0.000  25.547 244.024
#02453 124.531  48.965  25.245   0.000 258.729
#04040 368.346 295.159 243.478 258.598   0.000

但是当我将Matrix重新整形为查找表时，它会将行/列名称转换为从Zip代码中删除前导零的数字。

#reshape into a table of distances
library(reshape2)
dat<-(melt(mdat))
dat
colnames(dat)<-c("from","to","km")
head(dat)

  from   to      km
1 1014 1014   0.000
2 1747 1014 103.988
3 2144 1014 144.851
4 2453 1014 124.531
5 4040 1014 368.346
6 1014 1747 113.288

我希望得到;

from   to      km
1 01014 01014   0.000
2 01747 01014 103.988
3 02144 01014 144.851
4 02453 01014 124.531
5 04040 01014 368.346
6 01014 01747 113.288

关于如何让reshape2将Zip代码转换为数字的任何想法？

Answer 1

在melt函数中包含as.is = TRUE：

dat<-(melt(mdat, as.is=TRUE))
colnames(dat)<-c("from","to","km")

这将通过熔化过程将列名保持为字符串。

防止reshape2将列标题转换为数字

1 个答案: