申請多個參數

Question

我有一個data.frame的條目。每個星期我都有一個data.frame，這些數據有條目的相關計數。雖然沒有這樣的星期計數data.frame，但它的每個條目都是超集。

我想要做的就是將這些結合起來，這樣我就有了一個data.frame，其中第一列是條目，下N列是N周計數，如果條目沒有計數本週，那麼它被認爲是0。

我第一次嘗試是這樣的：

append_week_counts_to_entries <- function(entries) { 
    entries$week1 <- apply(entries,1,helpfunc,row=row,week=count_week1) 
    entries$week2 <- apply(entries,1,helpfunc,row=row,week=count_week2) 
# ... to all N weeks 
    return(entries) 
} 

helpfunc <- function(entries,row,week) { 
    if(as.character(row[1]) %in% week$id) { 
    return(week[which(as.character(week$id) == as.character(row[1])),2]) 
    } 
    else { 
    return(0) 
    } 
} 

（此工作，直到我把它抽象成現在的樣子，我寧願瞭解它如何能比繼續工作。寫它的好辦法，我以前還）

除了不工作因此，我也有一種感覺，這對於R來說效率非常低。在這兩個方面的幫助將非常感謝。

編輯： 一個例子的數據集將是：

entries: structure(list(`entries$id` = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10 
)), .Names = "entries$id", row.names = c(NA, -10L), class = "data.frame") 

count_week_i: structure(list(Var1 = structure(1:3, .Label = c("1", "2", "3" 
), class = "factor"), Freq = c(1L, 2L, 4L)), .Names = c("Var1", 
"Freq"), row.names = c(NA, -3L), class = "data.frame") 

Answer 1

事實上，利用先進的lapply和家人有些複雜。不得不問類似的問題，一次或兩次...

HTH： Using lapply with changing arguments

和

Running lagged regressions with lapply and two arguments

特別喜歡expand.grid