
在现代网络环境中,许多网站为了提供更丰富的用户体验,会采用 javascript 动态加载数据,而非将所有内容直接嵌入到初始的 html 页面中。这意味着传统的基于 html 解析的抓取工具(如 xml 或 rvest 针对静态内容)可能无法直接获取到这些动态生成的数据。当目标数据隐藏在 div 嵌套结构中,且其内容是由 javascript 在浏览器端渲染时,直接解析 html 源代码往往会发现所需信息缺失。
为了应对这一挑战,我们需要一种能够在 R 环境中模拟浏览器执行 JavaScript 的能力。V8 包正是为此而生,它允许 R 用户嵌入和运行 Google V8 JavaScript 引擎,从而可以执行网页中的 JavaScript 代码,并访问由这些脚本生成的数据。
以下步骤将详细演示如何使用 V8 包来抓取一个由 JavaScript 动态加载的国家列表数据。
首先,最关键的一步是确定目标数据是通过哪个 JavaScript 文件或哪段 JavaScript 代码加载的。这通常需要借助浏览器的开发者工具(如 Chrome 的 DevTools 或 Firefox 的 Developer Tools)。打开目标网页,切换到“Network”(网络)或“Sources”(源)选项卡,并刷新页面。仔细检查加载的 .js 文件,通常可以找到包含目标数据结构或数据加载逻辑的脚本。
在本例中,目标网站 https://www.fatf-gafi.org/countries/ 的国家列表数据并非直接在 HTML 中,而是由一个名为 country-data-multi-lang.js 的 JavaScript 文件提供。该文件通过 GET 请求获取,并包含一个名为 countries 的 JavaScript 变量,其中存储了所有国家的相关信息。
一旦识别出包含数据的 JavaScript 文件,下一步就是使用 R 获取其内容。httr 包是进行 HTTP 请求的理想选择。
library(httr) library(V8) library(dplyr) library(tidyr) # 目标 JavaScript 文件的 URL js_url <- 'https://www.fatf-gafi.org/media/fatf/fatfv20/js/country-data-multi-lang.js' # 使用 GET 请求获取 JavaScript 文件的内容 js_content <- content(GET(js_url), 'text', encoding = "UTF-8") # 打印部分内容以确认获取成功 # head(js_content)
content(GET(js_url), 'text') 会将 HTTP 响应的内容解析为纯文本字符串,这正是我们需要的 JavaScript 代码。
获取到 JavaScript 内容后,我们需要在 R 中创建一个 V8 引擎实例,并将 JavaScript 代码加载到该引擎中执行。
图书《网页制作与PHP语言应用》,由武汉大学出版社于2006出版,该书为普通高等院校网络传播系列教材之一,主要阐述了网页制作的基础知识与实践,以及PHP语言在网络传播中的应用。该书内容涉及:HTML基础知识、PHP的基本语法、PHP程序中的常用函数、数据库软件MySQL的基本操作、网页加密和身份验证、动态生成图像、MySQL与多媒体素材库的建设等。
447
# 创建一个 V8 上下文引擎 ct <- v8() # 在 V8 引擎中执行获取到的 JavaScript 内容 # 这将使得 JavaScript 文件中定义的变量(如 'countries')在 V8 引擎中可用 ct$eval(js_content)
ct <- v8() 创建了一个新的 V8 JavaScript 运行时环境。ct$eval(js_content) 则会将 js_content 字符串中的 JavaScript 代码在 ct 这个环境中执行。执行后,该 JavaScript 代码中定义的任何全局变量(例如本例中的 countries 变量)都将存在于 V8 引擎的内存中。
JavaScript 代码执行完毕后,我们可以使用 ct$get() 方法从 V8 引擎中提取特定的 JavaScript 变量的值。V8 包会自动尝试将 JavaScript 数据结构转换为 R 中对应的数据类型(如列表、数据框)。
# 从 V8 引擎中获取 'countries' 变量的值
# V8 会将其转换为 R 的嵌套数据框结构
raw_countries_data <- ct$get("countries")
# 打印数据结构以初步检查
# str(raw_countries_data)raw_countries_data 此时是一个嵌套的数据框,因为它原始的 JavaScript 结构中包含数组或对象。
提取到的数据通常需要进一步的清洗和整理,以符合分析需求。在本例中,groups 列是一个嵌套结构,需要使用 tidyr::unnest() 进行展平。同时,我们可能还需要选择特定列、过滤掉不完整或无关的行。
# 对嵌套数据进行展平,并选择所需列,过滤掉空行 final_countries_data <- raw_countries_data %>% unnest(cols = c(groups)) %>% # 展平 'groups' 列 select(c(1:2, 4:14, 16)) %>% # 选择所需的列,根据实际数据结构调整 filter(!is.na(name)) # 过滤掉 'name' 列为 NA 的行,通常是数据末尾的空行 # 查看最终处理后的数据 print(final_countries_data)
示例输出(部分):
# A tibble: 209 × 14 name code FATF APG CFATF EAG ESAAMLG GABAC GAFILAT GIABA MENAFATF <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> 1 Afghanist… AF "" "mbr" "" "obs" "" "" "" "" "" 2 Albania AL "" "" "" "" "" "" "" "" "" 3 Algeria DZ "" "" "" "" "" "" "mbr" "" "" 4 Andorra AD "" "" "" "" "" "" "" "" "" 5 Angola AO "" "" "" "" "mbr" "" "" "" "" 6 Anguilla AI "" "" "mbr" "" "" "" "" "" "" 7 Antigua a… AG "" "" "mbr" "" "" "" "" "" "" 8 Argentina AR "mbr" "non" "non" "non" "non" "" "mbr" "non" "non" 9 Armenia AM "" "" "" "obs" "" "" "" "" "" 10 Aruba Kin… AW "els" "" "mbr" "" "" "" "" "" "" # … with 200 more rows, and 3 more variables: MONEYVAL <chr>, # jurisdiction <chr>, id <chr>
通过 V8 包,R 用户获得了处理动态网页内容抓取的强大能力,极大地扩展了 R 在数据获取领域的应用范围。理解并掌握其工作原理和使用方法,将有助于高效地从现代网站中提取所需数据。
以上就是使用 R 语言抓取动态网页数据:V8 包的应用实践的详细内容,更多请关注php中文网其它相关文章!
每个人都需要一台速度更快、更稳定的 PC。随着时间的推移,垃圾文件、旧注册表数据和不必要的后台进程会占用资源并降低性能。幸运的是,许多工具可以让 Windows 保持平稳运行。
Copyright 2014-2025 https://www.php.cn/ All Rights Reserved | php.cn | 湘ICP备2023035733号