用途

ggplotなどtidyverse系列で列名に対して
繰り返し処理や関数を作成したいことがある。

一筋縄でいけないことが多いので、ここに攻略法をまとめた。

そもそも、mapやfacet、acrossでうまくいくことが多いので、それらでは本当にだめか確認する。

Code

R / 4.1.0
Install packages
- tidyverse

テストCode

irisについて、各指標で箱ひげ図を得たいとする
一つならこう書ける

iris %>%
    ggplot(aes(x = Species, y = Sepal.Length)) +
    geom_boxplot()

ミス Code

あるあるケース

sp_boxplot <- function(var) {
    iris %>%
        ggplot(aes(x = Species, y = var)) +
        geom_boxplot()
}

sp_boxplot("Sepal.Length")

クリアCode

いくつか列挙する出力の図はどれも同じ

aesのパワープレイ

aesは ... を介すると受け取った引数をいい感じに処理するのでうまくいく

sp_boxplot <- function(...) {
    iris %>% 
        ggplot(aes(x=Species,...)) +
        geom_boxplot()
}

sp_boxplot(y=Sepal.Length)

aes_string

引数を文字列で与える
""との組合せのみうまくいく

sp_boxplot <- function(var) {
    iris %>%
        ggplot(aes_string(x = "Species", y = var)) +
        geom_boxplot()
}

sp_boxplot("Sepal.Length")

aes_

引数を列名として宣言する
quote と as.name の適用のみうまくいく

sp_boxplot <- function(var) {
    iris %>%
        ggplot(aes_(x = quote(Species), y = as.name(var))) +
        geom_boxplot()
}

sp_boxplot("Sepal.Length")

!!のアンクォートとquo

クォージャーとして与えて、関数内部で!!によってアンクォート
使うときに、quoで包む必要があるがうまくいく

sp_boxplot <- function(var) {
    iris %>%
        ggplot(aes(x = Species, y = !!var)) +
        geom_boxplot()
}

sp_boxplot(quo(Sepal.Length))

enquo

上のquo処理を関数内部に移管したイメージ
使うときに裸の変数名となるがうまくいく

sp_boxplot <- function(var) {
    var <- enquo(var)
    iris %>%
        ggplot(aes(x = Species, y = !!var)) +
        geom_boxplot()
}

sp_boxplot(Sepal.Length)

{{ }} curly-curly

enquoの後継としてでてきたらしい
使うときに裸の変数名となるがうまくいく

sp_boxplot <- function(var) {
    iris %>%
        ggplot(aes(x = Species, y = {{ var }})) +
        geom_boxplot()
}

sp_boxplot(Sepal.Length)

データ要素として指定

.data（ここではパイプで渡されたiris）の要素ということを明示的にかく

sp_boxplot <- function(var) {
    iris %>%
        ggplot(aes(x = Species, y =.data[[ var ]])) +
        geom_boxplot()
}


sp_boxplot("Sepal.Length")

結論

公文書に従うなら、
aes()か{{ でやっていくのが妥当だが、
普段使いには、文字列を渡すことが多いので、文字指定できるものが便利

あとがき

基本的に問題は2つ

引数を変数名か、定数（文字列）のどちらで処理するか
変数名として、グローバルなのかデータ内の列名なのか
でうまく回らないことが多い。
そもそも、tidyverseの世界で、列名なら裸（クォーテーション無）で指定できているのが便利でありながらも、問題を生む温床である。
気になる人は、「非標準評価(NSE)」や「tidy eval」で検索検索！

また、今回はaesのなかで分けているが、group_byや別のところでも使うことは可能

今回の手法をまとめると

aes × enquo のグループ
- aes × {{ は aes × enquo と等価
- aes × … は aes × {{ と仕組みは同じだが、関数がどういうふうに使われるべきかによって選択する
aes_ (aes_q) × quote (ないし ~) のグループ
- aes_string に比べると X$1 などの扱いが楽
- ただし soft-deprecated
aes_string × 文字列のグループ
- aes_ に比べると X$1 などの扱いがやや面倒
- ただし soft-deprecated
  -ただし aes_string の代わりに aes(x = .data[[var]]) などとすれば文字列で変数を指定することが可能

参考文献

公文書１：aes_string と aes_
公文書２：enquo や {{
メモ：dplyr・ggplot2 で {{ }} を使う
 読書日記-2017年8月19日 (土)

スペシャルサンクス

本質問は、Rのslackコミュニティ「r-wakalang」にて議論させていただきました。

Rのggplotで列名を変数として引数に与えたい

用途