替换R中字符串中的每一秒逗号

我有一个字符串，表示纬度，长坐标，如下所示：

30.538358,-96.692008,30.538602,-96.691741,30.539737,-96.690322

我需要用

|

30.538358,-96.692008|30.538602,-96.691741|30.539737,-96.690322

---

我之所以需要这种格式，是因为谷歌地图提升服务需要这种格式。

您可以使用

gsub

和正则表达式来实现这一点

string = "30.538358,-96.692008,30.538602,-96.691741,30.539737,-96.690322"
gsub("([^,]+,[^,]+),", "\\1|", string)
"30.538358,-96.692008|30.538602,-96.691741|30.539737,-96.690322"

---

您可以使用

gsub

和正则表达式来实现这一点

string = "30.538358,-96.692008,30.538602,-96.691741,30.539737,-96.690322"
gsub("([^,]+,[^,]+),", "\\1|", string)
"30.538358,-96.692008|30.538602,-96.691741|30.539737,-96.690322"

---

在R中，您可以使用my

googleway

包中的

google\u-elevation（）

函数调用google的elevation API

df <- read.table(text = "lat,lon
                 30.538358,-96.692008
                 30.538602,-96.691741
                 30.539737,-96.690322",header=T,sep = ",")

google_elevation(df_locations = df, key = apiKey)
# $results
# elevation location.lat location.lng resolution
# 1  101.8991     30.53836    -96.69201   9.543952
# 2  102.0905     30.53860    -96.69174   9.543952
# 3  101.2652     30.53974    -96.69032   9.543952
# 
# $status
# [1] "OK"

---

df在R中，您可以使用my
googleway
包中的
google_-elevation（）
函数调用google的elevation API

df <- read.table(text = "lat,lon
                 30.538358,-96.692008
                 30.538602,-96.691741
                 30.539737,-96.690322",header=T,sep = ",")

google_elevation(df_locations = df, key = apiKey)
# $results
# elevation location.lat location.lng resolution
# 1  101.8991     30.53836    -96.69201   9.543952
# 2  102.0905     30.53860    -96.69174   9.543952
# 3  101.2652     30.53974    -96.69032   9.543952
# 
# $status
# [1] "OK"

df和你尝试了什么？你尝试了什么？谢谢，我不知道谷歌的软件包。这肯定会对我有帮助。谢谢你，我不知道谷歌的软件包。这肯定对我有帮助。