mapview无法正确显示点

Question

我正在尝试绘制单个用户的轨迹，并且希望通过mapview显示。我将轨迹定义如下：

pts = SpatialPoints(user[c("latitude", "longitude")], CRS("+init=epsg:4326"))
time_user <- as.POSIXct(strptime("1970-01-01", "%Y-%m-%d", tz = "GMT") 
                      + user$utc_timestamp)
tr = Track(STIDF(pts, time_user, user))
mapview(as(tr, "SpatialPointsDataFrame"), layer.name = NULL, zcol = 
        "utc_timestamp", legend = TRUE)

这里是我的点的坐标：

> stbox(tr)
latitude longitude                time
min 18.20470 -67.16065 2017-09-01 05:39:49
max 18.22791 -67.13504 2017-09-01 18:49:11

当我在“地图视图”上显示点时，它们不在正确的位置。我想这与我如何在pts上定义CRS有关。我尝试了许多选择，但仍然没有任何效果。有人可以帮我弄这个吗？谢谢！