統・再現性・協力: 人為的過誤を防ぎ、未来へ進む策 / 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
2. ࣗݾ঺հ ಙౡେֶσβΠϯܕ"*ڭҭݚڀηϯλʔɾॿڭ ӝੜ
   ਅ໵ ͏ΓΎ͏
   ͠Μ΍ ؔ৺ σʔλՄࢹԽɺ஍ཧۭؒ৘ใɺਓྲྀɺ໺ੜੜ෺ ʮ"*૯߹ԋशʯɺʮ৘ใՊֶೖ໳ʯɺ
   ʮσʔλαΠΤϯε΁ͷ༠͍ʯ ୲౰
3. εϙϯαʔ ͜ͷൃද͸ҎԼͷํʑʹΑΔ(JU)VCεϙϯαʔࢧԉΛड͚͍ͯ·͢ IUUQTHJUIVCDPNTQPOTPSTVSJCP katsurakob ito4303 ytknzw
4. 👻   ϓϩάϥϜΛਖ਼ৗʹ࣮ߦͰ͖ͳ͍ͱ͖ ಈ͔ͳ͍ ݟ͔ͭΒͳ͍ ॻ͍͍ͯͳ͍ UZQP ཁ݅Λຬ͍ͨͯ͠ͳ͍ ফͨ͠ɾফ͑ͨ ίʔυΛ࢒͍ͯ͠ͳ͍ ਓҝతͳաͪɺͰ͸͋Δ͕͋ͳͨ͸ѱ͘ͳ͍ɻ աޡΛ๷͍Ͱະདྷ΁า΋͏ɻ ͋ͳͨ͸ѱ͘ͳ͍ɻ ख͕׈Δʢ࢓ํͳ͍ʣɺ
   ґଘؔ܎͕յΕΔ ࣍ʹ࢖͏৔໘Λ
   ૝૾Ͱ͖ͳ͍͔Β σΟϨΫτϦͷߏ଄͕ෳࡶɺ
   σʔλΛ؅ཧ͍ͯ͠ͳ͍ ݪҼͱͯ͠ʜ
5. ౷ ࠶
   
   
   ݱ ੑ ڠ ྗ ਓҝతͳաͪΛ๷͙ͨΊͷͭͷΩʔϫʔυ ͜ͷλΠτϧ͸δϟϨυɾμΠΞϞϯυ
   ʰॐɾපݪەɾమʱ͔Βൃ૝Λಘ·ͨ͠
6. ͔ Β ࢝ · Δ ౷ ΂ Δ ˠ୅දతͳΞϓϦέʔγϣϯ 34UVEJP CZ
   1PTJU 7JTVBM
   4UVEJP
   $PEF
   74$PEF CZ
   .JDSPTPGU ҟͳΔ؀ڥͰ΋ڞ௨ͨ͠ΠϯλʔϑΣʔεΛར༻͢Δ ؀ڥ͕ҧͬͯ΋ීஈ௨Γʹ࢖͑Δ͜ͱ͕ཧ૝ σεΫτοϓɺΫϥ΢υͱ؀ڥ͕ଟ༷Խ ڞ௨ͨ͠ΠϯλʔϑΣʔε ڞ௨ͯ͠ ϑΝΠϧࢀরɾૢ࡞ ୈࡾऀͷ։ൃऀʹΑΔ֦ுػೳ ೖྗิ׬˞ ͕ར༻Մೳ ˞74$PEFͰ͸֦ுػೳͷಋೖ͕ඞཁ γϯλοΫεϋΠϥΠτ˞
