前処理をRでしたい! ~DPCデータに挑戦!~

今後予定している前処理勉強会のスライドです。
まだ完成しておらず、内容は事前連絡なしに変更する、消える可能性があります。

Transcript

1. લॲཧΛRͰ͍ͨ͠ʂ 
 DPCσʔλʹ௅ઓʂ 1
2. ීஈ͸පӃͰཧֶྍ๏࢜Λ͍ͯ͠·͢ 
 ࠓ೥౓͔Βۀ຿ͷ൒෼͕σʔλ෼ੳʹͳΓ·ͨ͠ ೥ ҩྍ౷ܭͷಠֶΛ࢝ΊΔ
   &;3ʢ3ίϚϯμʔʣͱ͍͏ҩྍ౷ܭ༻ͷ3ύοέʔδΛ࢖͏Α͏ʹͳΔ ೥ 3ͱσʔλαΠΤϯεʹڵຯΛ࣋ͭΑ͏ʹͳΔ
   .00$ͰσʔλαΠΤϯεͷίʔε )BSWBSE9
   
   %BUB
   4DJFODF Λडߨ͢Δ
   HHQMPUΛֶΜͩϲ݄ޙͷֶձͰແཧ໼ཧHHQMPUͰάϥϑΛ࡞ͬͨ ೥ QZUIPOʹ΋खΛग़͢
   ౦ژେֶάϩʔόϧফඅΠϯςϦδΣϯεد෇ߨ࠲Λडߨ
   ڞಉݚڀͰQZUIPOΛ࢖͏ ࢲʹ͍ͭͯ 2
3. 1SPGFTTJPOBM
   $FSJ fi DBUF
   JO
   %BUB
   4DJFODF 3
4. ͖͔͚ͬ 4
5. "HFOEB %1$ͷσʔλΛ3ͰಡΈࠐΊΔܗʹม͍͖͑ͯͳ͕Βɺ 
 લॲཧΛମײͯ͠΋Β͏
   5 ର৅ ໨ࢦ͍ͨ͜͠ͱ 3࢖ͬͨ͜ͱͳ͍͚Ͳڵຯ͋Δํ
   3Ͱҩྍ౷ܭ͚ͩͨ͜͠ͱ͋Δํ 3ͬͯ౷ܭ͚ͩ͡Όͳ͍͜ͱΛମײ &YDFMͰσʔλΛ੔ܗͯ͋͠Ε͹
   EQMZS΍HHQMPU͕࢖͑Δ UJEZSɺQVSSSɺTUSJOHSͷੌ͞Λମײ طʹલॲཧͯ͠Δํ ΞυόΠε͓ئ͍͠·͢ʂʂʂʂʂʂʂ
6. ͓͜ͱΘΓ ˔͜Ε͕ϕετϓϥΫςΟεͰ͸͋Γ·ͤΜɻ
   ˔ਓͰಠֶ͍ͯ͠·͢ɻݱ࣌఺Ͱ͸͜ͷఔ౓Ͱ͢ɻ 
 ɹ·ͩ·ͩஓ੿ͳίʔυ΋ଟ͍ͷͰΞυόΠε͍͖͍ͨͩͨͰ͢͠ɺ 
 ɹͲͷఔ౓ͷ࣮ྗ͔ʢશવμϝ ࠷௿ݶ͸ΫϦΞ ଈઓྗʹͳΔ
   PS
   OPUʣ΋ 
 ɹϑΟʔυόοΫ͍͚ͨͩΔͱ޾͍Ͱ͢ʂ 6
7. ࢖͏σʔλ 7
8. ୀӃױऀௐࠪ 8 https://www.mhlw.go.jp/stf/shingi2/0000196043_00003.html
9. ख࡞ۀͰͰ͖Δʁ 9 ෳ਺ྻ໊ ࡏӃ೔਺
   ͍Βͳ͍ ϋΠϑϯ
   ͍Βͳ͍ ೥౓͕มΘΔͱ
   ૿͑ͨΓݮͬͨΓ͢Δ ೥౓͕มΘΔͱ
   පӃ໊͕มΘΔ͜ͱ͕͋Δ ೥౓͕มΘΔͱ
   ප໊มΘΔ͜ͱ͕͋Δ ԣྻɺॎߦ
   ºʢ.%$ͷ਺ʣ
   º೥ؒ ʢ༌݂Ҏ֎ͷ࠶ܝʣ
   Λআ͍ͨ਺͕߹ܭ ೥౓͕มΘΔͱ
   ൪߸ҧ͏͜ͱ͕͋Δ
   ௨൪ʹલͷ೥ͷࠂࣔ൪߸
