3

我有 2001 年人口普查的通勤流量数据。我使用 R 包将其从“扁平”形式转换为“长”形式melt，reshape2并将起点和终点放在同一行，因为 ggplot2 仅接受数据帧输入。

我的问题是我最终将每行的数据加倍，以便每一行（行）都有一个起点和一个目的地。我确信有一个更简洁的解决方案，可能涉及更长的数据形式。

为了具体说明问题，我从赫里福德制作了一个小型工作示例：

# prepare data + packages
library(ggplot2)
library(ggmap)
flows.mini <- flows.ft[1:100,]
save(flows.mini, file="flows.mini.RData")
load("flows.mini.RData")
head(flows.mini)

 variable    X.1 value      X1.x     X2.x      X1.y     X2.y   n nr
1   00GANY 00GANY   605 -2.699389 52.06554 -2.699389 52.06554 605  1
2   00GANY 00GAPA   135 -2.742064 52.04099 -2.699389 52.06554 135  2
3   00GANY 00GAQD    25 -2.733890 51.93402 -2.699389 52.06554  25  3
    fcols
1    500+
2 100-500
3  10-100

要重现最后两行的步骤，请下载 RData 文件 (2 kb)：http ://dl.dropbox.com/u/15008199/flows.mini.RData并重现该图：

迷你流图

这就是我绘制它的方式：

# plot flows by doubling-up
hford <- qmap("hereford", source = "stamen", maptype = "toner", extent = "normal", maprange=FALSE)

hford + geom_path(data= flows.mini, aes(x=c(X1.x,X1.y), y=c(X2.x, X2.y), 
      group = c(nr, nr), color = c(fcols,fcols), size= c(n,n)), 
      lineend = "round") +
  scale_size_continuous(range = c(0.05,5)) +
  scale_color_discrete(breaks = c("0-10", "10-100", "100-500", "500+")) + 
  coord_map()

我想你会同意双重属性效率低下，所以，重新表述我的问题：我怎样才能删除它们？

4

1 回答 1

3

我不确定我是否真的理解这个问题，但是如果你使用geom_segment而不是geom_path，它是否解决了你描述的“属性加倍”的问题？

就像是 ：

hford + geom_segment(data= flows.mini, aes(x=X1.x,y=X2.x, xend=X1.y, yend=X2.y, 
      group = nr, color = fcols, size= n), 
      lineend = "round") +
  scale_size_continuous(range = c(0.05,5)) +
  scale_color_discrete(breaks = c("0-10", "10-100", "100-500", "500+")) + 
  coord_map()

在此处输入图像描述

于 2013-03-03T23:14:30.637 回答