7. ֶशɾߏஙͷखؒΛল͘ ͳͥΠϯλʔϑΣʔεͷ౷ҰΛ৺͕͚Δͷ͔ ΠϯλʔϑΣʔεͷ౷Ұ HHQMPUɺUJEZWFSTFɺUJEZNPEFMTͳͲ ˠύοέʔδ΋ಉ༷
   ɹΠϯλʔϑΣʔε͕౷Ұ͞ΕͨύοέʔδɺϑϨʔϜϫʔΫΛར༻͢Δ ʮ͍ͭͰ΋ɺͲ͜Ͱ΋ීஈ௨Γʹ࢖͑Δʯʜ҆৺ σεΫτοϓ൛ ΢Σϒʢαʔόʔʣ൛ 34UVEJP 74$PEF σεΫτοϓ൛ ΢Σϒ൛
8. 34UVEJP
   1SPKFDUػೳʢ3QSPKʣ ؅ཧ͞ΕΔ͜ͱͰ؅ཧ͢Δ IFSFύοέʔδ ͜ΕΒ͸ʮ࠶ݱੑʯɺʮڠྗʯͷͨΊͷػೳ΋උ͍͑ͯΔ 04ؒͰͷϑΝΠϧࢦఆํ๏ͷҧ͍Λͳ͘͢ 3ͷऴྃ࣌ʹΦϒδΣΫτΛอଘͤ͞ͳ͍ ࠶ىಈ࣌ʹΦϒδΣΫτΛ෮ݩ͠ͳ͍ ૊ΈࠐΈύΠϓԋࢉࢠʢcʣͷ
   ར༻Λ༗ޮʹ͢Δ 3QSPKͷ͋ΔσΟϨΫτϦʢ֊૚ʣ͕ج४ͱͳΔ  📂 IPHF  IPHF3QSPK 📂EBUBSBX TBNQMFDTW here::here("data-raw/sample.csv") #> [1] "/Users/suryu/hoge/data-raw/sample.csv"
