統・再現性・協力: 人為的過誤を防ぎ、未来へ進む策 / Integration, Reproducible, and Collaboration

2023年4月22日に開催されたTokyo.R#105での発表資料です。

瓜生真也（u_ribo） https://twitter.com/u_ribo

Transcript

1. ⽠
   ⽣
   真
   也
   ౷
   ɾ
   ࠶
   ݱ
   ੑ
   ɾ
   ڠ
   ྗ
   ਓ
   ҝ
   త
   ա
   ޡ
   Λ
   ๷
   ͗
   ະ
   དྷ
   ΁
   ਐ
   Ή
   ࡦ
   5PLZP3!ΦϯϥΠϯ
   VSJCP
    V@SJCP
   
   San Diego Air and Space Museum's Library and Archiv
   e
   

   View Slide

2. ࣗݾ঺հ
   ಙౡେֶσβΠϯܕ"*ڭҭݚڀηϯλʔɾॿڭ
   ӝੜਅ໵
   ͏ΓΎ͏͠Μ΍
   ؔ৺ σʔλՄࢹԽɺ஍ཧۭؒ৘ใɺਓྲྀɺ໺ੜੜ෺
   ʮ"*૯߹ԋशʯɺʮ৘ใՊֶೖ໳ʯɺ
   ʮσʔλαΠΤϯε΁ͷ༠͍ʯ
   ୲౰
   

   View Slide

3. εϙϯαʔ
   ͜ͷൃද͸ҎԼͷํʑʹΑΔ(JU)VCεϙϯαʔࢧԉΛड͚͍ͯ·͢
   IUUQTHJUIVCDPNTQPOTPSTVSJCP
   katsurakob
   ito4303
   ytknzw
   

   View Slide

4. 👻
   
   
   ϓϩάϥϜΛਖ਼ৗʹ࣮ߦͰ͖ͳ͍ͱ͖
   ಈ͔ͳ͍ ݟ͔ͭΒͳ͍ ॻ͍͍ͯͳ͍
   UZQP
   ཁ݅Λຬ͍ͨͯ͠ͳ͍
   ফͨ͠ɾফ͑ͨ ίʔυΛ࢒͍ͯ͠ͳ͍
   ਓҝతͳաͪɺͰ͸͋Δ͕͋ͳͨ͸ѱ͘ͳ͍ɻ
   աޡΛ๷͍Ͱະདྷ΁า΋͏ɻ
   ͋ͳͨ͸ѱ͘ͳ͍ɻ
   ख͕׈Δʢ࢓ํͳ͍ʣɺ
   ґଘؔ܎͕յΕΔ
   ࣍ʹ࢖͏৔໘Λ
   ૝૾Ͱ͖ͳ͍͔Β
   σΟϨΫτϦͷߏ଄͕ෳࡶɺ
   σʔλΛ؅ཧ͍ͯ͠ͳ͍
   ݪҼͱͯ͠ʜ
   

   View Slide

5. ౷
   ࠶
   ݱ
   ੑ
   ڠ
   ྗ
   ਓҝతͳաͪΛ๷͙ͨΊͷͭͷΩʔϫʔυ
   ͜ͷλΠτϧ͸δϟϨυɾμΠΞϞϯυʰॐɾපݪەɾమʱ͔Βൃ૝Λಘ·ͨ͠
   

   View Slide

6. ͔
   Β
   ࢝
   ·
   Δ
   ౷
   ΂
   Δ
   ˠ୅දతͳΞϓϦέʔγϣϯ
   34UVEJP
   CZ1PTJU
   7JTVBM4UVEJP$PEF 74$PEF
   
   CZ.JDSPTPGU
   ҟͳΔ؀ڥͰ΋ڞ௨ͨ͠ΠϯλʔϑΣʔεΛར༻͢Δ
   ؀ڥ͕ҧͬͯ΋ීஈ௨Γʹ࢖͑Δ͜ͱ͕ཧ૝
   σεΫτοϓɺΫϥ΢υͱ؀ڥ͕ଟ༷Խ
   ڞ௨ͨ͠ΠϯλʔϑΣʔε
   ڞ௨ͯ͠
   ϑΝΠϧࢀরɾૢ࡞
   ୈࡾऀͷ։ൃऀʹΑΔ֦ுػೳ
   ೖྗิ׬˞
   ͕ར༻Մೳ
   ˞74$PEFͰ͸֦ுػೳͷಋೖ͕ඞཁ
   γϯλοΫεϋΠϥΠτ˞
   

   View Slide

