使用R在google地图上应用坐标点

首先感谢大家抽出时间。。。。 我想让你知道我是个新手 我正在尝试用R来绘制我的坐标。我已经尝试过使用不同的post函数，其中一个我将在下面添加它，我有一个包含坐标点的文件，我想在谷歌卫星地图中绘制它们？ 我也有API密钥，但我不知道如何在代码中添加它

require(ggplot2)
require(ggmap)
require(maps)
require(mapproj)
require(mapdata)
require(rgeos)
require(maptools)
require(sp)
require(raster)
require(rgdal)
require(dismo)
require(tmp)
####
swf1 <- read.csv("D:/jamal project/swf1.csv",header=TRUE)
head(swf1)
 Lon      Lat
1 46.60638 24.88843
2 39.57275 21.39170
3 39.63389 24.43904
4 46.73168 24.64144
5 46.77773 24.73872
6 43.98056 26.33847
#i try using ggmap’s make_bbox function
swfp <- make_bbox(lon = swf$lon, lat = swf$lat, f = .1)
swfp
        ###i got this messg
        Warning messages:
       1: In min(x, na.rm = na.rm) :
        no non-missing arguments to min; returning Inf
       2: In max(x, na.rm = na.rm) :
        no non-missing arguments to max; returning -Inf
       3: In min(x, na.rm = na.rm) :
        no non-missing arguments to min; returning Inf
       4: In max(x, na.rm = na.rm) :
        no non-missing arguments to max; returning -Inf
       > swfp
      left bottom  right    top 
      -Inf   -Inf    Inf    Inf 

require（ggplot2）
需要（ggmap）
需要（地图）
需要（mapproj）
需要（地图数据）
需要（rgeos）
需要（地图工具）
需要（sp）
需要（光栅）
需要（rgdal）
需要（dismo）
要求（tmp）
####
swf1这里有一个使用
library（googleway）

library（googleway）
设置密钥（“API密钥”）
swf1您是否尝试过使用例如？@RomanLuštrik是的，我遇到了一些错误，例如GetMap中的错误（center=center，zoom=zoom，type=“satellite”，destfile=“satellite.png”）：未使用的参数（type=“satellite”）：在第二种情况下，您可能需要提供一个API键。请参阅。在第一种情况下，列名中存在大小写不匹配。这应该是：
swfp@Ibusett感谢您的回答，即使我提供了API密钥，仍然没有地图和点。我可以请你试一下我的数据，看看我错了什么吗<代码>swf1
# loading the required packages
library(ggplot2)
library(ggmap)

# creating a sample data.frame with your lat/lon points
lon <- c(-38.31,-35.5)
lat <- c(40.96, 37.5)
df <- as.data.frame(cbind(lon,lat))

# getting the map
mapgilbert <- get_map(location = c(lon = mean(df$lon), lat = mean(df$lat)), 
zoom = 4,
                  maptype = "satellite", scale = 2)

# plotting the map with some points on it
ggmap(mapgilbert) +
geom_point(data = df, aes(x = lon, y = lat, fill = "red", alpha = 0.8), size = 
5, shape = 21) +
guides(fill=FALSE, alpha=FALSE, size=FALSE)

library(googleway)

set_key( "API_KEY" )

swf1 <- read.table(text='
Lon      Lat
1 46.60638 24.88843
2 39.57275 21.39170
3 39.63389 24.43904
4 46.73168 24.64144
5 46.77773 24.73872
6 43.98056 26.33847')

## you've asked for colours and sizes, so I'm making some random values which you can use in the plot
swf1$region <- sample(c("a","b"), size = nrow(swf1), replace = T)
swf1$size <- sample(50000:100000, size = nrow(swf1))

google_map() %>%
  add_circles(
    data = swf1, lon = "Lon", lat = "Lat", fill_colour = "region", radius = "size"
  )