作者hanglong (小焕)
看板R_Language
标题[问题] 抓取气象局地震资料
时间Wed Sep 11 11:46:02 2019
[问题类型]:
程式谘询(我想用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)
[环境叙述]:
请提供 sessionInfo() 的输出结果，
R version 3.6.1 (2019-07-05)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows 10 x64 (build 18362)
Matrix products: default
locale:
[1] LC_COLLATE=Chinese (Traditional)_Taiwan.950 LC_CTYPE=Chinese
(Traditional)_Taiwan.950 LC_MONETARY=Chinese (Traditional)_Taiwan.950
LC_NUMERIC=C
[5] LC_TIME=Chinese (Traditional)_Taiwan.950
attached base packages:
[1] stats graphics grDevices utils datasets methods base
other attached packages:
[1] xml2_1.2.2 curl_3.3 swirl_101.5.9
loaded via a namespace (and not attached):
[1] Rcpp_1.0.2 pvm_0.4.2.4 later_0.8.0 digest_0.6.20
bitops_1.0-6 R6_2.4.0 jsonlite_1.6 magrittr_1.5 httr_1.4.0
rlang_0.4.0 stringi_1.4.3
[12] promises_1.0.1 testthat_2.1.1 tools_3.6.1 stringr_1.4.0
RCurl_1.95-4.12 httpuv_1.5.1 yaml_2.2.0 compiler_3.6.1
[关键字]:
中央气象局 地震
--
爱狗人士：打狗的人都去死啦!!!!!(#‵′)凸
高雄人：靠北喔!!!!!!!!!!
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 125.227.245.73 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/R_Language/M.1568173572.A.E8F.html
不好意思，我在network有找到每个的网址，但不晓得这些网址可否抓下来？
这样我才有办法利用这些网址，加上上方的程式码，抓到所需要的资料。
3F：推 cywhale: 气象局的Open API做得不错，建议可用它捞资料 09/11 12:57
不好意思，我有申请会员，也有试着去抓Open API的资料，但是一直出现错误
所以依然没有办法看到资料。
※ 编辑: hanglong (125.227.245.73 台湾), 09/11/2019 15:02:07
5F：→ andrew43: 在表格中的<tr>的id就能知道各网址尾巴的代码了喔 09/11 15:26
6F：→ andrew43: 而你用<a>去找，那东西本来就不存在，自然找不到。 09/11 15:26
7F：→ andrew43: 更正，表格是动态生成的，直接抓会抓不到。 09/11 15:35
8F：→ andrew43: 要捞动态网页可以用RSelenium之类的，看看上一篇。 09/11 15:38
10F：→ cywhale: 试试看，你要换成你的token ?Authorization= 这里 09/11 16:00
感谢您提供的资料 内容非常的详细 不过看起来中央气象局api的资料
只能抓到最近的一次地震资料 我想要看前面几次的地震资料 就找不到了QQ
※ 编辑: hanglong (125.227.245.73 台湾), 09/11/2019 16:52:27