R 10年の歩み、そしてこれから / tokyor10years

Transcript

1. 2020೥1݄25೔Tokyo.R#8310प೥ه೦ճ
   Uryu Shinya @u_ribo
   ͦͯ͠
   ೥ͷาΈɺ
   ͜Ε͔Β
   

   View Slide

2. 2020
   2010
   3.6.2
   Dec 12, 2019
   2015
   2.11.0
   Apr 22, 2010
   Dark and Stormy Night
   3.0.0
   Apr 3, 2013
   R Consortium૑ઃ
   RStudio v0.92
   first public BETA
   Feb, 2011
   RStudio v1.0
   Nov, 2016
   Jun, 2015
   r-wakalangര஀
   Tokyo.R#50
   Jun, 2015
   Sep, 2015
   Japan.R#1 Global Tokyo.R#2
   Apr, 2017
   Global Tokyo.R#1
   Apr, 2014
   ೥ࠒʹ
   େֶͷϨϙʔτ࡞੒ͷͨΊʹ
   3Λ࢖͍࢝ΊͨΜ΍ʙ
   ʜջ͔͍͠ͳ͋
   Why ARE you using S-JIS?
   Mar 20, 2014
   ύΠϓࡾॐ࢜
   Nov, 2010
   ೥͔Βͷओͳग़དྷࣄ
   

   View Slide

3. ೥ͷৼΓฦΓ
   

   View Slide

4. όʔδϣϯวྺ
   य़ઌʹϚΠφʔόʔδϣϯ͕
   ߋ৽͞ΕΔ
   v3.6.2
   ϝδϟʔ ϚΠφʔ ϝϯςφϯε
   > .libPath()
   [1] /Library/Frameworks/R.framework/Versions/3.6/Resources/library
   ࣍͸W
   ϚΠφʔҎ্ͷߋ৽Ͱ͸
   ΠϯετʔϧࡁΈͷ
   3ύοέʔδ͕
   Ҿ͖ܧ͛ͳ͍ͷͰ஫ҙʂ
   

   View Slide

5. ΫΠζ
   3ͷόʔδϣϯ໊ʹ
   ίʔυωʔϜ͕༩͑ΒΕΔΑ͏ʹ
   ͳͬͨͷ͸͍͔ͭΒʁ
   

   View Slide

