※ 引述《hanglong (小焕)》之铭言： : [问题类型]: : 程式谘询(我想用R 做某件事情，但是我不知道要怎麽用R 写出来) : 我想要抓台湾每次地震，固定地点的震度 : [软体熟悉度]: : 新手(没写过程式，R 是我的第一次) : [问题叙述]: : 以台湾时间09-11 05:24的地震为例，它的网址是： : https://scweb.cwb.gov.tw/zh-tw/earthquake/details/2019091105245636 : 以此网址为例，我可以撷取固定地点，例如 玉山 的资料 : 但是地震发生很多次，每次的网址都不一样，不可能每次都手动抓网址， : 再用R抓到玉山的震度。 : 我在地震资料的网址中，可以从原始码中看到每个地震的连结， : https://scweb.cwb.gov.tw/zh-tw/earthquake/data/ : 因此，如果有办法可以从这里撷取到每次地震的网址， : 应该就可以完成我的需求，但是这个网址的部分，不知道该如何撷取， : 在请版上的各位先进帮忙，谢谢。 : [程式范例]: : : 在https://scweb.cwb.gov.tw/zh-tw/earthquake/details/2019091105245636之下 : 利用以下程式，可以看到玉山的震度： : data <- : read_html("https://scweb.cwb.gov.tw/zh-tw/earthquake/details/2019091105245636") : ths <- xml_find_all(data, "//div/ul/li") : xml_text(ths)[substring(xml_text(ths),1,2) == "玉山"] : [1] "玉山 1" : 但在https://scweb.cwb.gov.tw/zh-tw/earthquake/data/之下， : 我想要用一样的方式，至少先撷取出网址的位置，结果什麽都没有... : 程式如下： : data <- : read_html("https://scweb.cwb.gov.tw/zh-tw/earthquake/data/") : ths <- xml_find_all(data, "//div/table/tbody/tr/td/a") : xml_text(ths) : character(0) : [环境叙述]: : : [关键字]: : 中央气象局 地震 看原PO好像还没解决问题... 我来补上我的做法 先上结果图: https://i.imgur.com/0PWmvmf.png 逻辑解释: 基本上观察一下network可以找到相关的id 它便是用ajaxhandler这个API去捞地震资料下来 所以我们可以在network里面看到这个网址: https://scweb.cwb.gov.tw/zh-tw/earthquake/ajaxhandler 然後Network里面会跟你说它是用POST，然後打了一个很长的form (下面POST的body) 只要乖乖照着打就可以拿到10笔了 然後只要把length那个参数改掉就能拿更多笔 (九月现在最多25笔) 然後改Search就能切换月份，讲完了.... 直接上程式 程式码: library(httr) library(pipeR) library(xml2) library(stringr) url <- "https://scweb.cwb.gov.tw/zh-tw/earthquake/ajaxhandler" referer_url <- "https://scweb.cwb.gov.tw/zh-tw/earthquake/data/" response_data <- POST(url, body = list("draw" = "1", "columns[0][data]" = "0", "columns[0][name]" = "EventNo", "columns[0][searchable]" = "false", "columns[0][orderable]" = "true", "columns[0][search][value]" = "", "columns[0][search][regex]" = "false", "columns[1][data]" = "1", "columns[1][name]" = "MaxIntensity", "columns[1][searchable]" = "true", "columns[1][orderable]" = "true", "columns[1][search][value]" = "", "columns[1][search][regex]" = "false", "columns[2][data]" = "2", "columns[2][name]" = "OriginTime", "columns[2][searchable]" = "true", "columns[2][orderable]" = "true", "columns[2][search][value]" = "", "columns[2][search][regex]" = "false", "columns[3][data]" = "3", "columns[3][name]" = "MagnitudeValue", "columns[3][searchable]" = "true", "columns[3][orderable]" = "true", "columns[3][search][value]" = "", "columns[3][search][regex]" = "false", "columns[4][data]" = "4", "columns[4][name]" = "Depth", "columns[4][searchable]" = "true", "columns[4][orderable]" = "true", "columns[4][search][value]" = "", "columns[4][search][regex]" = "false", "columns[5][data]" = "5", "columns[5][name]" = "Description", "columns[5][searchable]" = "true", "columns[5][orderable]" = "true", "columns[5][search][value]" = "", "columns[5][search][regex]" = "false", "columns[6][data]" = "6", "columns[6][name]" = "Description", "columns[6][searchable]" = "true", "columns[6][orderable]" = "true", "columns[6][search][value]" = "", "columns[6][search][regex]" = "false", "order[0][column]" = "2", "order[0][dir]" = "desc", "start" = "0", "length" = "10", "search[value]" = "", "search[regex]" = "false", "Search" = "2019年9月", "txtSDate" = "", "txtEDate" = "", "txtSscale" = "", "txtEscale" = "", "txtSdepth" = "", "txtEdepth" = "", "txtLonS" = "", "txtLonE" = "", "txtLatS" = "", "txtLatE" = "", "ddlCity" = "", "ddlCitySta" = "", "txtIntensityB" = "", "txtIntensityE" = "", "txtLon" = "", "txtLat" = "", "txtKM" = "", "ddlStationName" = ""), encode = "form", add_headers(Referer = referer_url)) %>>% content data_ids <- sapply(response_data$data, `[[`, 1L) details_url <- "https://scweb.cwb.gov.tw/zh-tw/earthquake/details/" detail_urls <- paste0(details_url, data_ids) eq_details <- lapply(detail_urls, function(url){ GET(url) %>>% content %>>% xml_find_all("//ul[@class='eqResultBoxRight BulSet BkeyinList']") %>>% xml_find_all("li") %>>% xml_text %>>% str_replace_all("[\\s]", "") %>>% `[`(2L:6L) }) 有任何问题再推文问吧 -- --

※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 119.14.59.166 (台湾) ※ 文章网址: https://webptt.com/cn.aspx?n=bbs/R_Language/M.1569512637.A.C38.html