ChatGPTの現状理解と R関数&パッケージ作成への活用

##ChatGPTの現状理解とR関数&パッケージ作成への活用

1. ChatGPTの現状理解
OpenAI社について
ChatGPTとは？
GPT-3.5とGPT-4
フロンプトとは？
ChatGPTの得意なこと・苦手なこと（事例とTipsも）
2. R関数&パッケージ作成への活用
GPT API keyの取得
gptstudioパッケージを使って、RStudio上でChatGPTを使用する事例の紹介

Transcript

1. 4BUPTIJ,VNF !TLVNF
   
   $IBU(15ͷݱঢ়ཧղͱ
   3ؔ਺ύοέʔδ࡞੒΁ͷ׆༻
   #JP1BDLBUIPO
   
   .":
   

   View Slide

2. ࠓ೔ͷ࿩୊ఏڙ
   $IBU(15ͷݱঢ়ཧղ
   0QFO"*ࣾʹ͍ͭͯ
   $IBU(15ͱ͸ʁ
   (15ͱ(15
   ϑϩϯϓτͱ͸ʁ
   $IBU(15ͷಘҙͳ͜ͱɾۤखͳ͜ͱʢࣄྫͱ5JQT΋ʣ
   3ؔ਺ύοέʔδ࡞੒΁ͷ׆༻
   (15"1*LFZͷऔಘ
   HQUTUVEJPύοέʔδΛ࢖ͬͯɺ34UVEJP্Ͱ
   $IBU(15Λ࢖༻͢Δࣄྫͷ঺հ
   

   View Slide

3. IUUQTPQFOBJDPNCMPHDIBUHQU
   Ͳ͏΍ͬͯ࢖͏͔ʁʁ
   ʮ5SZ$IBU(15ʯ͔Β6*൛͕ར༻Մೳ
   αϜɾΞϧτϚϯ͕૑ۀͨ͠"*اۀͰɺ"*νϟοτ
   Ϙοτ$IBU(15ͷ։ൃɾఏڙͰੈքతʹ༗໊ʹ
   ChatGPT͸ʮΠϯλʔωοτͷొ৔ҎདྷͷΠϯύΫτʯͱ΋
   

   View Slide

4. $IBU(15ͷ࣮ߦ؀ڥ 6*ฤ
   
   IUUQTDIBUPQFOBJDPN NPEFMHQU
   ຊ୊Λ࿩͢લʹɺॳΊͯͷํ޲͚ʹ$IBU(15ͷ࣮ԋಈըΛʜ
   

   View Slide

5. $IBU(15ͷ࣮ߦ؀ڥ 6*ฤ
   
   ຊ୊Λ࿩͢લʹɺॳΊͯͷํ޲͚ʹ$IBU(15ͷ࣮ԋಈըΛʜ
   

   View Slide

6. $IBU(15ͱ͸ʁ
   IUUQTKBXJLJQFEJBPSHXJLJ$IBU(15
   ͱ͔ͷग़య
   ✦$IBU(FOFSBUJWF1SFUSBJOFE5SBOTGPSNFS (15
   ͷུ
   ✦0QFO"*͕ࣾ೥݄ʹެ։ͨ͠"*νϟοτϘοτɻ
   ✦ओʹɺ(15ͷνϟοτػೳΛࢦ͢ɻ
   ✦୯ʹʮ(15ʯͱݴ͏ͱɺϞσϧࣗମ͋Δ͍͸ଞͷػೳ΋ࢦ͢ɻ
   ✦େن໛ݴޠϞσϧʢ--. -BSHF-BOHVBHF.PEFMʣͷͭ
   ✦ಛ௃ਓ͕ؒࣗવʹײ͡ΔจষΛੜ੒͢ΔೳྗΛ࣋ͭ
   ✦Ϟσϧߏஙڭࢣ͋ΓֶशڧԽֶशసҠֶश
   ✦ݱঢ়ɺ(15 ೥݄
   ͱ࠷৽൛ͷ(15 ೥݄
   ೔
   ͷ--.Ϟσϧ͕͋Δɻ
   

   View Slide

7. ৄ͘͠஌Γ͍ͨํ͸
   +PJDIJ*UPઌੜͷ:PV5VCFΛ
   IUUQTXXXZPVUVCFDPNXBUDI
   W/2.8P[$*2MJTU1-EX0Q'UI./J7+OCCU,
   8156UL6)/4[
   

   View Slide

8. $IBU(15ͰԿ͕มΘ͔ͬͨʁ
   ✦"*ͷେऺԽʹ΄΅੒ޭ
   ɹʢैདྷͷδϨϯϚʣ
   ✦"*Ϟσϧ͕ެ։͞Εͯ΋ɺσʔλ͕ແ͘࢖͑ͳ͍ɻ
   ✦σʔλ͕͋ΕͲɺܭࢉϦιʔε͕଍ΓͣɺܭࢉͰ͖ͳ͍ɻ
   ✦ͦ΋ͦ΋݁Ռ͕࠶ݱ͠ͳ͍ʜ
   ✦ੈքதͷݴޠֶऀ͕੒͠ಘͳ͔ͬͨɺ࠷৽ͷݴޠॲཧٕज़
   ͕݄υϧͷαϒεΫʢܭࢉίετࠐʑʣͰ࢖͑Δɻ
   ✦Ϟσϧߏங΍ֶशɺαʔόʔͷઃఆͳͲෆཁʢ'JOFUVOJOH͸ඞཁʣ
   ✦ݴޠֶɾࣗવݴޠॲཧͷ෼໺͸௒ઈΫϩʔζެ։༗Γಘͳ͍ɻ
   ✦Ϟσϧͷܭࢉίετ΍ετϨʔδͳͲͰԯ୯Ґͷඅ༻ʢٱถ༧૝ʣ
   ✦εύίϯͷແྉ഑෍ঢ়ଶʁʁʁ
   

   View Slide

9. $IBU(15 $IBU(151MVT (15"1*
   ػೳ $IBU(15ͷΈ $IBU(15ͷΈ
   ଞͷ(15Ϟσϧ΋
   ࢖༻Մೳ
   ྉۚମܥ ແྉ
   αϒεΫ
   64υϧ݄
   
   ैྔ՝ۚ
   --. (15
   (15
   (15
   (15
   (15
   ࢖͍ํ
   (6*
   ʢνϟοτܗࣜʣ
   (6*
   ʢνϟοτܗࣜʣ
   $6*Ͱ"1*࣮ߦ
   $IBU(15
   QMVHJOT
   ෆՄ
   ར༻Մ αϒεΫXBJUMJTUొ࿥
   
   $IBU(156*্ͰSEQBSUZΞϓϦέʔγϣϯΛར༻ػೳ
   ೥݄೔ݱࡏ
   0QFO"*ࣾఏڙαʔϏεҰཡ
   

   View Slide

10. (15ͱ(15͸Կ͕ҧ͏ʁ
    0QFO"*ΑΓಠࣗධՁ͕ఏڙ͞Ε͍ͯΔ
    ✦ ਪ࿦ී௨Ϩϕϧ
    ✦ ૣ͍
    ✦ ਪ࿦αΠίʔʹྑ͍
    ✦ ஗͍
    

    View Slide

11. IUUQTPQFOBJDPNXBJUMJTUHQUBQJ
    IUUQTPQFOBJDPNXBJUMJTUQMVHJOT
    (15"1*$IBU(15QMVHJOT
    ͷར༻͸ॱ൪଴ͪ
    

    View Slide

12. ϓϩϯϓτͱ͸ʁ
    IUUQTXBJJJOGPXPSEIUNM
    IUUQTQSUJNFTKQNBJOIUNMSEQIUNM
    IUUQTFXPSETKQX&&"%&#&&IUNM
    ͱ͔
    ✦ ίϚϯυϓϩϯϓτͷ͜ͱʁʁ
    ✦ ίϚϯυίϯϐϡʔλʹಛఆͷػೳͷ࣮ߦΛࢦࣔ͢Δ໋ྩ
    ͷ͜ͱɻ
    ✦ ϓϩϯϓτγεςϜ͕ೖྗΛड͚෇͚ΒΕΔঢ়ଶͰ͋Δ͜
    ͱΛࣔ͢ϚʔΫͷ͜ͱʢʮʯʮʯʮʯͱ͔ʣɻ
    ࠷ۙɺٸʹฉ͘Α͏ʹͳͬͨ
    ʢ"*ͷจ຺Ͱ͸ʣ
    "*Ϟσϧʹର͢ΔࢦࣔࢦࣔΛग़ͨ͢Ίͷจষͷ͜ͱɻ
    

    View Slide

13. $IBU(15͕ಘҙͳ͜ͱ
    - ৘ใݕࡧ ɾ஌ܙା/ܝࣔ൘తͳ࢖͍ํ
    - هࣄཁ໿ɺ຋༁(ଟݴޠ
    )
    
    - ίʔσΟϯά (͓ͦΒ͘ɺ΄΅શͯΧόʔ
    )
    
    - ϓϩϯϓτͷ࡞੒ɾվળ (ࢦࣔจΛAIͱର࿩ܕͰ࡞੒ɾվળͰ͖Δ)
    ྫ1$"ͷ3ؔ਺Λ࡞੒͢Δϓϩϯϓτ
    ɹɹઃఆɾཁ݅ఆٛΛ͢Δ
    

    View Slide

14. - ϓϩϯϓτͷ࡞੒ɾվળ (ࢦࣔจΛAIͱର࿩ܕͰ࡞੒ɾվળͰ͖Δ)
    ྫίϝϯτ෦෼ͷ೔ӳ༁ ྫվળ఺վળ൛ͷఏҊ
    $IBU(15͕ಘҙͳ͜ͱ
    

    View Slide

15. ϓϩϯϓτͷ࡞੒Ͱ͸ཁ݅ఆٛɾ۩ମੑ͕ॏཁ
    ʮ਺ཧղੳͷجຊʯ͸$IBU(15Ͱ΋ಉ͡
    ✦ Ϟσϧ͕େ͖͘ɾύϥϝʔλ͕ଟ͍ͱ݁Ռ͕ऩଋ͠ͳ͍ɻ
    ✦ ԾఆɾલఏΛஔ͍ͯɺ݁Ռͷग़ྗൣғΛऩଋͤ͞Δɻ
    ✦ ܭࢉίετΛ௿͘͢Δͱɺܭࢉ͕଎͘ͳͬͯɺ౴͑ʹૣ͘ḷΓண͘ɻ
    ग़ྗ͕৑௕
    ్தͰఀࢭ
    ͙͢ʹ݁Ռग़ྗ
    

    View Slide

16. "*ʹઃఆΛ༩͑Δ
    ྫૉਓɺϓϩɺਓ෺૾ɺܳೳਓɾ༗໊ਓͳͲ
    

    View Slide

17. $IBU(15͕ۤखͳ͜ͱ
    - Ϟσϧͷֶशσʔλ͕2021೥·Ͱ
    - هࣄʹͳ͍ͬͯͳ͍৘ใʢձһαΠτɺ஍Ҭωλ etcʣʹऑ͍
    

    View Slide

18. ࠓޙɺ$IBU(15QMVHJOTͰͷରԠʹظ଴
    ࣌ʹ͸ฉ͖ฦ͢͜ͱ΋େ੾
    $IBU(15͕ۤखͳ͜ͱ
    - Ϟσϧͷֶशσʔλ͕2021೥·Ͱ
    - هࣄʹͳ͍ͬͯͳ͍৘ใʢձһαΠτɺ஍Ҭωλ etcʣʹऑ͍
    

    View Slide

19. ࠓ೔ͷ࿩୊ఏڙ
    $IBU(15ͷݱঢ়ཧղ
    0QFO"*ࣾʹ͍ͭͯ
    $IBU(15ͱ͸ʁ
    (15ͱ(15
    ϑϩϯϓτͱ͸ʁ
    $IBU(15ͷಘҙͳ͜ͱɾۤखͳ͜ͱʢࣄྫͱ5JQT΋ʣ
    3ؔ਺ύοέʔδ࡞੒΁ͷ׆༻
    (15"1*LFZͷऔಘ
    HQUTUVEJPύοέʔδΛ࢖ͬͯɺ34UVEJP্Ͱ
    $IBU(15Λ࢖༻͢Δࣄྫͷ঺հ
    

    View Slide

20. IUUQTQMBUGPSNPQFOBJDPNPWFSWJFX
    0QFO"*%FWFMPQFSQBHF
    

    View Slide

21. IUUQTQMBUGPSNPQFOBJDPNBDDPVOUBQJLFZT
    (15"1*LFZTͷ࡞੒
    
    ,FZΛίϐϖ
    
    
    

    View Slide

22. IUUQTDSBOSQSPKFDUPSHXFCQBDLBHFTHQUTUVEJPJOEFYIUNM
    IUUQTHJUIVCDPN.JDIFM/JWBSEHQUTUVEJP
    IUUQTHJUIVCDPN+BNFT)8BEFHQUUPPMT
    ؔ࿈ύοέʔδ
    34UVEJP্Ͱ$IBU(15Λ࢖͑ΔΑ͏ʹ͢Δ"EEJOT
    

    View Slide

23. ύοέʔδͷΠϯετʔϧखॱ
    QBLύοέʔδͷΠϯετʔϧ
    JOTUBMMQBDLBHFT QBL
    
    (JU)VCͷύʔιφϧΞΫηετʔΫϯͷઃఆ
    4ZTTFUFOW (*5)6#@1"5ZPVS@UPLFO@IFSF
    
    HQUTUVEJPHQUUPPMTύοέʔδͷΠϯετʔϧ
    QBLQBL .JDIFM/JWBSEHQUTUVEJP
    
    QBLQBL +BNFT)8BEFHQUUPPMT
    
    MJCSBSZ HQUTUVEJP
    
    MJCSBSZ HQUUPPMT
    
    ࠷ޙʹɺ34UVEJPΛ࠶ىಈ͢Δ
    

    View Slide

24. 34UVEJP্Ͱͷઃఆ
    0QFO"*"1*,FZͷઃఆ
    4ZTTFUFOW 01&/"*@"1*@,&:"1*,&:
    
    "EEJOTͷݕࡧ૭ͷݺͼग़͠
    ɹ$.%$53-4)*'51
    "EEJOTͷݕࡧ૭͔Βݕࡧ
    ࢖͍ํ
    

    View Slide

25. 34UVEJP্Ͱ࣮ߦͷखॱ
    
    ίʔυ෦෼Λબ୒͢Δ
    
    ֘౰ͷ"EEJOTΛબ୒͢Δ
    
    ࣮ߦ͞Εͯɺ׬ྃΛ଴ͭ
    
    "EEJOTͷݕࡧ૭ͷݺͼग़͠
    ɹ$.%$53-4)*'51
    TUFQT
    ࣮ࡍʹ࣮ԋ͠·͢ʂ
    

    View Slide

26. ·ͱΊ
    ✦ $IBU(15͸λεΫΛબ΂͹ɺ͔ͳΓύϑΥʔϚϯε͕
    ߴ࣮͘ߦͰ͖Δ
    ✦ 3ؔ਺΍ύοέʔδ։ൃͰ΋ར༻Ͱ͖Δɻ
    ✦ ͨͩ͠ɺݱঢ়͸ɺ(15
    ✦ ֶशσʔλͱͯ͠৘ใ͕ͳ͍ͱͰ͖ͳ͍͜ͱ͕ଟ͍ɻ
    ✦ ྫ#-"45ݕࡧͷ࣮ߦ
    

    View Slide

27. ิ଍ࢿྉ
    

    View Slide

28. (PPHMF#BSE
    (PPHMF΋։ൃͯͨ͠ʁʁʁ
    IUUQTKBQBOHPPHMFCMPHDPNCBSEIUNM
    

    View Slide

29. (PPHMF#BSEͷ࣮ߦը໘
    IUUQTCBSEHPPHMFDPN
    

    View Slide

30. #BSE͸௚ۙσʔλ΋࢖ΘΕ͍ͯΔ
    IUUQTCBSEHPPHMFDPN
    

    View Slide