使用as.numeric转换带N/E的经纬度出现值异常的原因排查

这个问题的核心是你的Latitude和Longitude列大概率是因子（factor）类型，而不是字符（character）类型！

当你直接对因子使用as.numeric()时，R不会去解析字符串里的数字内容，而是返回这个因子在因子水平（factor levels）中的索引位置。举个例子：

• 如果你的Latitude因子的水平列表里，"12.05N"是第4个元素，那么as.numeric(dframe$Latitude)就会返回4；
• 同理，"77.26E"在Longitude因子的水平里排第79位，所以得到79。

为什么会变成因子？通常是因为你读取数据时（比如用read.csv()），旧版R默认stringsAsFactors = TRUE，会把带字母的字符串自动转成因子；即使是新版R，如果手动设置了这个参数，也会出现同样的情况。

要正确转换这些带方向的经纬度，你需要分三步处理：

• 把因子转成字符串
  先将因子类型转为字符类型，这样才能处理里面的文本内容：

  dframe$Latitude_char <- as.character(dframe$Latitude)
  dframe$Longitude_char <- as.character(dframe$Longitude)
  

• 提取数字并处理方向符号
  使用gsub()去掉末尾的方向字母，同时根据方向给数字加上正负号（N/E为正，S/W为负）：

  # 处理纬度：N=正，S=负
  dframe$Latitude_num <- as.numeric(gsub("[NSEW]$", "", dframe$Latitude_char))
  dframe$Latitude_num <- ifelse(grepl("S$", dframe$Latitude_char), -dframe$Latitude_num, dframe$Latitude_num)
  
  # 处理经度：E=正，W=负
  dframe$Longitude_num <- as.numeric(gsub("[NSEW]$", "", dframe$Longitude_char))
  dframe$Longitude_num <- ifelse(grepl("W$", dframe$Longitude_char), -dframe$Longitude_num, dframe$Longitude_num)
  

• 替换原列（可选）
  如果需要覆盖原列，直接把结果赋值回去即可：

  dframe$Latitude <- dframe$Latitude_num
  dframe$Longitude <- dframe$Longitude_num
  

如果是读取数据时不想自动生成因子，新版R可以在read.csv()里设置stringsAsFactors = FALSE，或者用readr包的read_csv()函数，它默认不会把字符串转成因子，能避免这类问题。

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