7. ֶशɾߏஙͷखؒΛল͘
   ͳͥΠϯλʔϑΣʔεͷ౷ҰΛ৺͕͚Δͷ͔
   ΠϯλʔϑΣʔεͷ౷Ұ
   HHQMPUɺUJEZWFSTFɺUJEZNPEFMTͳͲ
   ˠύοέʔδ΋ಉ༷
   ɹΠϯλʔϑΣʔε͕౷Ұ͞ΕͨύοέʔδɺϑϨʔϜϫʔΫΛར༻͢Δ
   ʮ͍ͭͰ΋ɺͲ͜Ͱ΋ීஈ௨Γʹ࢖͑Δʯʜ҆৺
   σεΫτοϓ൛ ΢Σϒʢαʔόʔʣ൛
   34UVEJP 74$PEF
   σεΫτοϓ൛ ΢Σϒ൛
   

   View Slide

8. 34UVEJP1SPKFDUػೳʢ3QSPKʣ
   ؅ཧ͞ΕΔ͜ͱͰ؅ཧ͢Δ
   IFSFύοέʔδ
   ͜ΕΒ͸ʮ࠶ݱੑʯɺʮڠྗʯͷͨΊͷػೳ΋උ͍͑ͯΔ
   04ؒͰͷϑΝΠϧࢦఆํ๏ͷҧ͍Λͳ͘͢
   3ͷऴྃ࣌ʹΦϒδΣΫτΛอଘͤ͞ͳ͍
   ࠶ىಈ࣌ʹΦϒδΣΫτΛ෮ݩ͠ͳ͍
   ૊ΈࠐΈύΠϓԋࢉࢠʢcʣͷ
   ར༻Λ༗ޮʹ͢Δ
   3QSPKͷ͋ΔσΟϨΫτϦʢ֊૚ʣ͕ج४ͱͳΔ
   
   📂 IPHF
    IPHF3QSPK
   📂EBUBSBX
   TBNQMFDTW
   here::here("data-raw/sample.csv")
   
   
   #> [1] "/Users/suryu/hoge/data-raw/sample.csv"
   

   View Slide

