如何在R中存储IP地址并获取IP位置？求助解决相关报错

从你的报错信息和代码来看，问题根源有两个：

1. 你传入hostname_to_ip()的可能是带http/https前缀的完整URL，但这个函数需要的是纯主机名（比如example.com），直接传完整URL会导致解析失败，返回"Not resolved"。
2. 当IP解析失败返回"Not resolved"时，IP_location()无法处理这个无效的IP字符串，内部调用strsplit时触发了「非字符参数」的错误（大概率是函数对无效输入的类型处理逻辑有问题）。

同时，你的代码没有对解析结果做存储，我们一起把这个需求也解决掉。

步骤1：先从完整URL中提取纯主机名 #

首先要把带协议的URL转换成纯主机名，用rvest的url_parse()函数就能轻松实现：

library(iptools)
library(rvest)
library(readxl)
library(stringr)
library(IPtoCountry)
library(readr) # 用来导出结果

# 读取原始数据
Aircel_ltd <- read_excel("Urls/Aircel ltd.xlsx")

# 从URL中提取主机名
Aircel_ltd$hostname <- url_parse(Aircel_ltd$URL)$host

# 处理URL格式不正确的情况（比如没有http前缀的裸域名）
Aircel_ltd$hostname <- ifelse(is.na(Aircel_ltd$hostname), Aircel_ltd$URL, Aircel_ltd$hostname)

步骤2：循环处理+错误捕获+结果存储 #

我们初始化一个数据框来保存所有结果，同时添加错误捕获逻辑，避免因为单个解析失败导致整个循环中断：

# 初始化结果数据框，包含原始URL、主机名、IP地址、归属地
result_df <- data.frame(
  原始URL = Aircel_ltd$URL,
  主机名 = Aircel_ltd$hostname,
  IP地址 = character(nrow(Aircel_ltd)),
  归属地 = character(nrow(Aircel_ltd)),
  stringsAsFactors = FALSE
)

# 循环处理每个主机名
for (i in 1:nrow(Aircel_ltd)) {
  current_host <- Aircel_ltd$hostname[i]
  myIP <- hostname_to_ip(current_host)
  
  # 打印当前进度，方便调试
  cat("正在处理：", current_host, "→", myIP, "\n")
  
  # 分情况处理解析结果
  if (myIP != "Not resolved" && !is.na(myIP)) {
    result_df$IP地址[i] <- myIP
    # 用tryCatch捕获归属地查询的潜在错误
    tryCatch({
      ip_location <- IP_location(myIP)
      result_df$归属地[i] <- ip_location$country_name
    }, error = function(e) {
      result_df$归属地[i] <- "归属地查询失败"
      cat("查询", myIP, "归属地时出错：", e$message, "\n")
    })
  } else {
    result_df$IP地址[i] <- "解析失败"
    result_df$归属地[i] <- NA
  }
}

# 查看最终结果
print(result_df)

# 把结果导出到CSV文件（也可以用write_excel_csv2支持中文）
write_excel_csv2(result_df, "Aircel_IP归属地结果.csv")

核心优化点 #

• 主机名提取：确保传给解析函数的是正确格式的主机名，大幅降低解析失败的概率
• 错误捕获：用tryCatch()处理归属地查询时的异常，避免循环中途崩溃
• 结构化存储：用数据框统一管理所有结果，方便后续分析和导出
• 状态标记：对解析失败、归属地查询失败的情况做明确标记，便于排查问题

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