我正在尝试构建类似http://flowingdata.com/2011/05/11/how-to-map-connections-with-great-circles/但在 csv 文件中使用我自己的数据。如果我使用与作者相同的 csv 文件,代码运行良好,但使用我的,这就是我得到的
代码
library(maps)
library(geosphere)
map("world")
xlim <- c(-180.00, 180.00)
ylim <- c(-90.00, 90.00)
map("world", col = "#f2f2f2", fill = TRUE, bg = "white", lwd = 0.05,xlim = xlim, ylim = ylim)
airports <- read.csv("/Users/shabnam/Desktop/airports.csv", as.is=TRUE, header=TRUE)
flights <- read.csv("/Users/shabnam/Desktop/flights.csv", as.is=TRUE, header=TRUE)
pal <- colorRampPalette(c("#545454", "white"))colors <- pal(100)
map("world", col="#303030", fill=TRUE, bg="black", lwd=0.05, xlim=xlim, ylim=ylim)
fsub <- flights[flights$airline == "AA",]
fsub <- fsub[order(fsub$cnt),]
maxcnt <- max(fsub$cnt)
for (j in 1:length(fsub$airline))
{
air1 <- airports[airports$iata == fsub[j,]$airport1,]
air2 <- airports[airports$iata == fsub[j,]$airport2,]
inter <- gcIntermediate(c(air1[1,]$long, air1[1,]$lat), c(air2[1,]$long, air2[1,]$lat), n=100, addStartEnd=TRUE)
colindex <- round( (fsub[j,]$cnt / maxcnt) * length(colors) )
lines(inter, col=colors[colindex], lwd=0.8)
}
Error in if (antipodal(p1, p2)) { : missing value where TRUE/FALSE needed
我已经尝试了一切,添加了 breakAtDateLine、sp 和 sepNA 但没有用。
非常感谢任何帮助,这是我第一次尝试使用 R。