9. ͱ ͍ ͏ ࠶
   
   
   ݱ ੑ ࢁ Λ ొ Δ ίϯιʔϧͰߦ͏಺༰Λίʔυʹ࢒͢͜ͱ͕ୈҰา ͨͩ͠ࢁ௖Λ஌Δ͜ͱ͸Ͱ͖ͳ͍ ࢁ௖Λ஌Δ͜ͱ͸Ͱ͖ͳ͍ ʜ
   ͦΕͰ΋࠶ݱੑͷࢁ௖ʹ͸ͨͲΓண͚ͳ͍ʢʮԿ͔ʯ͕જΜͰ͍Δʣ (JUͰϑΝΠϧͷมߋΛه࿥͢Δ EPDLFSɺSFOWΛ࢖ͬͯύοέʔδΛ؅ཧ͢Δ UBSHFUTͰॲཧ಺༰ʹ࠶ݱੑΛอূ͢Δ ೋา໨͸ϑΝΠϧʹอଘ͢Δ ࣍͸34UVEJP
   1SPKFDUΛར༻͢Δ 3
   .BSLEPXO΍2VBSUPͰίʔυͱจষΛ࢒͢ IUUQTTQFBLFSEFDLDPNT@VSZV   
10. όʔδϣϯʹ͸ҙຯ͕͋Δ େࣄͳ͜ͱ ͏͔ͭʹ্͛ͳ͍ʜ
    ೾ٴޮՌɺ͜Ε·Ͱͷίʔυ͕ػೳ͠ͳ͘ͳΔϦεΫ ͨͩ͠ॏେͳηΩϡϦςΟ໰୊ͷमਖ਼ͳͲ΋͋ΔͨΊɺߋ৽಺༰Λ·ͱΊͨχϡʔε౳ΛݟΔ   ˞։ൃऀɾίϛϡχςΟʹΑͬͯόʔδϣϯͷ෇͚ํ͕ҟͳΔ ϝδϟʔ ϚΠφʔ ύον "1*ͷมߋʹ
    ޓ׵ੑͷͳ͍৔߹ͳͲ ޙํޓ׵ੑ͕͋Γ
    ػೳੑΛ௥Ճͨ͠৔߹ ޙํޓ׵ੑΛ൐͏
    όάमਖ਼ ࢀߟ
    ηϚϯςΟοΫ
    όʔδϣχϯά
     IUUQTTFNWFSPSHMBOHKB
11. ίϚϯυΛ֮͑ͳͯ͘΋࢖͑Δ ͱ΋͔͘όʔδϣϯ؅ཧγεςϜ (JU ͷಋೖΛʂ ࣍ͷҰาʜʮڠྗʯͷͨΊʹ(JU)VC΍(JU-BCʹϦϙδτϦΛ༻ҙ͢Δ (JUύωϧͷΞΠίϯ ʁ . % " HJUͷ؅ཧର৅֎ มߋ఺͕͋Δ ࡟আ͞Εͨ ؅ཧର৅ʹՃΘͬͨ
12. ݟ ͑ ͳ ͍ ڠ ྗ ྗ ʹ Α Δ ԕ͘΁ߦͨ͘Ίʹ਌੾ʹͳΔ ਌੾ʹͳΔ ੔વͱͨ͠σΟϨΫτϦߏ੒ɺίʔυதͷίϝϯτɺ
    ڞಉ࡞ۀ͢Δਓ͕ͨͪίʔυɺσʔλΛࢀরͰ͖Δ ʢ(JU)VC
    JTTVFTͳͲʹʣ՝୊΍໰୊Λه࿥͢Δ ࣗ෼ࣗ਎͕ॿ͚ΒΕΔ͜ͱ΋͋Δɻ
    ࠓͷࣗ෼ͱաڈͷࣗ෼ͷʮڠྗʯ ˠ࠶ݱੑ͕Ұஈߴ·Δ ˠྨࣅͷ໰୊΁ͷରࡦ΍৽͍͠ϝϯόʔ΁ͷखॿ͚ͱͳΔ ˠίʔυ͸ࡒ࢈
13. δϟϨυɾμΠΞϞϯυʰॐɾපݪەɾమʱͰ͸؀ڥͷࠩҟΛɺݱ୅ͷࣾձʹ΋ͭͳ͕Δෆۉߧ
    ʮ࣋ͭ΋ͷͱ࣋ͨ͟Δऀʯʹ෼͚ͨཁҼͱͯ͠ڍ͍͛ͯΔɻ ॐ΍ʢҙਤͨ͠Θ͚Ͱ͸ͳ͍͕ʣපݪەʹର͢Δ఍߅ྗΛ΋͍ͬͯͨϤʔϩούͷຽ଒͕৽େ཮Λ৵ུͯ͠
    ͍ͬͨΑ͏ʹɺٕज़΍ೳྗ΋໋ӡΛ෼͚Δ͜ͱʹͭͳ͕Δɻ
    ˠʮ౷ɾ࠶ݱੑɾڠྗʯͦΕ͕Ͱ͖Δ؀ڥͱͦ͏Ͱͳ͍؀ڥͰ࣌ؒ΍ܦݧʹ͕ࠩੜ͡Δʁ
    ɹਓ޻஌ೳΛ׆༻ͨ͠৽͍ٕ͠ज़ʢ$PQJMPUʣ΍ೳྗʢ$IBU(15΁ͷ໰͍ͷཱͯํɺϓϩϯϓτΤϯδχΞ Ϧϯάʣ΋ࠓޙͷզʑͷ໋ӡΛ୲͏͔΋͠Εͳ͍ɻ (JU)VC
    $PQJMPU "NB[PO
    $PEF8IJTQFSFS $IBU(15 ࣋ͭ΋ͷͱ࣋ͨ͟Δऀ ؀ڥͷࠩҟ ٕज़΍ೳྗ΋໋ӡΛ෼͚Δ͜ͱʹͭͳ͕Δ (PPHMF
    #BSE
14. ʮ౷΂Δʯ͔Β࢝·Δ 1 2 3 ڠྗʹΑΔݟ͑ͳ͍ྗ ࠶ݱੑͱ͍͏ࢁΛొΔ Enjoy!