10. ͜ΕͳΒ෼ੳʹ͔͚ͨΓάϥϑ͕࡞ΕΔ 10 ೥౓ͰมΘΔ൪߸Λ
    ἧ͑ͨ ࢢொଜ໊෇͚ͨ ෳ਺೥Λͭͳ͛ͨ ප໊Ͱ΋ݕࡧͰ͖Δ ਓ਺͚ͩʹͨ͠
11. ษڧ͢Δʹ͸Կ͔Β࢝ΊͨΒʁ ͜Ε͔͠উͨΜ 11 Ӊ஦ຊ
12. ࠓճͷલॲཧ ˔UJEZʢ੔વσʔλʣʹ͢Δ
    ˔จࣈྻॲཧ
    ˔܁Γฦ͠ॲཧʹରԠ͢Δ
    ˔ؔ਺Ͱ·ͱΊΔ 12
13. 3ͱ1ZUIPO 4"4ͷେ͖ͳҧ͍ 13 3
    UJEZWFSTF ྻ໊͸ͭ
    UJEZʢ੔વσʔλʣʹ͢Ε͹উͪ 1ZUIPO
    4"4 ෳ਺ྻ໊ʹରԠ
14. UJEZʢ੔વσʔλʣͱ͸ʁ
    8JLJQFEJB༷ΑΓ
    IUUQTKBXJLJQFEJBPSHXJLJ5JEZ@EBUB 14
15. UJEZʹ͢ΔͨΊͷઓ͍ 15 /PU
    5JEZ 5JEZ
16. ࠓճͷલॲཧ ˔UJEZʢ੔વσʔλʣʹ͢ΔɿUJEZS
    ˔จࣈྻॲཧɿTUSJOHS
    ˔܁Γฦ͠ॲཧʹରԠ͢ΔɿQVSSS
    ˔ؔ਺Ͱ·ͱΊΔɿGVODUJPO
    ˔͚ͬͭ͘ΔɿKPJO 16
17. จࣈྻॲཧɿTUSJOHS 17 TUSJOHS ୅දతͳؔ਺ આ໌ ݕࡧ TUS@EFUFDU ͋Δจࣈྻؚ͕·Ε͍ͯͨΒ536& நग़ TUS@FYUSBDU
    TUS@FYUSBDU@BMM
    TUS@TVC ͋ΔύλʔϯʹҰக͢ΔจࣈྻΛநग़
    ࠷ॳʢ࠷ޙʣ˓จࣈΛநग़ ஔ͖׵͑ TUS@SFQMBDF
    TUS@SFQMBDF@BMM ύλʔϯʹϚονͨ͠ՕॴΛஔ׵ Ճ޻ TUS@D จࣈྻΛ͚ͬͭ͘Δ https://kazutan.github.io/kazutanR/stringr-intro.html ͕ৄ͍͠Ͱ͢ʂ
18. ਖ਼نදݱ ྫʣz fi MFYMTYzͱ͍͏ϑΝΠϧ໊͔Β৭ʑऔΓग़͍ͨ͠
    18
