※ 引述《locka (locka)》之铭言： : 先谢谢celestailgod大大的帮忙,不过抱歉小弟资质驽钝 : 希望可以跟板上各位前辈求教讨论>"< : ※ 引述《celestialgod (天)》之铭言： : : 用merge跟match就可以达到你要的效果了 : : library(data.table) : : library(pipeR) : : factory_list_dt <- data.table(factory = c("台北", "台中", "高雄", : : "新竹", "台南")) : : dt1 <- data.table(factory = c("台北", "高雄", "新竹", "台中", "台南"), : : rev = c(9.23913043478261,16.3571428571429, : : 15.6206896551724, 15.0980392156863, 10)) : : dt1_sorted <- merge(factory_list_dt, dt1, by = "factory", all.x = TRUE) %>>% : : `[`(match(factory_list_dt$factory, factory)) : 我知道前面 merge 会藉由对应factory这个栏位 把 f_list, dt1 join 在一起 : (如果没理解错的话) : 这边主要想请问的都是`[`(match(factory_list_dt$factory, factory)) 这一行 : 1. match函式的第二个参数 "factory" 是甚麽东西的factory呢? : 个人猜测是前面 merge() 完产生出来的新的data table(在此设为dt_new) : 所以意思应该是「列出 f_list_dt中factory,在dt_new中的位置」 : 不知道这样的理解正不正确? factory是merge出来的data.table中的一个column，也就是你这说的dt_new : 2. 那为什麽要用()把match的结果包起来? : 3. `[` 的意思是...? 2跟3一起说明，其实我们再用 A[i,j] 可以写作 `[`(A, i, j)，`[`是一个函数 : : dt2 <- data.table(factory = c("台北", "台中", "高雄"), : : rev = c(9.23913043478261,16.3571428571429, 15.6206896551724)) : : dt2_sorted <- merge(factory_list_dt, dt2, by = "factory", all.x = TRUE) %>>% : : `[`(match(factory_list_dt$factory, factory)) %>>% : : `[`(j = rev := ifelse(is.na(rev), 0, rev)) : 这边 `[`(j = rev := ifelse(is.na(rev), 0, rev)) 也有同样的问题 : 我知道大概意思是判断rev, 如果其值是na的话就补0 否则就填rev原本的值 : 可是这个j是怎麽冒出来的啊??? 同2 3，j是`[`第三个element : 最後真的不得不感谢celestialgod大大,每次都可以瞬间解决问题 : 而且程式码都好简洁啊! : 也谢谢大家热情帮忙!! :) -- R资料整理套件系列文： magrittr #1LhSWhpH (R_Language) https://goo.gl/OBto1x data.table #1LhW7Tvj (R_Language) https://goo.gl/QFtp17 dplyr(上.下) #1LhpJCfB,#1Lhw8b-s (R_Language) https://goo.gl/GcfNoP tidyr #1Liqls1R (R_Language) https://goo.gl/pcq5nq pipeR #1NXESRm5 (R_Language) https://goo.gl/cDIzTh --

※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 36.234.177.169 ※ 文章网址: https://webptt.com/cn.aspx?n=bbs/R_Language/M.1478131450.A.769.html