6. ਖ਼ղ
   ೥݄೔ϦϦʔεͷ
   W
   l(SFBU1VNQLJOz͔Β
   

   View Slide

7. Կ͕มΘͬͨ ʜϩΰ
   https://stat.ethz.ch/pipermail/r-announce/2016/000595.html
   2016 The R Foundation
   CC-BY-SA 4.0
   http://developer.r-project.org/Logo/ https://www.r-project.org/logo
   34UVEJP΋ϑϥοτΞΠίϯʹͳΓ·ͨ͠
   Tobias Wolf
   CC-BY-SA
   'POU"XFTPNFʹ΋
   ొ࿥͞ΕͨΜͰɺ
   ΈΜͳ࢖ͬͯͳ
   

   View Slide

8. $3"/ొ࿥ύοέʔδ਺
   Jan 25, 2020
   15,362
   Oct 4, 2009
   2,000
   

   View Slide

9. $3"/
   https://twitter.com/RKalcik/status/883293382017155072
   http://www.okadajp.org/RWiki/
   https://cran.ism.ac.jp/
   

   View Slide

10. ΫΠζ
    աڈϲ݄Ͱɺ
    ࠷΋Πϯετʔϧ͞Εͨ
    ύοέʔδ্Ґͭ͸Կ
    ˞34UVEJP$3"/ϛϥʔܦ༝ͷ
    ΠϯετʔϧͷΈΧ΢ϯτ
    ೥݄೔͔Β೥݄೔
    
    

    View Slide

11. ਖ਼ղ
    NBHSJUUS
    BXTT
    BXTFDNFUBEBUB
    

    View Slide

12. 3ؔ࿈ॻ੶
    ೥Ҏલ ೥Ҏ߱
    

    View Slide

13. ͦͷଞͷࢿྉ
    ελΠϧΨΠυ
    ύοέʔδ։ൃ
    8SJUJOH3&YUFOTJPOT
    )BEMFZ8JDLIBN
    
    0`3FJMMZb31BDLBHFT`
    ੉ށࢁ΄͔༁ʢʣ
    ΦϥΠϦʔɾδϟύϯ
    ʮ3ύοέʔδ։ൃೖ໳ʯ
    (PPHMF`T34UZMF(VJEF 5IFUJEZWFSTFTUZMFHVJEF
    (PPHMFͷελΠϧΨΠυ͸
    ݱࡏɺUJEZWFSTFͷ΋ͷΛ
    ϕʔεͱ͍ͯ͠Δͷ͔ʔ
    {styler} {lintr}
    {devtools}
    {testthat}
    {usethis}
    

    View Slide

14. ஌ݟ΍৘ใऩूͷιʔε
    ݸਓൃ৴ܕ
    ू໿ܕ
    ͧ͏͞Μ௨৴ 38FFLMZ
    େֶڭһ౳ʹΑΔ
    ࢿྉ
    UJEZUVFTEBZ
    ݸਓϒϩά
    ษڧձͰͷεϥΠυ
    SCMPHHFST
    ࢀՃܕ
    &%"4BMPO
    3ͷ৘ใ͸
    ϑϦʔͰखʹೖΔ΋ͷ͕ଟͯ͘
    ͋Γ͕͍ͨɻ
    CPPLEPXO
    Λ࢖ͬͨॻ੶
    TFFL3
    31VCT
    1%'΋๛෋Ͱ
    ͓ੈ࿩ʹͳΓ·ͨ͠ɻ 3ϥδΦ
    SKQXJLJ
    SXBLBMBOH
    UJEZWFSTFWJHOFUUFT
    ຋༁ϓϩδΣΫτ
    HHQMPUٯҾ͖
    

    View Slide

15. http://cse.naro.affrc.go.jp/takezawa/r-tips/r.html https://rweekly.org/ https://twitter.com/hashtag/EDAsalon
    ݸਓൃ৴ܕ ू໿ܕ ࢀՃܕ
    

    View Slide

16. ίϛϡχςΟ
    UJEZWFSTF
    3-BEJFT S0QFO4DJ
    SPDLFS
    STQBSL
    3IVC
    37JFXT
    +BQBO3
    38FFLMZ S4QBUJBM
    3$POTPSUJVN
    SXBLBMBOH
    

    View Slide

17. ݴޠͱͯ͠ͷมԽ
    4 4 3 2014~
    ͳΜͰ4ͳͷ
    3ͷલ਎ͷ4ݴޠͷ
    όʔδϣϯΛ
    ҙ͍ࣝͯ͠ΔΜ΍
    Winston Chang
    ͪͳɺ3͕3Ͱ͸ͳ͍ͷ͸
    4ͷޙܧͱͯ͠ɺ
    3͕༻ҙ͞Ε͍͔ͯͨΒ͍͠Ͱ
    3ͷ฼ମͱͳͬͨ4ݴޠͷ
    όʔδϣϯɺͷγεςϜΛ౿ऻͨ͠
    ΦϒδΣΫτࢦ޲γεςϜ
    ͰࢀরΫϥε 3$
    ͕ಋೖ
    3$ͱಉ༷ͷࢀরηϚϯςΟΫε
    

    View Slide

18. UJEZWFSTFʹ͓͚Δඇඪ४ධՁ
    /4&ͷͬ͘͟Γͱͨ͠Πϝʔδ͸
    ʮؔ਺಺ͰσʔλϑϨʔϜͷ
    ม਺Λࢀর͢Δࡍɺ
    Ҿ༻ූͰғΘͣʹ௚઀ม਺໊Λ
    ༩͑Δ͜ͱ͕Ͱ͖Δ࢓૊Έʯ
    Ͱ0,
    library(rlang)
    library(magrittr)
    df <-
    tibble ::tibble(
    x = c(-1, 0, 1),
    y = letters[seq_len(3)])
    f <- function(df, var) {
    df %>%
    dplyr ::mutate(var = abs(var))
    }
    f(df, x)
    #> Error: object 'x' not found
    f <- function(df, var) {
    var <- rlang ::enquo(var)
    var_name <- rlang ::as_label(var)
    df %>%
    dplyr ::mutate( !!var_name := abs( !!var))
    }
    f(df, x)
    #> # A tibble: 3 x 2
    #> x y
    #>
    #> 1 1 a
    #> 2 0 b
    #> 3 1 c
    {rlang}
    {lazyeval}
    !!
    :=
    {{ curry }}
    

    View Slide

19. ϥΠϒϥϦͷਐԽ
    ϋυϦʔͷಈըɺݟΔͱ͑͑Α
    σʔλૢ࡞
    {tidyr}
    ࡞ਤ
    %ɺΠϯλϥΫςΟϒɺΞχϝʔγϣϯ
    https://www.youtube.com/watch?v=vYwXMnC03I4
    An evening with Hadley Wickham
    {dplyr}
    {reshape}
    {ggplot2} v1.0.0
    {ggplot2}
    {rgl} {leaflet}
    {rayshader} {plotly}
    {gganimate}
    {ggfortify} {gghighlight}
    HHQMPUϕʔεͷ
    ύοέʔδ͕֦ॆ
    {data.table}
    

    View Slide

20. ήʔϜνΣϯδϟʔ
    

    View Slide

21. ଞऀ
    ࣗ෼ࣗ਎ͷ
    ໾ʹཱͭ
    ڞ༗
    ίϛϡχςΟ
    ٕज़ଅਐ
    34UVEJP
    2011~
    34UVEJP͕ͳ͚Ε͹
    ͜͜·Ͱ3Λ޷͖ʹ
    ͳΕ͍ͯͳ͔ͬͨʜ
    2012~
    2014~
    

    View Slide

22. 3ͷ࣮ߦ؀ڥ
    34UVEJP &44Ҏ֎ͷબ୒ࢶͱͯ͠ʜ
    SBEJBO"DFOUVSZ3DPOTPMF
    https://github.com/randy3k/radian
    &YQMPSBUPSZ
    %BUB4DJFODFJTGPS&WFSZPOF
    https://exploratory.io/
    7JTVBM4UVEJP$PEFʹ͓͚Δ3֦ு
    https://github.com/Ikuyadeu/vscode-R
    

    View Slide

23. 2014~
    2012~ 2016~ 2016~
    :JIVJ9JFΛத৺ͱͨ͠։ൃ
    ίʔυͱจॻΛ౷߹ͨ͠ॻྨͷੜ੒ɻ
    ϨϙʔτɺϓϨθϯςʔγϣϯɺॻ੶౳ͷ࡞੒Λଅਐ
    จܳతϓϩάϥϛϯάͷൃల
    ւ֎ͷ
    3ॻ੶͸CPPLEPXOܗࣜͰग़൛લ͔Βެ։͞ΕΔ͜ͱ͕
    ඪ४ʹͳ͍ͬͯΔҹ৅
    

    View Slide

24. Ӊ஦ͷ޿͕Γ
    

    View Slide

25. %PDLFS
    SPDLFSQSPKFDU
    https://www.rocker-project.org/
    https://github.com/rocker-org
    CBTFܥ
    34UVEJP4FSWFSܥ
    HFPTQBUJBMͳͲ΁ͷ֦ு΋
    TIJOZTFSWFSΛؚΉ
    όʔδϣϯʹ೰·͞Εͳ͍
    34UVEJPͷ೔ຊޠೖྗ໰୊
    Λճආ
    ଞऀͱͷڞ༗ָ͕
    ར఺͕ଟ͍ͧ
    

    View Slide

26. ೥લʹ͸৴͡ΒΕͳ͍ϨϕϧͰ
    1ZUIPOͱͷ࿈ܞ͕ڧԽ
    σʔλ෼ੳɺػցֶशͷܨ͕Γ
    4QBSL
    \SFUJDVMBUF^
    6STB-BCT 8FT.D,JOOFZ QBOEBTͷ։ൃऀ
    ɻ
    "QBDIF"SSPXϓϩδΣΫτ΁ͷ໨ࢦ͢
    34UVEJPͱύʔτφʔ࿈ܞ
    5FOTPS'MPX
    1ZUIPOWT3ͦΜͳ࣌୅΋
    ͔͋ͬͨ΋஌ΕΜɻ
    ڞ௨՝୊Λղܾ͢ΔͨΊʹ
    खΛऔΓ߹͏ͷ͕DPPM
    

    View Slide

27. ࠓޙ͸Ͳ͏ͳΔ
    

    View Slide

28. 3WϦϦʔεप೥
    ݄ ೔ʹσϯϚʔΫͰ
    प೥ه೦ΧϯϑΝϨϯε͕։࠵
    http://www.celebration2020.org/
    @celebRtion2020
    

    View Slide

29. VTF3!+BQBO
    ։࠵ͷػӡߴ·Δ Ҏ߱
    
    VTF3͸ࠃࡍతͳ3Ϣʔβͷձ߹
    https://twitter.com/y__mattu/status/1208396529414762496
    

    View Slide

30. ΁Μͳͷ3
    ·ͩ·ͩվળ఺͕͋Δ
    https://twitter.com/hashtag/΁ΜͳͷR
    https://github.com/HenrikBengtsson/Wishlist-for-R/issues https://github.com/rstudio/rstudio/issues
    3ຊମ΁ͷϦΫΤετ 34UVEJPͰͷ೔ຊޠೖྗͷվળ
    

    View Slide

31. UJEZWFSTF
    Φʔϓϯιʔεނͷ೰Έ
    ͿͬͪΌ͚ɺ
    ͍͍͚ͭͯ·ͤΜɻ
    Ͱ΋࢖͍ଓ͚ΔΑ
    ࣌ʑੜ͡Δ
    CSFBLJOHDIBOHF
    Φʔϓϯͳ৔Ͱ
    ͖ͪΜͱ
    ٞ࿦͞Ε͍ͯΔ
    ֊૚ߏ଄Λ΋ͭ
    OFTUFEσʔλ
    UJEZSOFTU
    
    UJEZSQBDL
    VOQBDL
    
    MJGFTUBHFΛ֬ೝ
    UJEZͳΜͪΌΒϒʔϜ
    UJEZNPEFMT STQBUJBM
    

    View Slide

32. ײँͱ͓ئ͍
    3͓Αͼؔ࿈ͷ044ʹ
    ؔΘͬͨશͯͷਓʹײँ
    ه࿥Λ࢒͢ɾফ͞ͳ͍Ͱ
    

    View Slide

33. View Slide