9. ͱ
   ͍
   ͏
   ࠶
   ݱ
   ੑ
   ࢁ
   Λ
   ొ
   Δ
   ίϯιʔϧͰߦ͏಺༰Λίʔυʹ࢒͢͜ͱ͕ୈҰา
   ͨͩ͠ࢁ௖Λ஌Δ͜ͱ͸Ͱ͖ͳ͍
   ࢁ௖Λ஌Δ͜ͱ͸Ͱ͖ͳ͍
   ʜͦΕͰ΋࠶ݱੑͷࢁ௖ʹ͸ͨͲΓண͚ͳ͍ʢʮԿ͔ʯ͕જΜͰ͍Δʣ
   (JUͰϑΝΠϧͷมߋΛه࿥͢Δ
   EPDLFSɺSFOWΛ࢖ͬͯύοέʔδΛ؅ཧ͢Δ
   UBSHFUTͰॲཧ಺༰ʹ࠶ݱੑΛอূ͢Δ
   ೋา໨͸ϑΝΠϧʹอଘ͢Δ
   ࣍͸34UVEJP1SPKFDUΛར༻͢Δ
   3.BSLEPXO΍2VBSUPͰίʔυͱจষΛ࢒͢
   IUUQTTQFBLFSEFDLDPNT@VSZV
   
   
   
   

   View Slide

10. όʔδϣϯʹ͸ҙຯ͕͋Δ
    େࣄͳ͜ͱ
    ͏͔ͭʹ্͛ͳ͍ʜ೾ٴޮՌɺ͜Ε·Ͱͷίʔυ͕ػೳ͠ͳ͘ͳΔϦεΫ
    ͨͩ͠ॏେͳηΩϡϦςΟ໰୊ͷमਖ਼ͳͲ΋͋ΔͨΊɺߋ৽಺༰Λ·ͱΊͨχϡʔε౳ΛݟΔ
    
    
    ˞։ൃऀɾίϛϡχςΟʹΑͬͯόʔδϣϯͷ෇͚ํ͕ҟͳΔ
    ϝδϟʔ ϚΠφʔ ύον
    "1*ͷมߋʹ
    ޓ׵ੑͷͳ͍৔߹ͳͲ
    ޙํޓ׵ੑ͕͋Γ
    ػೳੑΛ௥Ճͨ͠৔߹
    ޙํޓ׵ੑΛ൐͏
    όάमਖ਼
    ࢀߟ
    ηϚϯςΟοΫόʔδϣχϯά IUUQTTFNWFSPSHMBOHKB
    

    View Slide

11. ίϚϯυΛ֮͑ͳͯ͘΋࢖͑Δ
    ͱ΋͔͘όʔδϣϯ؅ཧγεςϜ (JU
    ͷಋೖΛʂ
    ࣍ͷҰาʜʮڠྗʯͷͨΊʹ(JU)VC΍(JU-BCʹϦϙδτϦΛ༻ҙ͢Δ
    (JUύωϧͷΞΠίϯ
    ʁ
    .
    %
    "
    HJUͷ؅ཧର৅֎
    มߋ఺͕͋Δ
    ࡟আ͞Εͨ
    ؅ཧର৅ʹՃΘͬͨ
    

    View Slide

12. ݟ
    ͑
    ͳ
    ͍
    ڠ
    ྗ
    ྗ
    ʹ
    Α
    Δ
    ԕ͘΁ߦͨ͘Ίʹ਌੾ʹͳΔ
    ਌੾ʹͳΔ
    ੔વͱͨ͠σΟϨΫτϦߏ੒ɺίʔυதͷίϝϯτɺ
    ڞಉ࡞ۀ͢Δਓ͕ͨͪίʔυɺσʔλΛࢀরͰ͖Δ
    ʢ(JU)VCJTTVFTͳͲʹʣ՝୊΍໰୊Λه࿥͢Δ
    ࣗ෼ࣗ਎͕ॿ͚ΒΕΔ͜ͱ΋͋Δɻ
    ࠓͷࣗ෼ͱաڈͷࣗ෼ͷʮڠྗʯ
    ˠ࠶ݱੑ͕Ұஈߴ·Δ
    ˠྨࣅͷ໰୊΁ͷରࡦ΍৽͍͠ϝϯόʔ΁ͷखॿ͚ͱͳΔ
    ˠίʔυ͸ࡒ࢈
    

    View Slide

13. δϟϨυɾμΠΞϞϯυʰॐɾපݪەɾమʱͰ͸؀ڥͷࠩҟΛɺݱ୅ͷࣾձʹ΋ͭͳ͕Δෆۉߧ
    ʮ࣋ͭ΋ͷͱ࣋ͨ͟Δऀʯʹ෼͚ͨཁҼͱͯ͠ڍ͍͛ͯΔɻ
    ॐ΍ʢҙਤͨ͠Θ͚Ͱ͸ͳ͍͕ʣපݪەʹର͢Δ఍߅ྗΛ΋͍ͬͯͨϤʔϩούͷຽ଒͕৽େ཮Λ৵ུͯ͠
    ͍ͬͨΑ͏ʹɺٕज़΍ೳྗ΋໋ӡΛ෼͚Δ͜ͱʹͭͳ͕Δɻ
    ˠʮ౷ɾ࠶ݱੑɾڠྗʯͦΕ͕Ͱ͖Δ؀ڥͱͦ͏Ͱͳ͍؀ڥͰ࣌ؒ΍ܦݧʹ͕ࠩੜ͡Δʁ
    ɹਓ޻஌ೳΛ׆༻ͨ͠৽͍ٕ͠ज़ʢ$PQJMPUʣ΍ೳྗʢ$IBU(15΁ͷ໰͍ͷཱͯํɺϓϩϯϓτΤϯδχΞ
    Ϧϯάʣ΋ࠓޙͷզʑͷ໋ӡΛ୲͏͔΋͠Εͳ͍ɻ
    (JU)VC$PQJMPU
    "NB[PO$PEF8IJTQFSFS
    $IBU(15
    ࣋ͭ΋ͷͱ࣋ͨ͟Δऀ
    ؀ڥͷࠩҟ
    ٕज़΍ೳྗ΋໋ӡΛ෼͚Δ͜ͱʹͭͳ͕Δ
    (PPHMF#BSE
    

    View Slide

14. ʮ౷΂Δʯ͔Β࢝·Δ
    1
    2
    3
    ڠྗʹΑΔݟ͑ͳ͍ྗ
    ࠶ݱੑͱ͍͏ࢁΛొΔ
    Enjoy!
    

    View Slide