Upgrade to PRO for Only $50/Year—Limited-Time Offer! 🔥

#前処理R ダウンロード

Avatar for ironwest ironwest
July 27, 2021
Programming
1
770

#前処理R ダウンロード

Avatar for ironwest

ironwest

July 27, 2021
Tweet

Other Decks in Programming

See All in Programming
公共交通オープンデータ × モバイルUX 複雑な運行情報を 『直感』に変換する技術
Avatar for Tsubasa SEKIGUCHI tinykitten
PRO
0
160
フルサイクルエンジニアリングをAI Agentで全自動化したい 〜構想と現在地〜
Avatar for Kaito Minatoya kamina_zzz
0
290
メルカリのリーダビリティチームが取り組む、AI時代のスケーラブルな品質文化
Avatar for osari.k cloverrose
2
380
「コードは上から下へ読むのが一番」と思った時に、思い出してほしい話
Avatar for HideyukiKitao panda728
PRO
39
26k
Grafana：建立系統全知視角的捷徑
Avatar for Blueswen blueswen
0
220
PC-6001でPSG曲を鳴らすまでを全部NetBSD上の Makefile に押し込んでみた / osc2025hiroshima
Avatar for Izumi Tsutsui tsutsui
0
180
愛される翻訳の秘訣
Avatar for Kishikawa Katsumi kishikawakatsumi
3
350
クラウドに依存しないS3を使った開発術
Avatar for しめさば simesaba80
0
160
Patterns of Patterns
Avatar for Denys Poltorak denyspoltorak
0
340
20251212 AI 時代的 Legacy Code 營救術 2025 WebConf
Avatar for mouson(墨嗓) mouson
0
210
AIの誤りが許されない業務システムにおいて“信頼されるAI” を目指す / building-trusted-ai-systems
Avatar for Yuya Matsumura yuya4
6
4k
バックエンドエンジニアによる Amebaブログ K8s 基盤への CronJobの導入・運用経験
Avatar for suna-big sunabig
0
170

Featured

See All Featured
svc-hook: hooking system calls on ARM64 by binary rewriting
Avatar for Akira Moroo retrage
1
28
技術選定の審美眼（2025年版） / Understanding the Spiral of Technologies 2025 edition
Avatar for Takuto Wada twada
PRO
115
93k
Effective software design: The role of men in debugging patriarchy in IT @ Voxxed Days AMS
Avatar for Kenny Baas-Schwegler baasie
0
170
Skip the Path - Find Your Career Trail
Avatar for Mark Kilby mkilby
0
27
A brief & incomplete history of 
UX Design for the World Wide Web: 1989–2019
Avatar for Jason CranfordTeague jct
1
260
Art, The Web, and Tiny UX
Avatar for Lynn Fisher lynnandtonic
304
21k
Max Prin - Stacking Signals: How International SEO Comes Together (And Falls Apart)
Avatar for Tech SEO Connect techseoconnect
PRO
0
49
[RailsConf 2023] Rails as a piece of cake
Avatar for Vladimir Dementyev palkan
58
6.2k
How to Grow Your eCommerce with AI & Automation
Avatar for Katarina Dahlin katarinadahlin
PRO
0
75
The SEO Collaboration Effect
Avatar for Kristina Bergwall kristinabergwall1
0
310
[RailsConf 2023 Opening Keynote] The Magic of Rails
Avatar for Eileen M. Uchitelle eileencodes
31
9.8k
A designer walks into a library…
Avatar for Paul Jervis Heath pauljervisheath
210
24k

Transcript

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

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

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

    データクリーニング データ加工 Shinyアプリケーション

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

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

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

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

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

  8. xml_node のイメージ

  9. xml_nodeのイメージ

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

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

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

  12. None
  13. None
  14. None

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

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

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

  18. None
  19. None
  20. None
  21. None
  22. None
  23. None

  24. 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
  25. None
  26. None
  27. None
  28. None
  29. None
  30. None

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

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

  33. None
  34. None
  35. None
  36. None

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

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