2014-06-01ãã1ã¶æéã®è¨äºä¸è¦§
plyrããã±ã¼ã¸ã«rbind.fillã¨ããé¢æ°ãããã ãã¼ã¿ãã¬ã¼ã ãrbindããæãé常ã¯ååãä¸è´ãã¦ãªãã¨ã¨ã©ã¼ãåºãã®ã ã rbind.fillã¯ä¸è´ãã¦ããªãåãNAã§è£å®ãã¦çµåãã¦ãããã ã§ãdplyrããã±ã¼ã¸ã®å ´åãrbind_allãrbind_listã«ãã®æ©è½ãâ¦
chain operator %>% ã®å°å ¥ã«ããå·¦ããå³ã«ã³ã¼ããæµããããã«ãªã£ãã assignment operatorã¯å¥ã«ã§ãããã ã¨ãããã¨ã¯ä»¥ä¸ã®ããã«æ¸ããã è¦èªæ§ã®åé¡ãããã®ã§é·ãã³ã¼ãã人ã¨å ±æããã³ã¼ããå ¨é¨ããã§æ¸ããã©ããã¨ãã話ã¯ãããã çãâ¦
ãããã話ããããdatatableã©ãããinner_joinãããdataframeã«ãªã£ã¦çæ»ãããã ãã©, ãªãã§ããªããâ ã¯ãã (@gg_hatano) 2014, 6æ 23確ããã¦ã¿ãã dt1 <- data.table(A = letters[1:10], X = 1:10, key = "A") dt2 <- data.table(A = letters[5:â¦
以ä¸ã®ãããªæååããã£ãæã«ï¼ã1ã¨ãã¦åãåºããä»ã¯NAã¨ãããã smp <- c("æ°ãããã¡ã¤ã«ï¼ï¼ï¼","å«") library(magrittr) library(Nippon) library(stringr) smp %>% zen2han() %>% str_extract("ï¼\\dï¼") %>% str_replace_all("ï¼|ï¼","")
ã¡ãã£ã¨ä½ãè¨ã£ã¦ãã®ãããããªãã¨æããã©ã¡ã¢ã Kmiscããã±ã¼ã¸ã§ä½¿ããã awkã¨ããååã§ã¯ãªãawkï¼gawkã¨ãmawkã¨ãï¼ã使ã£ã¦ããå ´åã¯awk.setã§ãããæå®ãã¦ããã library(Kmisc) dat <- data.frame( x=1:10, y=letters[1:10], z=LETTERS[1â¦