関数内にfacet_wrap（ggplot2）を書く方法

Question

私は棒グラフをプロットする関数を書いています。しかし、私がファセットラップになると、「〜」記号が物事を困難にしています。

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 
} 

私は次のことを試してみた：

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

は、どのように私は必ず「〜」記号が関数に含まれます作るのですか？

Answer 1

getを使用する必要はありません。 dat引数を使用してデータフレームを関数に渡したので、datをggplotに送り、その環境内からデータデータを取得します。

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

predictorとfeature引数は文字列として入力する必要があります。次に、aes_stringを使用して美学を指定することができます。 facet_wrapは、式を必要とせずに文字ベクトルを直接取得できるようになりました（@WeihuangWongによって指摘されています）。