19. ਖ਼نදݱ 19 TUS@FYUSBDU  fi MFYMTY <>
    lz TUS@FYUSBDU@BMM  fi MFYMTY <>
    lz
    lz
    lz
    lz TUS@FYUSBDU@BMM  fi MFYMTY <>\^
    lz TUS@FYUSBDU@BMM  fi MFYMTY <aaE>\^
    lz TUS@FYUSBDU  fi MFYMTY ?<B[";>
    lGz TUS@FYUSBDU  fi MFYMTY ?<B[";> 
    l fi MFz TUS@FYUSBDU  fi MFYMTY <aa%>
    lYz TUS@FYUSBDU l fi MFYMTY <aa%> 
    lYMTYz TUS@FYUSBDU l fi MFYMTYz z<> z lYMTYz l fi MFYMTYͷͲ͜Λ੾Γग़͔͢ʁ
20. ˔UJEZʢ੔વσʔλʣʹ͢Δ
    ˔จࣈྻॲཧ
    ˔܁Γฦ͠ॲཧʹରԠ͢Δ
    ˔ؔ਺Ͱ·ͱΊΔ 20
21. 21 ྫʣ&YDFMͷෳ਺λϒΛҰؾʹಡΈࠐΉ
    ܁Γฦ͠
    QVSSS
22. ܁Γฦ͠ɿQVSSS 22
23. ͚ͬͭ͘ΔɿEQMZSKPJO 23
24. ˔UJEZʢ੔વσʔλʣʹ͢Δ
    ˔܁Γฦ͠ॲཧʹରԠ͢Δ
    ˔จࣈྻॲཧ
    ˔ؔ਺Ͱ·ͱΊΔ 24
25. ؔ਺Ͱ·ͱΊΔϝϦοτͱϙΠϯτ ˔ෆཁͳม਺͕ݮΔ
    ˔ଞͷϑΝΠϧͰ΋ར༻Ͱ͖ΔɻNBQ͕࢖͍΍͘͢ͳΔɻ 25 ؔ਺಺Ͱ࢖ΘΕΔม਺͸ ࢒Βͳ͍ ϑΥϧμ಺ʹ͋ΔϑΝΠϧΛ ·ͱΊͯಡΈࠐΊΔ
26. ؔ਺Ͱ·ͱΊΔϝϦοτͱϙΠϯτ ˔͋Δ೥্͕ख͍͔ͬͨ͘Βͱ͍ͬͯҧ͏ࡀͰ΋্ख͘ߦ͔͘͸֬ೝඞཁ
    ɹɾYMT͕YMTYʹมΘͬͯ΋ରԠͰ͖Δίʔυ 
 ɹɾΤϥʔ͕ग़ͨΒͦͷ౎౓௚ؔ͠਺ʹܧ͗଍͍ͯ͘͠
    ˔ݩͷσʔλΛมߋͤ͞ͳ͍
    ɹɾݩͷσʔλ͕มߋ͞ΕΔͱ܁Γฦ͠࢖͏ͱΤϥʔ͕ग़Δ͜ͱ͕͋Δ 26
27. લॲཧͰײͨ͜͡ͱ ˔σʔλͷμ΢ϯϩʔυ΋3Ͱͨ͠ํ͕؅ཧ͠΍͍͢
    ˔ෳ਺ྻ໊ͷॲཧ
    ˔σʔλͷॲཧ
    ˔΍ͬͯΈͨޙͷ֬ೝ࡞ۀେࣄ 27
28. ϑΝΠϧͷμ΢ϯϩʔυ μ΢ϯϩʔυͷίʔυ΋͋Ε͹࠶ݱ͠΍͍͢
    EPXOMPBE fi MF lVSMz zϑΝΠϧ໊z
    ɾ΋͠ผϑΥϧμʹμ΢ϯϩʔυ͢Δ৔߹͸ϑΝΠϧ໊ʹ৔ॴ΋ࢦఆ
    ɾHFUXE Ͱ࡞ۀϑΥϧμͷ֬ೝ
    ɾQBTUF ͰϑΥϧμ໊ͱϑΝΠϧ໊Λ͚ͬͭ͘Δͷ΋͋Γ
    28
29. ۩ମྫ 29
30. ࠂࣔ൪߸Λଗ͑ΔͨΊͷલॲཧ 30
31. ྻ໊ͷॲཧ ՝୊
    ɹ˔೥౓Ͱ໊લ͕ҧ͏͜ͱ͕͋Δ 
 ɹ˔ۭཝ͕͋Δ 
 ɹ˔ྻ໊ͷ࠷ॳ͕਺ࣈɿAA
    ʢόοΫΫΥʔλʔʣͰڬΉඞཁ͕ग़Δ 
 ɹ˔εϖʔε΍ه߸ؚ͕·Ε͍ͯΔ
    ରࡦ
    ɹ˔ྻ਺͕গͳ͚Ε͹3Ͱ௚઀ॻ͖ࠐΉ 
 ɹ˔ઌʹྻͷσʔλ͚ͩಡΈࠐΈ3Ͱॲཧ͢Δ 
 ɹ˔&YDFMͰϚελʔσʔλΛ࡞Δ 31
32. ɾཉ͍͠σʔλ͸͚ͩ͜͜ 
 ɾ˞ͷϚʔΫ͍Βͳ͍ 
 ɾ೥౓ͷྻΛ଍͍ͨ͠ 
 32 %&.0ɿ࣮ࡍʹಡΈࠐΜͰΈΔ ▶︎ ͜Ε͚ͩͳΒ௚઀ίʔυ͔͚ͦ͏
33. ೥౓Ͱྻ໊͕มΘ͍ͬͯͳ͍͔νΣοΫ 33
34. ࡞ͬͨ΋ͷΛؔ਺ʹ͢Δ 34 ଓ͖͸σϞͰʂ
35. ׬੒ʂ 35
36. ୀӃױऀௐࠪ 36 https://www.mhlw.go.jp/stf/shingi2/0000196043_00003.html
37. ·ͣ͸ྻ໊͔Β 37 ෳ਺ྻ໊ ࡏӃ೔਺
    ͍Βͳ͍ ϋΠϑϯ
    ͍Βͳ͍ ೥౓͕มΘΔͱ
    ૿͑ͨΓݮͬͨΓ͢Δ ೥౓͕มΘΔͱ
    පӃ໊͕มΘΔ͜ͱ͕͋Δ ೥౓͕มΘΔͱ
    ප໊มΘΔ͜ͱ͕͋Δ ԣྻɺॎߦ
    ºʢ.%$ͷ਺ʣ
    º೥ؒ ʢ༌݂Ҏ֎ͷ࠶ܝʣ
    Λআ͍ͨ਺͕߹ܭ ೥౓͕มΘΔͱ
    ൪߸ҧ͏͜ͱ͕͋Δ
    ௨൪ʹલͷ೥ͷࠂࣔ൪߸
38. ࡞ઓ ˔ྻ໊ͷΈΛಡΈࠐΈॎʹ͢Δ
    38
39. ࡞ઓ ˔UJUZS fi MM Ͱ/"Λ্ͷ஋ͰຒΊΔ 39
40. ࡞ઓ ˔UJEZSVOJUF Ͱෳ਺ྻΛͭʹ߹ମͤ͞Δ 40 ৽͍͠ྻ໊ શ෦ͷྻ ϕΫτϧʹม׵
41. ࡞ઓ ˔TUS@SFQMBSF@BMMͰ/"΍ه߸Λফ͢ 41 ޷ΈͰ͜ΕΒͷه߸΍εϖʔεΛফ͢͜ͱ΋Մೳ
    ࠓճ͸ɻͱεϖʔεΛফͨ͠
42. ؔ਺ʹ͢Δ 42
43. දه༳Εͷ֬ೝ 43 ࡏӃ೔਺
    ͍Βͳ͍ ϋΠϑϯ
    ͍Βͳ͍ ೥౓͕มΘΔͱ
    ૿͑ͨΓݮͬͨΓ͢Δ ೥౓͕มΘΔͱ
    පӃ໊͕มΘΔ͜ͱ͕͋Δ ೥౓͕มΘΔͱ
    ප໊มΘΔ͜ͱ͕͋Δ ԣྻɺॎߦ
    ºʢ.%$ͷ਺ʣ
    º೥ؒ ʢ༌݂Ҏ֎ͷ࠶ܝʣ
    Λআ͍ͨ਺͕߹ܭ ೥౓͕มΘΔͱ
    ൪߸ҧ͏͜ͱ͕͋Δ
    ௨൪ʹલͷ೥ͷࠂࣔ൪߸
44. දه༳ΕΛ୳͢ ˔֤೥ͷྻ໊Λऔಘ
    ˔TFUEJ ff Ͱยํʹ͔͠ͳ͍΋ͷΛ୳͢
    TFUEJ ff " # 
 ▶︎ "ʹ͔͠ແ͍΋ͷΛநग़
    TFUEJ ff # " 
 ▶︎ #ʹ͔͠ແ͍΋ͷΛநग़ 44
45. 45 ೥ͱ೥ɺ೥ͱ೥͸ಉ͡ ͱʹҧ͍͕͋Ε͹දه༳ΕͷՄೳੑ ΍͸දه༳ΕͰ͸ͳ͘
    ͦ΋ͦ΋ྻ਺͕ҧ͏͜ͱΛҙຯ͍ͯ͠Δ
46. ͜ΕͰσʔλ͕ಡΈࠐΊΔ 46
47. ·ͣ͸ྻ໊͔Β 47 ࡏӃ೔਺
    ͍Βͳ͍ ϋΠϑϯ
    ͍Βͳ͍ ೥౓͕มΘΔͱ
    පӃ໊͕มΘΔ͜ͱ͕͋Δ ԣྻɺॎߦ
    ºʢ.%$ͷ਺ʣ
    º೥ؒ ʢ༌݂Ҏ֎ͷ࠶ܝʣ
    Λআ͍ͨ਺͕߹ܭ ೥౓͕มΘΔͱ
    ൪߸ҧ͏͜ͱ͕͋Δ
    ௨൪ʹલͷ೥ͷࠂࣔ൪߸ ೥౓͕มΘΔͱ
    ප໊มΘΔ͜ͱ͕͋Δ ೥౓͕มΘΔͱ
    ૿͑ͨΓݮͬͨΓ͢Δ
48. ࡏӃ೔਺ͱʢ࠶ܝʣͷྻ͸͍Βͳ͍ ˔TFMFDU ͱDPOUBJOT ͰߜΓࠐΊΔ 48
49. ϋΠϑϯΛফ͢ ▶︎ ਺஋σʔλʹม׵ 49 ϋΠϑϯ
    ͍Βͳ͍ ೥౓͕มΘΔͱ
    පӃ໊͕มΘΔ͜ͱ͕͋Δ ԣྻɺॎߦ
    ºʢ.%$ͷ਺ʣ
    º೥ؒ ೥౓͕มΘΔͱ
    ൪߸ҧ͏͜ͱ͕͋Δ
    ௨൪ʹલͷ೥ͷࠂࣔ൪߸ ೥౓͕มΘΔͱ
    ૿͑ͨΓݮͬͨΓ͢Δ ೥౓͕มΘΔͱ
    ප໊มΘΔ͜ͱ͕͋Δ
50. SFBESQBSTF@OVNCFS ˔NVUBUF BDSPTT બͼ͍ͨྻ
    ؔ਺ Λ࢖͏ 50
51. /"Λʹม׵͢Δ ˔ؔ਺ʹҾ਺͕͋Δ৔߹΍ෳ਺ͷؔ਺Λඞཁͱ͢Δ৔߹ 
 ɹNVUBUF BDSPTT બͼ͍ͨྻ
    dؔ਺ Λ࢖͏ 51
52. ͜͜·ͰΛؔ਺ʹ͢Δ 52
53. ࠂࣔ൪߸͕೥౓Ͱҧ͏໰୊ 53 ೥౓͕มΘΔͱ
    පӃ໊͕มΘΔ͜ͱ͕͋Δ ԣྻɺॎߦ
    ºʢ.%$ͷ਺ʣ
    º೥ؒ ೥౓͕มΘΔͱ
    ൪߸ҧ͏͜ͱ͕͋Δ
    ௨൪ʹલͷ೥ͷࠂࣔ൪߸ ೥౓͕มΘΔͱ
    ૿͑ͨΓݮͬͨΓ͢Δ ೥౓͕มΘΔͱ
    ප໊มΘΔ͜ͱ͕͋Δ
54. ࢪઃ֓ཁදͱKPJO͢Δʂ 54
55. ͜͜·ͰͰ͖Δͱ܁Γฦ͢͜ͱ͕Ͱ͖Δ 55 ԣྻɺॎߦ
    ºʢ.%$ͷ਺ʣ
    º೥ؒ ೥౓͕มΘΔͱ
    ૿͑ͨΓݮͬͨΓ͢Δ ೥౓͕มΘΔͱ
    ප໊มΘΔ͜ͱ͕͋Δ
56. 56 ྫʣ&YDFMͷෳ਺λϒΛҰؾʹಡΈࠐΉ
    ܁Γฦ͠
    QVSSS
57. NBQؔ਺Λ࢖ͬͯ܁Γฦ͢ ˔ϑΥϧμ಺ʹ͋ΔΤΫηϧϑΝΠϧΛ·ͱΊͯಡΈࠐΉ
    -JTU fi MFT ϑΥϧμ໊ 57 “xls”ͱ͍͏จࣈ͕ೖ͍ͬͯΕ͹TRUE
58. ྻ਺ҧ͏໰୊ 58 ೥౓͕มΘΔͱ
    ૿͑ͨΓݮͬͨΓ͢Δ ೥౓͕มΘΔͱ
    ප໊มΘΔ͜ͱ͕͋Δ
59. 59
    8JLJQFEJB༷ΑΓ
    IUUQTKBXJLJQFEJBPSHXJLJ5JEZ@EBUB Ͱ΋UJEZͳΒؔ܎ͳ͍ʂ
60. Ͱ΋UJEZͳΒؔ܎ͳ͍ʂ ˔ྻ਺͕૿͑Δ͚ͩ 60
61. UJEZSQJWPU@MPOHFSͰॎ࣋ͪσʔλʹม׵ QJWPU@MPOHFS 
 ɹDPMT
    
    ·ͱΊ͍ͨྻ 
 ɹOBNFT@UP
    
    ·ͱ·ͬͨޙʢྻ໊ʣͷྻ໊ 
 ɹWBMVFT@UP
    
    ·ͱ·ͬͨޙʢ஋ʣͷྻ໊ 61
62. QJWPU@MPOHFSͷ
    OBNFT@TFQ OBNFT@TFQͰྻΛ෼ׂ͢Δ͜ͱ͕Ͱ͖Δ 62
63. 5JEZ 63
64. දه༳ΕΛ௚͢ 64 ೥౓͕มΘΔͱ
    ප໊มΘΔ͜ͱ͕͋Δ
65. දه༳ΕΛ௚͢ ˔UJEZʹͳ͔ͬͨΒNVUBUFͱJGFMTFͰ͙͢ʹ௚ͤΔ 65
66. 66 ྫʣ&YDFMͷෳ਺λϒΛҰؾʹಡΈࠐΉ
    ܁Γฦ͠
    QVSSS
67. ࠷ޙʹશ෦ͷϑΝΠϧΛಡΈࠐΉ 67
68. ͓ർΕ༷Ͱͨ͠ʂʂʂ ྻߦͷσʔλʂʂ 68
69. ࠓճ࿩ͯ͠ͳ͍͜ͱ ˔ࢢொଜ൪߸͸૯຿লͷσʔλ͔Βಉ͡Α͏ʹલॲཧͯͭ͠ͳ͛Δ͜ͱ͕ Ͱ͖·͢ɻ
    ˔පচػೳใࠂͷྻ໊͸΋ͬͱෳࡶͰผͷํ๏ΛऔΓ·ͨ͠ɻ 69
70. ऴΘΓʹ ˔&YDFMͷख࡞ۀͰ͸Ͱ͖ͳ͍͜ͱ͕3΍QZUIPOͳΒͰ͖ͯ͠·͍·͢
    ˔ҩྍ౷ܭ͸&YDFMͷ࡞Γํ͕ྑ͚Ε͹લॲཧ͸΄΅ඞཁ͋Γ·ͤΜ
    ˔ͨͩ৭ʑͳσʔλΛ෼ੳͨ͘͠ͳΔͱલॲཧ͸ඞཁʹͳΓ·͢ 
 ɹʢ༧ࢉͷׂҎ্͸લॲཧʹ࢖͍ͬͯΔͱ͍͏ӟ΋ʜʣ
    ˔ਓͰಠֶ͍ͯ͠·͢ɻݱ࣌఺Ͱ͸͜ͷఔ౓Ͱ͢ɻ 
 ɹ·ͩ·ͩஓ੿ͳίʔυ΋ଟ͍ͷͰΞυόΠε͍͖͍ͨͩͨͰ͢͠ɺ 
 ɹͲͷఔ౓ͷ࣮ྗ͔ʢશવμϝ ࠷௿ݶ͸ΫϦΞ ଈઓྗʹͳΔ
    PS
    OPUʣ΋ 
 ɹϑΟʔυόοΫ͍͚ͨͩΔͱ޾͍Ͱ͢ʂ 70