Question

我正在尝试使用ggmap和geom_point在地图上绘制一些纬度/经度点。我以前做过，没有任何问题，但这次它根本不会显示。我已经尝试过取消列出数据，修改aes（）等等，但没有任何工作。 point_map的输出仅为Area_Map，没有积分。我在这里缺少什么？

# Read in data from csv files. 
bearingDat <- read.csv('bearing_Data.csv', sep = ',')

lonlatDat <- read.csv('lonlat_Data.csv', sep = ',')

# Create vectors for data. 
bearing <- c(bearingDat[1])
longitude <- c(lonlatDat[2])
latitude <- c(lonlatDat[1])

# Install necessary packages.
#install.packages("ggmap", "rworldmap")
#library(ggmap)
#library(rworldmap)


# Acquire map of area. 
Area_Map <- ggmap(get_map(location = c(175.733095424,-39.278361404),
                               zoom = 18,
                               maptype = "satellite",
                               color = "color"
)
)


point_map <- Area_Map + geom_point(data = lonlatDat, 
                                        aes(x=longitude, y=latitude),
                                        col = "red", 
                                        size = 1,
                                        alpha = 0.5,
                                        na.rm = TRUE
)

point_map

以下是经度和纬度的前10个值。

1   175.4404  39.15582
2   175.4404  39.22650
3   175.4404  39.22650
4   175.4404  39.22650
5   175.4404  39.22650
6   175.4404  39.22650
7   175.4404  39.22650
8   175.4404  39.22650
9   175.4403  39.42777
10  175.4403  39.42777

Answer 1

您的地图位于-39.278361404，您的积分位于39.15582，位于世界的两侧。

如果您修复了其中一个，那么您可能会看到一些东西。我的直觉告诉我，他们可能仍然超出缩放级别的范围。

尝试使用：

calc_zoom(lon, lat, data, adjust = 0, f = 0.05)

获得一个缩放级别，显示原始地图的最远点，你应该很高兴。

geom_point未显示在ggmap图上

1 个答案: