我的几何图形在r tmap中绘制不正确？

我试图在tmap上绘制一系列点，但是，这些点没有以正确的长/纬度绘制。以下是代码：

#loading data
ne_110<-st_read(file.choose(), crs=4326)

locations<-read.csv(file.choose())
locations<-st_as_sf(locations, coords=c('long','lat'), crs=4326)
head(locations)

tm_shape(ne_110)+
  tm_fill(col='darkslategray2')+
  tm_borders(col="black")+
  tm_layout(scale=0.5, bg.color="dodgerblue4",inner.margin=0.0005)+
  
  tm_shape(locations)+
  tm_dots(size = 0.5, col = "firebrick1")

#加载数据
请注意，几何体不在lon lat投影中。请在绘图部分之前尝试此操作：
locations以制作一个可复制的示例，该示例在将来可能会有用。您可以发布在文件输入之后获得的
dput（head（locations））
的输出，而不是该数据的图片。图片不能用于演示或错误检查。看起来你有了lat/lon的另一种方式-尝试切换列