3

我正在尝试使用 R（使用 map 和 wrld_simpl）在世界地图上绘制两个城市之间的界线。

如何在两点之间获得一条平滑线？如果我在美国和澳大利亚之间画一条线，它有三个不同的部分

require(rworldmap)

map("world", col="#f2f2f2", fill=TRUE, bg="white", lwd=0.05)

data(wrld_simpl)

US_lat = wrld_simpl$LAT[wrld_simpl$NAME == 'United States']
US_lon = wrld_simpl$LON[wrld_simpl$NAME == 'United States']

australia_lat = wrld_simpl$LAT[wrld_simpl$NAME == 'Australia']
australia_lon = wrld_simpl$LON[wrld_simpl$NAME == 'Australia']

lines(c(US_lon, US_lat), c(australia_lon, australia_lat))

这画了一条线，但在澳大利亚和美国之间是不正确的。我究竟做错了什么？

4

2 回答 2

2

该方法采用x 坐标和y 坐标lines的向量。因此，您的行应如下所示：xy

lines(c(US_lon, australia_lon), c(US_lat, australia_lat))

如果你想要一个大圆圈，以下将起作用：

require(geosphere)
gc <- gcIntermediate(c(US_lon, US_lat), c(australia_lon, australia_lat), breakAt=TRUE, n=1000)
invisible(lapply(gc, lines, col='red', lwd=2))
于 2011-12-11T01:56:21.240 回答
1

您还可以使用 grid.curve() 绘制“曲线”：

grid.curve(US_lon, australia_lon, US_lat, australia_lat)

...您可以定义曲线的“外观”。

于 2015-11-17T13:59:24.707 回答