Вот пример с поддельными данными:
# Fake data
d = data.frame(x=c("(8.4344, 93.593)", "(6.44, 91.3)"), stringsAsFactors=FALSE)
library(tidyverse)
d %>%
# Remove parentheses
mutate(x = gsub("\\(|\\)", "", x)) %>%
# Separate into two columns
separate(x, into=c("lat","lon"), sep=", ") %>%
# Convert to numeric
mutate(across(lat:lon, as.numeric))
lat lon
1 8.4344 93.593
2 6.4400 91.300
Или, используя регулярные выражения для извлечения широты и долготы:
d %>%
mutate(lat = str_extract(x, "(?<=\\()[0-9-\\.]*"),
lon = str_extract(x, "(?<=, )[0-9-\\.]*"),
across(lat:lon, as.numeric))