如何将R数据框中坐标字符串的数值拆分至X、Y两列？

示例数据 #

Coordinates = c("[-1.74589,6.74885]", NA, NA, NA, NA, "[-1.582775,6.100376]", "[-1.68144,6.63265]", NA, NA, NA, "[-1.98006,6.33484]", "[-0.94156,6.63623]")
df <- data.frame(Coordinates)

实现方法 #

方法一：基础R原生实现

无需额外安装包，用原生字符串处理函数完成拆分：

# 移除坐标字符串的方括号，再按逗号拆分
split_coords <- strsplit(gsub("\\[|\\]", "", df$Coordinates), ",")

# 将拆分后的列表转为数据框，同时处理NA值
xy_df <- do.call(rbind, lapply(split_coords, function(x) {
  if (length(x) != 2) {
    data.frame(X = NA, Y = NA)
  } else {
    data.frame(X = as.numeric(x[1]), Y = as.numeric(x[2]))
  }
}))

# 合并到原数据框
result_df <- cbind(df, xy_df)

方法二：tidyverse工具包（更简洁）

如果常用tidyverse生态，用separate函数可以快速完成：

# 首次使用需先安装tidyverse
# install.packages("tidyverse")
library(tidyverse)

result_df <- df %>%
  # 移除方括号
  mutate(Coordinates_clean = str_remove_all(Coordinates, "\\[|\\]")) %>%
  # 按逗号拆分，自动转为数值类型
  separate(Coordinates_clean, into = c("X", "Y"), sep = ",", convert = TRUE) %>%
  # 调整列顺序为需求格式
  select(Coordinates, X, Y)

最终输出 #

运行任意一种方法后，result_df的结构与期望一致：

Coordinates         X         Y
1   [-1.74589,6.74885]  -1.74589  6.748850
2                  NA        NA        NA
3                  NA        NA        NA
4                  NA        NA        NA
5                  NA        NA        NA
6 [-1.582775,6.100376] -1.582775  6.100376
7   [-1.68144,6.63265]  -1.68144  6.632650
8                  NA        NA        NA
9                  NA        NA        NA
10                 NA        NA        NA
11  [-1.98006,6.33484]  -1.98006  6.334840
12  [-0.94156,6.63623]  -0.94156  6.636230

内容的提问来源于stack exchange，提问作者Ed_Gravy