webスクレイピング用のライブラリrvestを使って、
取引所FXなどを展開する東京金融取引所のホームページから
清算価格を取得してみたいと思います。
取引所のホームページからは様々な取引データが取得できるため、
金融の分析などに使用できることも多いと思います。
#webスクレイピングライブラリ library(rvest) #ファイル出力用 library(readr) #東京金融取引所のホームページを取得します html <- read_html("https://www.tfx.co.jp/") #divで、クラスが「chart_cel_03」のタグを取得します div <- html_nodes(html,"div.chart_cel_03") #テキストを取得します text <- html_text(div) #１６番目がドル円の清算価格です price <- as.numeric(text[16]) #priceテキストに追記して出力していきます write_lines(price,"price.txt",append=T)
price.txtに昨日の清算価格が出力されました。
110.095
