Upgrade to Pro — share decks privately, control downloads, hide ads and more …

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

Uryu Shinya
January 25, 2020

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

Uryu Shinya

January 25, 2020
Tweet

More Decks by Uryu Shinya

Other Decks in Programming

Transcript

  1. 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 ೥͔Βͷओͳग़དྷࣄ
  2. όʔδϣϯวྺ य़ઌʹϚΠφʔόʔδϣϯ͕ ߋ৽͞ΕΔ v3.6.2 ϝδϟʔ ϚΠφʔ ϝϯςφϯε > .libPath() [1]

    /Library/Frameworks/R.framework/Versions/3.6/Resources/library ࣍͸W ϚΠφʔҎ্ͷߋ৽Ͱ͸ ΠϯετʔϧࡁΈͷ 3ύοέʔδ͕ Ҿ͖ܧ͛ͳ͍ͷͰ஫ҙʂ
  3. Կ͕มΘͬͨ ʜϩΰ 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ʹ΋ ొ࿥͞ΕͨΜͰɺ ΈΜͳ࢖ͬͯͳ
  4. ͦͷଞͷࢿྉ ελΠϧΨΠυ ύοέʔδ։ൃ 8SJUJOH3&YUFOTJPOT )BEMFZ8JDLIBN   0`3FJMMZb31BDLBHFT` ੉ށࢁ΄͔༁ʢʣ ΦϥΠϦʔɾδϟύϯ

    ʮ3ύοέʔδ։ൃೖ໳ʯ (PPHMF`T34UZMF(VJEF 5IFUJEZWFSTFTUZMFHVJEF (PPHMFͷελΠϧΨΠυ͸ ݱࡏɺUJEZWFSTFͷ΋ͷΛ ϕʔεͱ͍ͯ͠Δͷ͔ʔ {styler} {lintr} {devtools} {testthat} {usethis}
  5. ஌ݟ΍৘ใऩूͷιʔε ݸਓൃ৴ܕ ू໿ܕ ͧ͏͞Μ௨৴ 38FFLMZ େֶڭһ౳ʹΑΔ ࢿྉ UJEZUVFTEBZ ݸਓϒϩά ษڧձͰͷεϥΠυ

    SCMPHHFST ࢀՃܕ &%"4BMPO 3ͷ৘ใ͸ ϑϦʔͰखʹೖΔ΋ͷ͕ଟͯ͘ ͋Γ͕͍ͨɻ CPPLEPXO Λ࢖ͬͨॻ੶ TFFL3 31VCT 1%'΋๛෋Ͱ ͓ੈ࿩ʹͳΓ·ͨ͠ɻ 3ϥδΦ SKQXJLJ SXBLBMBOH UJEZWFSTFWJHOFUUFT ຋༁ϓϩδΣΫτ HHQMPUٯҾ͖
  6. ݴޠͱͯ͠ͷมԽ 4 4 3 2014~ ͳΜͰ4ͳͷ 3ͷલ਎ͷ4ݴޠͷ όʔδϣϯΛ ҙ͍ࣝͯ͠ΔΜ΍ Winston

    Chang ͪͳɺ3͕3Ͱ͸ͳ͍ͷ͸ 4ͷޙܧͱͯ͠ɺ 3͕༻ҙ͞Ε͍͔ͯͨΒ͍͠Ͱ 3ͷ฼ମͱͳͬͨ4ݴޠͷ όʔδϣϯɺͷγεςϜΛ౿ऻͨ͠ ΦϒδΣΫτࢦ޲γεςϜ ͰࢀরΫϥε 3$ ͕ಋೖ 3$ͱಉ༷ͷࢀরηϚϯςΟΫε
  7. 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 #> <dbl> <chr> #> 1 1 a #> 2 0 b #> 3 1 c {rlang} {lazyeval} !! := {{ curry }}
  8. ϥΠϒϥϦͷਐԽ ϋυϦʔͷಈըɺݟΔͱ͑͑Α σʔλૢ࡞ {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}
  9. ೥લʹ͸৴͡ΒΕͳ͍ϨϕϧͰ 1ZUIPOͱͷ࿈ܞ͕ڧԽ σʔλ෼ੳɺػցֶशͷܨ͕Γ 4QBSL \SFUJDVMBUF^ 6STB-BCT 8FT.D,JOOFZ QBOEBTͷ։ൃऀ ɻ "QBDIF"SSPXϓϩδΣΫτ΁ͷ໨ࢦ͢

    34UVEJPͱύʔτφʔ࿈ܞ 5FOTPS'MPX 1ZUIPOWT3ͦΜͳ࣌୅΋ ͔͋ͬͨ΋஌ΕΜɻ ڞ௨՝୊Λղܾ͢ΔͨΊʹ खΛऔΓ߹͏ͷ͕DPPM
  10. UJEZWFSTF Φʔϓϯιʔεނͷ೰Έ ͿͬͪΌ͚ɺ ͍͍͚ͭͯ·ͤΜɻ Ͱ΋࢖͍ଓ͚ΔΑ ࣌ʑੜ͡Δ CSFBLJOHDIBOHF Φʔϓϯͳ৔Ͱ ͖ͪΜͱ ٞ࿦͞Ε͍ͯΔ

    ֊૚ߏ଄Λ΋ͭ OFTUFEσʔλ UJEZSOFTU UJEZSQBDL VOQBDL MJGFTUBHFΛ֬ೝ UJEZͳΜͪΌΒϒʔϜ UJEZNPEFMT STQBUJBM