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

Transcript

33 slides
  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

More Decks by Uryu Shinya

Other Decks in Programming