dplyr:

Question

nasıl mutate kullanma hakkında giderdim alıntı değişken adları ile mutasyona için standart değerlendirme (benim karinesi ben dolayısıyla mutate_ benim durumumda standart değerlendirme için arıyorum ve bu, ama bu noktada tamamen emin değilim) Bu gibi değişken adlarının bir listesini kabul eden bir işlevi kullanırken:

library(dplyr) 
library(lazyeval) 

# function to make random table with given column names 
makeTable = function(colNames, sampleSize) { 
    liSample = lapply(colNames, function(week) { 
    sample = rnorm(sampleSize) 
    }) 
    names(liSample) = as.character(colNames) 
    return(tbl_df(data.frame(liSample, check.names = FALSE))) 
} 

# create some sample data with the column name patterns required 
weekDates = seq.Date(from = as.Date("2014-01-01"), 
        to = as.Date("2014-08-01"), by = "week") 
dfTest = makeTable(weekDates, 10) 

# test mutate on this table 
dfTest %>% 
    mutate_(sumvar = interp(~ sum(var, na.rm = TRUE), 
          var = as.name(paste(as.character(weekDates), collapse =",")))) 

: Burada

createSum = function(data, variableNames) { 
    data %>% 
    mutate_(sumvar = interp(~ sum(var, na.rm = TRUE), 
          var = as.name(paste(as.character(variableNames), collapse =",")))) 

} 

onun temel mantığı fonksiyonu şeritler ve MWE olduğunu ben başarmak ne çalışıyorum gösteriyorBurada 0

Beklenen çıkış ziyerete iade edileceği edilir: Bu ne konum olduğunu düşünüyorum

rowSums(dfTest[, as.character(weekDates)]) 

Answer 1

biz sadece ziyade interp daha karakter değerini tedarik

createSum = function(data, variableNames) { 
    data %>% 
     mutate_(sumvar = paste(as.character(variableNames), collapse ="+")) 
} 
createSum(dfTest, weekDates) 

sonra bunu yapamazsınız çünkü isimler listesine tek bir parametre olarak bir işleve geçmek. Ayrıca, sum() bazı istenmeyen çökmeler yapardı çünkü işlemler roxi yapılmaz, bir seferde vektör sütunlarına geçirilir.

Bu örnekteki diğer bir sorun, data.frame öğenizde check.names=FALSE'u ayarlamanızdır; bu, geçerli semboller olamayan sütun adlarını oluşturduğunuz anlamına gelir. Eğer

createSum(dfTest , paste0("`", weekDates,"`")) 

İsterseniz açıkça arka keneler içinde değişken isimleri sarabilirsiniz ama genel olarak geçersiz isimler kullanmamaya daha iyi olurdu.

Answer 2

bu bir "resmi olarak onaylanmış" dplyr yolu ise bilmiyorum, ama bu bir ihtimaldir:

weekDates = as.character(weekDates) # more convenient 

dfTest %>% mutate(sumvar = Reduce(`+`, lapply(weekDates, get, .))) 
#or 
dfTest %>% mutate(sumvar = rowSums(as.data.frame(lapply(weekDates, get, .)))) 

Bu taşımak gelmez potansiyel önemli performans cezaları, belirli kullanıma bağlı olarak - ilaveten dplyr'un tüm verileri düzenli olarak kopyaladığını düşünüyorum, aynı zamanda bu dahili hesaplama sırasında ikinci kez kopyalar. Daha fazla kopyalama yapmak için data.table'a bakabilirsiniz, böylece sütunlar ekleyerek (ve ikinci kopyayı önlemek için .SDcols'u kullanın) + daha iyi bir sözdizimi elde edersiniz.