Bir işlev içinde bir facet_wrap (ggplot2) nasıl yazılır

Question

Bir çubuk grafiği çizmek için bir işlev yazdım. Ama faset sardığı zaman '~' işareti şeyleri zorlaştırıyor.

facet_wrap((get(~feature))) # invalid first argument 
facet_wrap(paste0("~ ", get(feature))) # object 'feature' not found 

Nasıl '~' işareti fonksiyonu ile birlikte sağlıyorsunuz:

rf.funct <- function(dat, predictor, feature){ 
    ggplot(get(dat), aes(get(predictor), N)) + 
    geom_bar(stat = 'identity') + 
    facet_wrap(get(~feature)) # this is where the problem is 
} 

Aşağıdaki denedim?

Answer 1

get'u kullanmanıza gerek yoktur. Veri çerçevesini dat bağımsız değişkenini kullanarak işleve aktardınız, bu yüzden dat ürününü ggplot'a besleyin ve veri verilerini kendi ortamından elde edin.

rf.funct <- function(dat, predictor, feature) { 
    ggplot(dat, aes_string(predictor, "N")) + 
    geom_bar(stat = 'identity') + 
    facet_wrap(feature) 
} 

predictor ve feature argümanlar

dizeleri olarak girilmelidir. Ardından estetiği belirtmek için aes_string'u kullanabilirsiniz. facet_wrap şimdi bir karaktere ihtiyaç duymadan bir formül vektörüne (@WeihuangWong tarafından işaret edildiği gibi) doğrudan sahip olabilir.