#前処理R ダウンロード

Rによるオープンデータ前処理勉強会（医療データ） NDBオープンデータのファイルを大量ダウンロードする西田典充

今回お話させていただく内容 →NDBオープンデータアプリの「データ取得」の話です！

NDBオープンデータアプリの作成手順厚生労働省 NDBオープンデータ HP R URL情報エクセルファイル Tidyデータアプリ用データダウンロード
データクリーニングデータ加工 Shinyアプリケーション

NDBオープンデータアプリの作成手順厚生労働省 NDBオープンデータ HP R Tidyデータアプリ用データデータクリーニングデータ加工 Shinyアプリケーション
URL情報エクセルファイルダウンロード

スクリプトファイルの置き場所 https://github.com/ironwest/ndb_open_data

URL情報エクセルファイルダウンロード 52行！

read_html(<URL>)で、「xml_node」というオブジェクトが取得できます。

xml_node のイメージ

xml_nodeのイメージ

<HTML> <body> <div>内容</div> <div>内容</div> <div>内容</div> <div> <div> ・・・ <li>・・・ <a
href="....../00423234.xlsx">初再診料_性年齢別算定回数</a> </div> </div> </body> </HTML>

<a href="....../00423234.xlsx">初再診料_性年齢別算定回数</a> <a href="リンク先のアドレス">表示したいリンクの文字</a>

html_nodes(<xml_node>, "<目的のタグ>")

html_nodes(<xml_node>, "<目的のタグ>") html_text(<対象とするノードセット>) 対象とするノードセット

html_nodes(<xml_node>, "<目的のタグ>") html_attr(<対象とするノードセット> , "href") 対象とするノードセット

a b 1 A 2 B 3 C map2(a,b,func_example) func_example(1,A)
func_example(2,B) func_example(3,C) fe_res suji moji 1 A suji moji 1 B 2 B suji moji 1 C 2 C 3 C

保存したファイル手作業で直したファイル

URL情報エクセルファイルダウンロード 62行！

エクセルファイルの保存先ディレクトリのパスを kaiとh3タグから作成作成したパスが存在するなら何もせず、存在しないならそのディレクトリを作成する次にdata変数にあるh4タグの内容を一意な値で取り出す data/ndb/<kai>/<h3>/<h4>という名前のディレクトリがあったら何もしない。なければ作成 dl_to列をdata tibbleに追加。（内容は保存するエクセルファイルのパス）

ありがとうございました！

#前処理R ダウンロード

#前処理R ダウンロード

ironwest

Other Decks in Programming

Featured

Transcript

Rによるオープンデータ前処理勉強会（医療データ） NDBオープンデータのファイルを大量ダウンロードする西田典充

今回お話させていただく内容 →NDBオープンデータアプリの「データ取得」の話です！

NDBオープンデータアプリの作成手順厚生労働省 NDBオープンデータ HP R URL情報エクセルファイル Tidyデータアプリ用データダウンロード

NDBオープンデータアプリの作成手順厚生労働省 NDBオープンデータ HP R Tidyデータアプリ用データデータクリーニングデータ加工 Shinyアプリケーション

スクリプトファイルの置き場所 https://github.com/ironwest/ndb_open_data

URL情報エクセルファイルダウンロード 52行！

read_html(<URL>)で、「xml_node」というオブジェクトが取得できます。

xml_node のイメージ

xml_nodeのイメージ

<HTML> <body> <div>内容</div> <div>内容</div> <div>内容</div> <div> <div> ・・・ <li>・・・ <a

<a href="....../00423234.xlsx">初再診料_性年齢別算定回数</a> <a href="リンク先のアドレス">表示したいリンクの文字</a>

html_nodes(<xml_node>, "<目的のタグ>")

html_nodes(<xml_node>, "<目的のタグ>") html_text(<対象とするノードセット>) 対象とするノードセット

html_nodes(<xml_node>, "<目的のタグ>") html_attr(<対象とするノードセット> , "href") 対象とするノードセット

a b 1 A 2 B 3 C map2(a,b,func_example) func_example(1,A)

保存したファイル手作業で直したファイル

URL情報エクセルファイルダウンロード 62行！

ありがとうございました！